From 1e707083495a03effb07ea2f173e00afca073d50 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sat, 5 Nov 2011 14:55:40 +0000
Subject: [PATCH] lcl: destroy canvas handle on statusbar window destruction
 (bug #0019497)

git-svn-id: trunk@33342 -
---
 lcl/include/statusbar.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lcl/include/statusbar.inc b/lcl/include/statusbar.inc
index 28c355c77d..100f673423 100644
--- a/lcl/include/statusbar.inc
+++ b/lcl/include/statusbar.inc
@@ -146,6 +146,8 @@ end;
 procedure TStatusBar.DestroyWnd;
 begin
   inherited DestroyWnd;
+  if FCanvas <> nil then
+    TControlCanvas(FCanvas).FreeHandle;
   FHandlePanelCount:=0;
   FHandleObjectNeedsUpdate:=false;
 end;