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

lcl: fix memory and GDI resource leakage related to docking by Anton Kavalenka (issue #0015342)

Browse Source 
git-svn-id: trunk@23144 -
This commit is contained in:
paul 2009-12-15 03:56:41 +00:00
parent 7cbceba61c
commit de7f2b3c91
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
examples/dockmanager/package/easydocksite.pas
View File

@ -979,10 +979,14 @@ begin
if FTopZone.FirstChild = nil then if FTopZone.FirstChild = nil then
exit; //no zones - nothing to paint exit; //no zones - nothing to paint
ACanvas := TCanvas.Create; ACanvas := TCanvas.Create;
ACanvas.Handle := DC; try
GetCursorPos(MousePos); ACanvas.Handle := DC;
MousePos := DockSite.ScreenToClient(MousePos); GetCursorPos(MousePos);
PaintZone(FTopZone); MousePos := DockSite.ScreenToClient(MousePos);
PaintZone(FTopZone);
finally
Acanvas.Free;
end;
end; end;
procedure TEasyTree.RemoveControl(Control: TControl); procedure TEasyTree.RemoveControl(Control: TControl);

8
examples/dockmanager/package/zoneheader.inc
View File

@ -27,13 +27,13 @@ begin
end; end;
procedure DestroyDockHeaderImages; procedure DestroyDockHeaderImages;
//var ImageKind: TDockHeaderImageKind; var
ImageKind: TDockHeaderImageKind;
begin begin
//called from unit finalization only! //called from unit finalization only!
{ this code can result in crashes, due to missing handles // this code can result in crashes, due to missing handles
for ImageKind := Low(TDockHeaderImageKind) to High(TDockHeaderImageKind) do for ImageKind := Low(TDockHeaderImageKind) to High(TDockHeaderImageKind) do
FreeAndNil(DockBtnImages[ImageKind]); FreeAndNil(DockBtnImages[ImageKind]);
}
end; end;