From 4bbbc80df893c0332cf31c81cd64fbf4b584f695 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Wed, 24 Sep 2008 21:32:44 +0000
Subject: * Fixed 3 memory leaks in the Hint Windows units.

---
 src/gui/gui_hint.pas | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'src')

diff --git a/src/gui/gui_hint.pas b/src/gui/gui_hint.pas
index 0918b97d..70fad4b5 100644
--- a/src/gui/gui_hint.pas
+++ b/src/gui/gui_hint.pas
@@ -56,6 +56,7 @@ type
     procedure   HandleShow; override;
   public
     constructor Create(AOwner: TComponent); override;
+    destructor  Destroy; override;
     procedure   SetPosition(aleft, atop, awidth, aheight: TfpgCoord); override;
     property    Font: TfpgFont read FFont;
     property    Text: TfpgString read GetText write SetText;
@@ -194,6 +195,13 @@ begin
   OnHide := @FormHide;
 end;
 
+destructor TfpgHintWindow.Destroy;
+begin
+  T_Chrono.Free;
+  FFont.Free;
+  inherited Destroy;
+end;
+
 procedure TfpgHintWindow.SetPosition(aleft, atop, awidth, aheight: TfpgCoord);
 begin
   inherited SetPosition(aleft, atop, awidth, aheight);
@@ -210,5 +218,9 @@ begin
   BackgroundColor := clGray;
 end;
 
+initialization
+finalization
+  FreeAndNil(uShadowForm);
+
 end.
 
-- 
cgit v1.2.3-70-g09d2