paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-23 00:43:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed mem leak

Browse Source 
git-svn-id: trunk@4491 -
This commit is contained in:
mattias 2003-08-17 12:47:53 +00:00
parent a366802840
commit 3dc1252ce3
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/checkcompileropts.pas
View File

@ -171,6 +171,7 @@ end;
destructor TCheckCompilerOptsDlg.Destroy;
begin
Application.RemoveOnIdleHandler(@ApplicationOnIdle);
FDirectories.Free;
inherited Destroy;
end;

5
lcl/interfaces/win32/win32int.pp
View File

@ -107,12 +107,12 @@ Type
Procedure NormalizeIconName(Var IconName: PChar);
Procedure CreateCommonDialog(Sender: TCommonDialog);
Public
{ Creates a callback of Lazarus message Msg for Sender }
Procedure SetCallback(Msg: LongInt; Sender: TObject); virtual;
{ Removes all callbacks for Sender }
Procedure RemoveCallbacks(Sender: TObject); virtual;
Public
{ Constructor of the class }
Constructor Create;
{ Destructor of the class }
@ -188,6 +188,9 @@ End.
{ =============================================================================
$Log$
Revision 1.31 2003/08/17 12:47:53 mattias
fixed mem leak
Revision 1.30 2003/08/17 12:26:00 mattias
fixed parts of the win32 intf size system