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

LCL: TGraphicControl: always call FreeHandle - HandleAllocated doesn't take FDeviceContext into consideration. Issue #30003, patch by Michl

Browse Source 
git-svn-id: trunk@53253 -
This commit is contained in:
ondrej 2016-10-28 19:01:02 +00:00
parent d0383990ca
commit 643cbe0475
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/graphiccontrol.inc
View File

@ -94,15 +94,13 @@ procedure TGraphicControl.DoOnChangeBounds;
begin begin
inherited DoOnChangeBounds; inherited DoOnChangeBounds;
// reset canvas handle in next access // reset canvas handle in next access
if Canvas.HandleAllocated then TControlCanvas(Canvas).FreeHandle;
TControlCanvas(Canvas).FreeHandle;
end; end;
procedure TGraphicControl.DoOnParentHandleDestruction; procedure TGraphicControl.DoOnParentHandleDestruction;
begin begin
inherited; inherited;
if Canvas.HandleAllocated then TControlCanvas(Canvas).FreeHandle;
TControlCanvas(Canvas).FreeHandle;
end; end;
procedure TGraphicControl.CMCursorChanged(var Message: TLMessage); procedure TGraphicControl.CMCursorChanged(var Message: TLMessage);