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

Cocoq: release two global variables issue #41170

Browse Source
This commit is contained in:
rich2014 2024-10-04 22:22:08 +08:00
parent 7e241fef3c
commit e9baea68d1
3 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/cocoa/cocoaconfig.pas
View File

@ -389,5 +389,9 @@ initialization
CocoaConfigMenu.menuItem.defaultRadioImageName:= NSSTR('NSDatePickerCalendarHome');
CocoaConfigFocusRing:= TCocoaConfigFocusRing.Create;
finalization
FreeAndNil( CocoaConfigFocusRing );
end.

3
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -2076,8 +2076,5 @@ begin
sv.setBorderType( NSBorderStyle[astyle] );
end;
initialization
ASyncLCLControlAdjustSizer:= TASyncLCLControlAdjustSizer.Create;
end.

7
lcl/interfaces/cocoa/cocoawsscrollers.pas
View File

@ -6,11 +6,11 @@ unit CocoaWSScrollers;
interface
uses
Classes, LCLType, Controls, Forms,
Classes, SysUtils, LCLType, Controls, Forms,
CocoaAll, CocoaPrivate, CocoaCustomControl, CocoaScrollers, CocoaUtils;
type
{ ASyncLCLControlAdjustSizer }
{ TASyncLCLControlAdjustSizer }
TASyncLCLControlAdjustSizer = class
private
@ -154,5 +154,8 @@ end;
initialization
ASyncLCLControlAdjustSizer:= TASyncLCLControlAdjustSizer.Create;
finalization
FreeAndNil( ASyncLCLControlAdjustSizer );
end.