diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-03-01 11:22:55 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-03-01 11:22:55 +0200 |
| commit | 0f559f5bcfc057006460929e0391035a94fbeff1 (patch) | |
| tree | ad14863806fa3242b2da6ff1f7d8076ef4ac770d | |
| parent | fc6bf7220ae20d3f1b6329751abef036d8db1325 (diff) | |
| download | fpGUI-0f559f5bcfc057006460929e0391035a94fbeff1.tar.xz | |
Fixed memory leak in TfpgGroupBox. Never freed the used font.
| -rw-r--r-- | src/gui/fpg_panel.pas | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/gui/fpg_panel.pas b/src/gui/fpg_panel.pas index bbdea641..2593009d 100644 --- a/src/gui/fpg_panel.pas +++ b/src/gui/fpg_panel.pas @@ -144,6 +144,7 @@ type procedure HandlePaint; override; public constructor Create(AOwner: TComponent); override; + destructor Destroy; override; function GetClientRect: TfpgRect; override; property Font: TfpgFont read FFont; published @@ -756,5 +757,11 @@ begin FMargin := 2; end; +destructor TfpgGroupBox.Destroy; +begin + FFont.Free; + inherited Destroy; +end; + end. |