diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-09-24 21:32:44 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-09-24 21:32:44 +0000 |
commit | 4bbbc80df893c0332cf31c81cd64fbf4b584f695 (patch) | |
tree | 53350078ba16aae55182d342cde05bed85efb4ac | |
parent | 2fdfb9d7ed2c3feacbb5b221ecc830312ca1e73c (diff) | |
download | fpGUI-4bbbc80df893c0332cf31c81cd64fbf4b584f695.tar.xz |
* Fixed 3 memory leaks in the Hint Windows units.
-rw-r--r-- | src/gui/gui_hint.pas | 12 |
1 files changed, 12 insertions, 0 deletions
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. |