diff options
author | Jean-Marc Levecque <jean-marc.levecque@jmlesite.fr> | 2011-10-16 17:11:16 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-10-16 17:11:16 +0200 |
commit | a64ab297c65d7936248752f27559951c42aa3063 (patch) | |
tree | 8c5892af4d114fa51557e198239ff83cc3956ca4 /extras/contributed/report_tool/reportengine/u_imprime.pas | |
parent | 9c0a644df44547bf6dd9cf0a1250084b237eeae4 (diff) | |
download | fpGUI-a64ab297c65d7936248752f27559951c42aa3063.tar.xz |
Various PDF reporting changes.
- Fixed some memory leaks by correctly freeing objects
- Updated the PDF Demo to use a local reporting variable
- Removed the global Imprime variable
- Some various other changes
Diffstat (limited to 'extras/contributed/report_tool/reportengine/u_imprime.pas')
-rw-r--r-- | extras/contributed/report_tool/reportengine/u_imprime.pas | 54 |
1 files changed, 1 insertions, 53 deletions
diff --git a/extras/contributed/report_tool/reportengine/u_imprime.pas b/extras/contributed/report_tool/reportengine/u_imprime.pas index 87b304e1..9f706924 100644 --- a/extras/contributed/report_tool/reportengine/u_imprime.pas +++ b/extras/contributed/report_tool/reportengine/u_imprime.pas @@ -413,8 +413,6 @@ type end; var - Imprime: T_Imprime; - Infos: record Titre: string; Auteur: string; @@ -444,7 +442,6 @@ uses const PPI= 72; InchToMM= 25.4; - Cent= 100; function T_Imprime.Dim2Pixels(Value: Single): Single; begin @@ -712,48 +709,6 @@ with F_Visu do end; end; -procedure LibereCommandesPages(ACommandes: PPage); -var - Cpt: Integer; -begin -with T_Page(ACommandes) do - if Commandes.Count> 0 - then - begin - for Cpt:= 0 to Pred(Commandes.Count) do - T_Commande(Commandes[Cpt]).Free; - Commandes.Free; - end; -end; - -procedure LiberePages(APageSect: PSection); -var - Cpt: Integer; -begin -with T_Section(APageSect) do - if Pages.Count> 0 - then - begin - for Cpt:= 0 to Pred(Pages.Count) do - LibereCommandesPages(Pages[Cpt]); - Pages.Free; - end; -end; - -procedure LibereColonnes(AColSect: PSection); -var - Cpt: Integer; -begin -with T_Section(AColSect) do - if Colonnes.Count> 0 - then - begin - for Cpt:= 0 to Pred(Colonnes.Count) do - T_Colonne(Colonnes[Cpt]).Free; - Colonnes.Free; - end; -end; - procedure T_Imprime.ImprimePage(PageNumero: Integer); var CptSect,CptPage,CptCmd: Integer; @@ -2140,13 +2095,8 @@ var begin if Sections.Count> 0 then - begin for Cpt:= 0 to Pred(Sections.Count) do - begin - LiberePages(Sections[Cpt]); - LibereColonnes(Sections[Cpt]); - end; - end; + T_Section(Sections[Cpt]).Free; Sections.Free; if Fontes.Count> 0 then @@ -2736,8 +2686,6 @@ then end; procedure T_Imprime.FinGroupe(SautPage: Boolean= False); -var - Cpt: Integer; begin T_Section(Sections[Pred(Sections.Count)]).LoadCmdGroupeToPage; FGroupe:= False; |