paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 15:33:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: destroy canvas handle on statusbar window destruction (bug )

Browse Source 
git-svn-id: trunk@33342 -
This commit is contained in:
paul 2011-11-05 14:55:40 +00:00
parent 84fd8c7545
commit 1e70708349
1 changed files with 2 additions and 0 deletions

2
lcl/include/statusbar.inc
View File

@ -146,6 +146,8 @@ end;
procedure TStatusBar.DestroyWnd;
begin
inherited DestroyWnd;
if FCanvas <> nil then
TControlCanvas(FCanvas).FreeHandle;
FHandlePanelCount:=0;
FHandleObjectNeedsUpdate:=false;
end;