diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-11 14:04:50 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-11 14:04:50 +0000 |
commit | 793c38fb64d14d4188234b5032c49c905ea8f399 (patch) | |
tree | 8254ff750608a36def0fd3c876945c77b96a586d /src/gui/gui_panel.pas | |
parent | 9aa35c9c0a5220af1bdc7493d4caf418664d8af7 (diff) | |
download | fpGUI-793c38fb64d14d4188234b5032c49c905ea8f399.tar.xz |
* Applied minor memory leak patch for TfpgPanel. By Vladimir.
Diffstat (limited to 'src/gui/gui_panel.pas')
-rw-r--r-- | src/gui/gui_panel.pas | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/gui/gui_panel.pas b/src/gui/gui_panel.pas index 2dc848b5..4f2e5680 100644 --- a/src/gui/gui_panel.pas +++ b/src/gui/gui_panel.pas @@ -97,6 +97,7 @@ type procedure HandlePaint; override; public constructor Create(AOwner: TComponent); override; + destructor Destroy; override; property Font: TfpgFont read FFont; published property Alignment: TAlignment read GetAlignment write SetAlignment default taCenter; @@ -504,6 +505,13 @@ begin FMargin := 2; end; +destructor TfpgPanel.Destroy; +begin + FText := ''; + FFont.Free; + inherited Destroy; +end; + {TfpgGroupBox} function TfpgGroupBox.GetAlignment: TAlignment; |