pdf report: fixed memory leak. Font was not freed.

1 files changed, 7 insertions, 0 deletions

diff --git a/extras/contributed/report_tool/reportengine/u_commande.pas b/extras/contributed/report_tool/reportengine/u_commande.pas
index 0c35c44b..dfcd7afd 100644
--- a/extras/contributed/report_tool/reportengine/u_commande.pas
+++ b/extras/contributed/report_tool/reportengine/u_commande.pas
@@ -251,6 +251,7 @@ type
       FSize: string;
     public
       constructor Create(AFonte: string; AColor: TfpgColor); virtual;
+      destructor Destroy; override;
       function GetHeight: Integer;
       property GetFonte: TfpgFont read FFonte;
       property GetColor: TfpgColor read FColor;
@@ -736,6 +737,12 @@ FColor:= AColor;
 FSize:= ExtractFontSize(AFonte);
 end;
 
+destructor T_Fonte.Destroy;
+begin
+  FFonte.Free;
+  inherited Destroy;
+end;
+
 function T_Fonte.GetHeight: Integer;
 begin
 Result:= TfpgFont(FFonte).Height;