paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 05:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa: Fix memory leak in TCocoaWSCustomPage.SetProperties()

Browse Source
This commit is contained in:
rich2014 2023-12-02 00:29:54 +08:00
parent be1dd4686a
commit 25c7f3c141
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/cocoa/cocoawscomctrls.pas
View File

@ -627,7 +627,7 @@ begin
// hint // hint
if ACustomPage.ShowHint then lHintStr := ACustomPage.Hint if ACustomPage.ShowHint then lHintStr := ACustomPage.Hint
else lHintStr := ''; else lHintStr := '';
ACocoaControl.setToolTip(NSStringUTF8(lHintStr)); ACocoaControl.setToolTip(StrToNSString(lHintStr));
end; end;
class procedure TCocoaWSCustomPage.SetBounds(const AWinControl: TWinControl; class procedure TCocoaWSCustomPage.SetBounds(const AWinControl: TWinControl;