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

LCL: Restore a wrapper for FreeThenNil in LCLProc as deprecated.

Browse Source
This commit is contained in:
Juha 2023-06-05 21:54:26 +03:00
parent aa2394028c
commit d9637b02d4
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/lclproc.pas
View File

@ -109,6 +109,8 @@ var
function SendApplicationMessage(Msg: Cardinal; WParam: WParam; LParam: LParam):Longint; function SendApplicationMessage(Msg: Cardinal; WParam: WParam; LParam: LParam):Longint;
procedure OwnerFormDesignerModified(AComponent: TComponent); procedure OwnerFormDesignerModified(AComponent: TComponent);
// Deprecated in version 2.3, 2023-06.
procedure FreeThenNil(var obj); deprecated 'Use LazUtilities.FreeThenNil instead';
{ the LCL interfaces finalization sections are called before the finalization { the LCL interfaces finalization sections are called before the finalization
sections of the LCL. Those parts, that should be finalized after the LCL, can sections of the LCL. Those parts, that should be finalized after the LCL, can
@ -828,6 +830,11 @@ begin
end; end;
end; end;
procedure FreeThenNil(var obj);
begin
LazUtilities.FreeThenNil(obj);
end;
procedure RegisterInterfaceInitializationHandler(p: TProcedure); procedure RegisterInterfaceInitializationHandler(p: TProcedure);
begin begin
InterfaceInitializationHandlers.Add(p); InterfaceInitializationHandlers.Add(p);