diff options
Diffstat (limited to 'src')
| -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. |