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

anchordocking: fixed clean up

Browse Source 
git-svn-id: trunk@26063 -
This commit is contained in:
mattias 2010-06-12 17:28:04 +00:00
parent 627414f637
commit e0c859f04e
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
examples/anchordocking/anchordocking.pas
View File

@ -1392,6 +1392,8 @@ begin
FreeAndNil(FControls); FreeAndNil(FControls);
FreeAndNil(fNeedFree); FreeAndNil(fNeedFree);
FreeAndNil(fDisabledAutosizing); FreeAndNil(fDisabledAutosizing);
fCloseBtnReferenceCount:=-1;
FreeAndNil(fCloseBtnBitmap);
inherited Destroy; inherited Destroy;
end; end;
@ -3748,6 +3750,7 @@ end;
procedure TAnchorDockCloseButton.ReleaseCloseGlyph; procedure TAnchorDockCloseButton.ReleaseCloseGlyph;
begin begin
if DockMaster=nil then exit;
dec(DockMaster.fCloseBtnReferenceCount); dec(DockMaster.fCloseBtnReferenceCount);
if DockMaster.fCloseBtnReferenceCount=0 then if DockMaster.fCloseBtnReferenceCount=0 then
FreeAndNil(DockMaster.fCloseBtnBitmap); FreeAndNil(DockMaster.fCloseBtnBitmap);

1
examples/anchordocking/minide/unit1.lfm
View File

@ -148,7 +148,6 @@ object MainIDE: TMainIDE
top = 32 top = 32
object FileMenuItem: TMenuItem object FileMenuItem: TMenuItem
Caption = 'File' Caption = 'File'
OnClick = FileMenuItemClick
object OpenFileMenuItem: TMenuItem object OpenFileMenuItem: TMenuItem
Caption = 'Open file' Caption = 'Open file'
end end