pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: cocoa, cleanup memory use to prevent crashes

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6473 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2018-06-08 02:53:04 +00:00
parent d63d52fda2
commit 430b047031
1 changed files with 16 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
components/richmemo/cocoa/cocoarichmemo.pas
View File

@ -262,6 +262,7 @@ end;
function FindFont(const FamilyName: String; astyle: TFontStyles): NSFontDescriptor;
var
fd : NSFontDescriptor;
cfd : NSFontDescriptor;
old : NSFontDescriptor;
fdd : NSFontDescriptor;
trt : NSFontSymbolicTraits;
@ -276,18 +277,23 @@ begin
if fsBold in aStyle then trt:=trt or NSFontBoldTrait;
fd:=NSFontDescriptor(NSFontDescriptor.alloc).initWithFontAttributes(nil);
fd:=fd.fontDescriptorWithFamily(ns);
fd:=fd.fontDescriptorWithSymbolicTraits(trt);
fdd:=fd.matchingFontDescriptorWithMandatoryKeys(nil);
i:=0;
while not Assigned(fdd) and (i<length(fallback)) do begin
trt:=trt and (not fallback[i]);
cfd:=fd;
try
fd:=fd.fontDescriptorWithFamily(ns);
fd:=fd.fontDescriptorWithSymbolicTraits(trt);
fdd:=fd.matchingFontDescriptorWithMandatoryKeys(nil);
i:=0;
while not Assigned(fdd) and (i<length(fallback)) do begin
trt:=trt and (not fallback[i]);
fd:=fd.fontDescriptorWithSymbolicTraits(trt);
fdd:=fd.matchingFontDescriptorWithMandatoryKeys(nil);
end;
Result:=fdd;
finally
ns.release;
cfd.release;
end;
Result:=fdd;
ns.release;
end;
class procedure TCocoaWSCustomRichMemo.SetTextAttributes(
@ -314,35 +320,30 @@ begin
fd:=FindFont(Params.Name, Params.Style);
font:=NSFont.fontWithDescriptor_size(fd, Params.Size);
txt.addAttribute_value_range(NSFontAttributeName, font, rng);
// fd.release;
if fsUnderline in Params.Style then begin
num:=NSNumber.numberWithInt(NSUnderlineStyleSingle);
txt.addAttribute_value_range(NSUnderlineStyleAttributeName, num, rng);
num.release;
end else
txt.removeAttribute_range(NSUnderlineStyleAttributeName, rng);
if fsStrikeOut in Params.Style then begin
num:=NSNumber.numberWithInt(NSUnderlineStyleSingle);
txt.addAttribute_value_range(NSStrikethroughStyleAttributeName, num, rng);
num.release;
end else
txt.removeAttribute_range(NSStrikethroughStyleAttributeName, rng);
clr:=ColorToNSColor(Params.Color);
txt.addAttribute_value_range(NSForegroundColorAttributeName, clr, rng);
clr.release;
if Params.HasBkClr then begin
clr:=ColorToNSColor(Params.BkColor);
txt.addAttribute_value_range(NSBackgroundColorAttributeName, clr, rng);
clr.release;
end else
txt.removeAttribute_range(NSBackgroundColorAttributeName, rng);
end;
class procedure TCocoaWSCustomRichMemo.SetParaAlignment(