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

cleanup: do not free nil resource

Browse Source 
git-svn-id: trunk@5662 -
This commit is contained in:
micha 2004-07-08 20:42:24 +00:00
parent dbd6cd07f8
commit aaf9119989
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/win32/win32object.inc
View File

@ -420,6 +420,7 @@ Var
TBB: TBBUTTON;
WindowStyle: Integer; //used by LM_SETTABPOSITION
AMenu: TMenu;
AccelTable: HACCEL;
TheWinControl: TWinControl;
Begin
@ -609,7 +610,9 @@ Begin
Begin
If Handle <> 0 Then
begin
DestroyAcceleratorTable(Windows.GetProp(Handle, 'Accel'));
AccelTable := Windows.GetProp(Handle, 'Accel');
if AccelTable <> 0 then
DestroyAcceleratorTable(AccelTable);
DestroyWindow(Handle);
end;
End
@ -3338,6 +3341,9 @@ End;
{
$Log$
Revision 1.221 2004/07/08 20:42:24 micha
cleanup: do not free nil resource
Revision 1.220 2004/07/08 20:29:05 micha
fix win95 compatibility, do not send seperate lm_setshortcut message