paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 13:37:45 +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;
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
sections of the LCL. Those parts, that should be finalized after the LCL, can
@ -828,6 +830,11 @@ begin
end;
end;
procedure FreeThenNil(var obj);
begin
LazUtilities.FreeThenNil(obj);
end;
procedure RegisterInterfaceInitializationHandler(p: TProcedure);
begin
InterfaceInitializationHandlers.Add(p);