From 643cbe0475a6a63bd4187377ac9ea2ee7967cd01 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Fri, 28 Oct 2016 19:01:02 +0000
Subject: [PATCH] LCL: TGraphicControl: always call FreeHandle -
 HandleAllocated doesn't take FDeviceContext into consideration. Issue #30003,
 patch by Michl

git-svn-id: trunk@53253 -
---
 lcl/include/graphiccontrol.inc | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/lcl/include/graphiccontrol.inc b/lcl/include/graphiccontrol.inc
index 79ce1b69f6..ec764b0271 100644
--- a/lcl/include/graphiccontrol.inc
+++ b/lcl/include/graphiccontrol.inc
@@ -94,15 +94,13 @@ procedure TGraphicControl.DoOnChangeBounds;
 begin
   inherited DoOnChangeBounds;
   // reset canvas handle in next access
-  if Canvas.HandleAllocated then
-    TControlCanvas(Canvas).FreeHandle;
+  TControlCanvas(Canvas).FreeHandle;
 end;
 
 procedure TGraphicControl.DoOnParentHandleDestruction;
 begin
   inherited;
-  if Canvas.HandleAllocated then
-    TControlCanvas(Canvas).FreeHandle;
+  TControlCanvas(Canvas).FreeHandle;
 end;
 
 procedure TGraphicControl.CMCursorChanged(var Message: TLMessage);