diff options
| author | Jean-Marc Levecque <jean-marc.levecque@jmlesite.fr> | 2011-10-25 11:18:43 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-10-25 12:21:58 +0200 |
| commit | 6a68cf407df9149eafaee368cbb990567ddf714a (patch) | |
| tree | e64a8b3a1055e1a06873bfc79a7bbd6d0f541fe2 /extras/contributed | |
| parent | b48624daa2ac25d1656ea6b45dace387df9ca626 (diff) | |
| download | fpGUI-6a68cf407df9149eafaee368cbb990567ddf714a.tar.xz | |
pdf reports: fixed some memory leaks
Diffstat (limited to 'extras/contributed')
| -rw-r--r-- | extras/contributed/report_tool/reportengine/u_imprime.pas | 5 | ||||
| -rw-r--r-- | extras/contributed/report_tool/reportengine/u_pdf.pas | 2 |
2 files changed, 5 insertions, 2 deletions
diff --git a/extras/contributed/report_tool/reportengine/u_imprime.pas b/extras/contributed/report_tool/reportengine/u_imprime.pas index 9f706924..6952ee3f 100644 --- a/extras/contributed/report_tool/reportengine/u_imprime.pas +++ b/extras/contributed/report_tool/reportengine/u_imprime.pas @@ -2125,6 +2125,7 @@ then Bords.Free; Textes.Free; ALigne.Free; +PdfPage.Free; DecimalSeparator:= OldSeparator; inherited; end; @@ -2139,7 +2140,9 @@ FMesure:= IniMesure; FPreparation:= ppPrepare; FVisualisation:= IniVisu; PrepareFormat; -CreateVisu; +if IniVisu +then + CreateVisu; FFonteCourante:= -1; FInterLCourante:= -1; FGroupe:= False; diff --git a/extras/contributed/report_tool/reportengine/u_pdf.pas b/extras/contributed/report_tool/reportengine/u_pdf.pas index facfd399..29b26973 100644 --- a/extras/contributed/report_tool/reportengine/u_pdf.pas +++ b/extras/contributed/report_tool/reportengine/u_pdf.pas @@ -1448,7 +1448,7 @@ if PdfPage.Count> 0 then for CptPage:= 0 to Pred(PdfPage.Count) do TPdfElement(PdfPage[CptPage]).Free; -PdfPage.Free; +//PdfPage.Free; end; destructor TPdfDocument.Destroy; |