diff options
Diffstat (limited to 'extras/contributed')
| -rw-r--r-- | extras/contributed/report_tool/demo/u_demo.pas | 461 | ||||
| -rw-r--r-- | extras/contributed/report_tool/reportengine/u_imprime.pas | 260 | ||||
| -rw-r--r-- | extras/contributed/report_tool/reportengine/u_visu.pas | 160 |
3 files changed, 441 insertions, 440 deletions
diff --git a/extras/contributed/report_tool/demo/u_demo.pas b/extras/contributed/report_tool/demo/u_demo.pas index 7853e4b1..98a707a7 100644 --- a/extras/contributed/report_tool/demo/u_demo.pas +++ b/extras/contributed/report_tool/demo/u_demo.pas @@ -125,7 +125,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin -// Langue:= Version; +// Language:= Version; ImprimeEmptyPage(False); if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 then @@ -177,7 +177,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin -// Langue:= Version; +// Language:= Version; ImprimeSimpleText(False); if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 then @@ -229,7 +229,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin -// Langue:= Version; +// Language:= Version; ImprimeMultiPages(False); if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 then @@ -281,7 +281,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin -// Langue:= Version; +// Language:= Version; ImprimeMultiSections(False); if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 then @@ -333,7 +333,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin -// Langue:= Version; +// Language:= Version; ImprimeOutlines(False); if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 then @@ -385,7 +385,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin -// Langue:= Version; +// Language:= Version; ImprimeCadres(False); if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 then @@ -437,7 +437,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin -// Langue:= Version; +// Language:= Version; ImprimeColor(False); if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 then @@ -489,7 +489,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin -// Langue:= Version; +// Language:= Version; ImprimeLines(False); if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 then @@ -541,7 +541,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin -// Langue:= Version; +// Language:= Version; ImprimeGrid(False); if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 then @@ -593,7 +593,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin -// Langue:= Version; +// Language:= Version; ImprimeGraph(False); if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 then @@ -645,7 +645,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin -// Langue:= Version; +// Language:= Version; ImprimeSurf(False); if T_Section(Sections[Pred(Sections.Count)]).TotPages= 0 then @@ -693,7 +693,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin - //Langue:= Version; + //Language:= Version; DefaultFile:= 'EmptyPage.pdf'; ImprimeEmptyPage(True); Free; @@ -705,7 +705,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin - //Langue:= Version; + //Language:= Version; DefaultFile:= 'SimpleText.pdf'; ImprimeSimpleText(True); Free; @@ -717,7 +717,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin - //Langue:= Version; + //Language:= Version; DefaultFile:= 'MultiPages.pdf'; ImprimeMultiPages(True); Free; @@ -729,7 +729,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin - //Langue:= Version; + //Language:= Version; DefaultFile:= 'MultiSections.pdf'; ImprimeMultiSections(True); Free; @@ -741,7 +741,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin - //Langue:= Version; + //Language:= Version; DefaultFile:= 'Outlines.pdf'; ImprimeOutlines(True); Free; @@ -753,7 +753,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin - //Langue:= Version; + //Language:= Version; DefaultFile:= 'Cadres.pdf'; ImprimeCadres(True); Free; @@ -765,7 +765,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin - //Langue:= Version; + //Language:= Version; DefaultFile:= 'Color.pdf'; ImprimeColor(True); Free; @@ -777,7 +777,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin - //Langue:= Version; + //Language:= Version; DefaultFile:= 'Lines.pdf'; ImprimeLines(True); Free; @@ -789,7 +789,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin - //Langue:= Version; + //Language:= Version; DefaultFile:= 'Grid.pdf'; ImprimeGrid(True); Free; @@ -801,7 +801,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin - //Langue:= Version; + //Language:= Version; DefaultFile:= 'Graph.pdf'; ImprimeGraph(True); Free; @@ -813,7 +813,7 @@ begin FImprime:= T_Imprime.Create; with FImprime do begin - //Langue:= Version; + //Language:= Version; DefaultFile:= 'Surface.pdf'; ImprimeSurf(True); Free; @@ -885,13 +885,13 @@ begin with FImprime do begin // define orientation, page format, measurement unit, language, preview (true) or print (false) - Debut(oPortrait,A4,msMM,Langue,Preview); + BeginWrite(oPortrait,A4,msMM,Langue,Preview); // create a new section and define the margins Section(0,0,0,0); // create an empty page Page; // preparation is finished, so create PDF objects - Fin; + EndWrite; end; end; @@ -902,23 +902,23 @@ begin with FImprime do begin // define orientation, page format, measurement unit, language, preview (true) or print (false) - Debut(oPortrait,A4,msMM,Langue,Preview); + BeginWrite(oPortrait,A4,msMM,Langue,Preview); // create a new section and define the margins: 10 mm each side Section(10,10,10,10); // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTexte1:= Fonte('helvetica-15:bold',clBlack); - FtTexte2:= Fonte('helvetica-8',clBlack); - FtTexte3:= Fonte('helvetica-8:italic',clBlack); + FtTexte1:= Font('helvetica-15:bold',clBlack); + FtTexte2:= Font('helvetica-8',clBlack); + FtTexte3:= Font('helvetica-8:italic',clBlack); // write the text at position 100 mm from left and 120 mm from top - EcritPage(100,120,'Big text at absolute position',-1,FtTexte1); + WritePage(100,120,'Big text at absolute position',-1,FtTexte1); // write the text aligned to left - EcritPage(cnLeft,50,'Text aligned to left',ColDefaut,FtTexte2); + WritePage(cnLeft,50,'Text aligned to left',ColDefaut,FtTexte2); // write the text aligned to right - EcritPage(cnRight,75,'Text aligned to right',ColDefaut,FtTexte3); + WritePage(cnRight,75,'Text aligned to right',ColDefaut,FtTexte3); // write the text aligned to center - EcritPage(cnCenter,100,'Text aligned to center',ColDefaut,FtTexte2); + WritePage(cnCenter,100,'Text aligned to center',ColDefaut,FtTexte2); // preparation is finished, so create PDF objects - Fin; + EndWrite; end; end; @@ -930,21 +930,21 @@ begin with FImprime do begin // define orientation, page format, measurement unit, language, preview (true) or print (false) - Debut(oPortrait,A4,msMM,Langue,Preview); + BeginWrite(oPortrait,A4,msMM,Langue,Preview); // create a new section and define the margins Section(20,10,10,10); // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitre:= Fonte('helvetica-15:bold',clBlack); - FtTexte:= Fonte('helvetica-8',clBlack); + FtTitre:= Font('helvetica-15:bold',clBlack); + FtTexte:= Font('helvetica-8',clBlack); // write title on each page - EcritEnTete(cnCenter,lnFin,'MULTIPAGE DOCUMENT',ColDefaut,FtTitre); + WriteHeader(cnCenter,lnFin,'MULTIPAGE DOCUMENT',ColDefaut,FtTitre); // write page number and total of pages on each page - NumPagePied(cnRight,lnFin,'Page','of',True,ColDefaut,FtTexte); + NumPageFooter(cnRight,lnFin,'Page','of',True,ColDefaut,FtTexte); // create five new empty pages for Cpt:= 1 to 5 do Page; // preparation is finished, so create PDF objects - Fin; + EndWrite; end; end; @@ -957,24 +957,24 @@ begin with FImprime do begin // define orientation, page format, measurement unit, language, preview (true) or print (false) - Debut(oPortrait,A4,msMM,Langue,Preview); + BeginWrite(oPortrait,A4,msMM,Langue,Preview); // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitreS1:= Fonte('helvetica-15:bold',clBlack); - FtTitreS2:= Fonte('helvetica-14:italic',clBlack); - FtTitreS3:= Fonte('helvetica-12:bold:italic',clBlack); - FtTexte:= Fonte('helvetica-8',clBlack); - FtNum:= Fonte('helvetica-7:italic',clBlack); - FtNumS:= Fonte('helvetica-7:italic',clGray); + FtTitreS1:= Font('helvetica-15:bold',clBlack); + FtTitreS2:= Font('helvetica-14:italic',clBlack); + FtTitreS3:= Font('helvetica-12:bold:italic',clBlack); + FtTexte:= Font('helvetica-8',clBlack); + FtNum:= Font('helvetica-7:italic',clBlack); + FtNumS:= Font('helvetica-7:italic',clGray); // create a new section and define the margins Section(20,10,10,10); // write title on each page of the section - EcritEnTete(cnCenter,lnFin,'MULTI SECTION DOCUMENT',ColDefaut,FtTitreS1); + WriteHeader(cnCenter,lnFin,'MULTI SECTION DOCUMENT',ColDefaut,FtTitreS1); // write section number and total of sections on each page - NumSectionEnTete(cnRight,lnFin,'Section','of',True,False,ColDefaut,FtNum); + NumSectionHeader(cnRight,lnFin,'Section','of',True,False,ColDefaut,FtNum); // write page number for the section and total pages of the section on each page - NumPageSectionPied(cnCenter,lnFin,'Section page','of',True,False,ColDefaut,FtNumS); + NumPageSectionFooter(cnCenter,lnFin,'Section page','of',True,False,ColDefaut,FtNumS); // write page number and total of pages on each page - NumPagePied(cnCenter,lnFin,'Page','of',True,ColDefaut,FtNum); + NumPageFooter(cnCenter,lnFin,'Page','of',True,ColDefaut,FtNum); // create some new empty pages in the section for Cpt:= 1 to 3 do Page; @@ -982,15 +982,15 @@ with FImprime do // create a new section and define the margins Section(10,10,10,10,0,oLandscape); // create a default column for section2 which is landscape oriented - ColDefSect2:= Colonne(20,257); + ColDefSect2:= Column(20,257); // write title on each page of the section - EcritEnTete(cnCenter,lnFin,'MULTI SECTION DOCUMENT',ColDefSect2,FtTitreS2); + WriteHeader(cnCenter,lnFin,'MULTI SECTION DOCUMENT',ColDefSect2,FtTitreS2); // write section number and total of sections on each page - NumSectionEnTete(cnRight,lnFin,'Section','of',True,False,ColDefSect2,FtNum); + NumSectionHeader(cnRight,lnFin,'Section','of',True,False,ColDefSect2,FtNum); // write page number for the section and total pages of the section on each page - NumPageSectionEnTete(cnCenter,lnFin,'Section page','of',True,True,ColDefSect2,FtNumS); + NumPageSectionHeader(cnCenter,lnFin,'Section page','of',True,True,ColDefSect2,FtNumS); // write page number and total of pages on each page - NumPagePied(cnCenter,lnFin,'Page','of',True,ColDefSect2,FtNum); + NumPageFooter(cnCenter,lnFin,'Page','of',True,ColDefSect2,FtNum); // create some new empty pages in the section for Cpt:= 1 to 2 do Page; @@ -998,19 +998,19 @@ with FImprime do // create a new section and define the margins Section(20,20,20,20); // write title on each page of the section - EcritEnTete(cnCenter,lnFin,'MULTI SECTION DOCUMENT',ColDefaut,FtTitreS3); + WriteHeader(cnCenter,lnFin,'MULTI SECTION DOCUMENT',ColDefaut,FtTitreS3); // write section number and total of sections on each page - NumSectionEnTete(cnRight,lnFin,'Section','of',True,True,ColDefaut,FtNum); + NumSectionHeader(cnRight,lnFin,'Section','of',True,True,ColDefaut,FtNum); // write page number for the section and total pages of the section on each page - NumPageSectionEnTete(cnCenter,lnFin,'Section page','of',True,False,ColDefaut,FtNumS); + NumPageSectionHeader(cnCenter,lnFin,'Section page','of',True,False,ColDefaut,FtNumS); // write page number and total of pages on each page - NumPagePied(cnCenter,lnFin,'Page','of',True,ColDefaut,FtNum); + NumPageFooter(cnCenter,lnFin,'Page','of',True,ColDefaut,FtNum); // create some new empty pages in the section for Cpt:= 1 to 4 do Page; // preparation is finished, so create PDF objects - Fin; + EndWrite; end; end; @@ -1023,39 +1023,39 @@ begin with FImprime do begin // define orientation, page format, measurement unit, language, preview (true) or print (false) - Debut(oPortrait,A4,msMM,Langue,Preview); + BeginWrite(oPortrait,A4,msMM,Langue,Preview); // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitreS1:= Fonte('helvetica-15:bold',clBlack); - FtTitreS2:= Fonte('helvetica-14:italic',clBlack); - FtTitreS3:= Fonte('helvetica-12:bold:italic',clBlack); - FtTexte:= Fonte('helvetica-8',clBlack); - FtNum:= Fonte('helvetica-7:italic',clBlack); - FtNumS:= Fonte('helvetica-7:italic',clGray); + FtTitreS1:= Font('helvetica-15:bold',clBlack); + FtTitreS2:= Font('helvetica-14:italic',clBlack); + FtTitreS3:= Font('helvetica-12:bold:italic',clBlack); + FtTexte:= Font('helvetica-8',clBlack); + FtNum:= Font('helvetica-7:italic',clBlack); + FtNumS:= Font('helvetica-7:italic',clGray); // create a new section and define the margins Section(20,10,10,10); // write title on each page of the section - EcritEnTete(cnCenter,lnFin,'MULTI SECTION DOCUMENT',ColDefaut,FtTitreS1); + WriteHeader(cnCenter,lnFin,'MULTI SECTION DOCUMENT',ColDefaut,FtTitreS1); // write section number and total of sections on each page - NumSectionEnTete(cnRight,lnFin,'Section','of',True,False,ColDefaut,FtNum); + NumSectionHeader(cnRight,lnFin,'Section','of',True,False,ColDefaut,FtNum); // write page number for the section and total pages of the section on each page - NumPageSectionPied(cnCenter,lnFin,'Section page','of',True,False,ColDefaut,FtNumS); + NumPageSectionFooter(cnCenter,lnFin,'Section page','of',True,False,ColDefaut,FtNumS); // write page number and total of pages on each page - NumPagePied(cnCenter,lnFin,'Page','of',True,ColDefaut,FtNum); + NumPageFooter(cnCenter,lnFin,'Page','of',True,ColDefaut,FtNum); // create some new empty pages in the section for Cpt:= 1 to 3 do Page; // create a new section and define the margins Section(10,10,10,10,0,oLandscape); - TitreSection:= 'Landscape oriented'; + SectionTitle:= 'Landscape oriented'; // write title on each page of the section - EcritEnTete(cnCenter,lnFin,'MULTI SECTION DOCUMENT',ColDefaut,FtTitreS2); + WriteHeader(cnCenter,lnFin,'MULTI SECTION DOCUMENT',ColDefaut,FtTitreS2); // write section number and total of sections on each page - NumSectionEnTete(cnRight,lnFin,'Section','of',True,False,ColDefaut,FtNum); + NumSectionHeader(cnRight,lnFin,'Section','of',True,False,ColDefaut,FtNum); // write page number for the section and total pages of the section on each page - NumPageSectionEnTete(cnCenter,lnFin,'Section page','of',True,True,ColDefaut,FtNumS); + NumPageSectionHeader(cnCenter,lnFin,'Section page','of',True,True,ColDefaut,FtNumS); // write page number and total of pages on each page - NumPagePied(cnCenter,lnFin,'Page','of',True,ColDefaut,FtNum); + NumPageFooter(cnCenter,lnFin,'Page','of',True,ColDefaut,FtNum); // create some new empty pages in the section for Cpt:= 1 to 2 do Page; @@ -1063,20 +1063,20 @@ with FImprime do // create a new section and define the margins Section(20,20,20,20); // write title on each page of the section - EcritEnTete(cnCenter,lnFin,'MULTI SECTION DOCUMENT',ColDefaut,FtTitreS3); + WriteHeader(cnCenter,lnFin,'MULTI SECTION DOCUMENT',ColDefaut,FtTitreS3); // write section number and total of sections on each page - NumSectionEnTete(cnRight,lnFin,'Section','of',True,True,ColDefaut,FtNum); + NumSectionHeader(cnRight,lnFin,'Section','of',True,True,ColDefaut,FtNum); // write page number for the section and total pages of the section on each page - NumPageSectionEnTete(cnCenter,lnFin,'Section page','of',True,False,ColDefaut,FtNumS); + NumPageSectionHeader(cnCenter,lnFin,'Section page','of',True,False,ColDefaut,FtNumS); // write page number and total of pages on each page - NumPagePied(cnCenter,lnFin,'Page','of',True,ColDefaut,FtNum); + NumPageFooter(cnCenter,lnFin,'Page','of',True,ColDefaut,FtNum); // create some new empty pages in the section for Cpt:= 1 to 4 do Page; // preparation is finished, so create PDF objects Outline:= True; - Fin; + EndWrite; end; end; @@ -1089,32 +1089,33 @@ begin with FImprime do begin // define orientation, page format, measurement unit, language, preview (true) or print (false) - Debut(oPortrait,A4,msMM,Langue,Preview); + BeginWrite(oPortrait,A4,msMM,Langue,Preview); // create a new section and define the margins with an additional one due to frames drawing Section(20,10,10,10,5); // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitre:= Fonte('helvetica-15:bold',clBlack); - FtTexte:= Fonte('helvetica-8',clBlack); + FtTitre:= Font('helvetica-15:bold',clBlack); + FtTexte:= Font('helvetica-8',clBlack); // create the style of lines to be used - TsFin:= StyleTrait(0.2,clBlack,lsSolid); - TsNorm:= StyleTrait(1,clBlack,lsSolid); - TsEpais:= StyleTrait(2,clBlack,lsSolid); + TsFin:= LineStyle(0.2,clBlack,lsSolid); + TsNorm:= LineStyle(1,clBlack,lsSolid); + TsEpais:= LineStyle(2,clBlack,lsSolid); // create line spacings to be used - IlTitre:= Interligne(3,0,3); - IlTexte:= Interligne(1,0,1); + IlTitre:= LineSpace(3,0,3); + IlTexte:= LineSpace(1,0,1); // write title on each page - EcritEnTete(cnCenter,lnFin,'SHOWING FRAMES',ColDefaut,FtTitre,IlTitre); + WriteHeader(cnCenter,lnFin,'SHOWING FRAMES',ColDefaut,FtTitre,IlTitre); // write page number and total of pages on each page - NumPagePied(cnRight,lnFin,'Page','of',True,ColDefaut,FtTexte,IlTexte); + NumPageFooter(cnRight,lnFin,'Page','of',True,ColDefaut,FtTexte,IlTexte); // draw thin frame rectangle at margins // CadreMarges(TsFin); // draw thick frame rectangle at header - CadreEnTete(TsEpais); + FrameHeader(TsEpais); // draw thick frame rectangle at footer - CadrePied(TsNorm); - CadrePage(TsEpais); + FramePage(TsNorm); + // draw normal frame rectangle at page + FrameFooter(TsEpais); // preparation is finished, so create PDF objects - Fin; + EndWrite; end; end; @@ -1130,52 +1131,52 @@ begin with FImprime do begin // define orientation, page format, measurement unit, language, preview (true) or print (false) - Debut(oPortrait,A4,msMM,Langue,Preview); + BeginWrite(oPortrait,A4,msMM,Langue,Preview); // create a new section and define the margins with an additional one due to frames drawing Section(20,10,10,10); // create the filling colors to be used - FdBlanc:= Fond(clWhite); - FdBeige:= Fond(clBeige); - FdEau:= Fond(clAqua); - FdVertPale:= Fond(clPaleGreen); + FdBlanc:= BackColor(clWhite); + FdBeige:= BackColor(clBeige); + FdEau:= BackColor(clAqua); + FdVertPale:= BackColor(clPaleGreen); // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitre:= Fonte('helvetica-15:bold',clBlack); - FtNormBlack:= Fonte('helvetica-8',clBlack); - FtNormRed:= Fonte('helvetica-8',clRed); - FtNormGreen:= Fonte('helvetica-8',clGreen); - FtBoldBlue:= Fonte('helvetica-8:bold',clBlue); - FtItalGray:= Fonte('helvetica-8:italic',clGray); - FtBoldItalFuchsia:= Fonte('helvetica-8:bold:italic',clFuchsia); + FtTitre:= Font('helvetica-15:bold',clBlack); + FtNormBlack:= Font('helvetica-8',clBlack); + FtNormRed:= Font('helvetica-8',clRed); + FtNormGreen:= Font('helvetica-8',clGreen); + FtBoldBlue:= Font('helvetica-8:bold',clBlue); + FtItalGray:= Font('helvetica-8:italic',clGray); + FtBoldItalFuchsia:= Font('helvetica-8:bold:italic',clFuchsia); // create the style of lines to be used - TsFinNoir:= StyleTrait(1,clBlack,lsSolid); - TsFinBleu:= StyleTrait(1,clBlue,lsSolid); - TsFinRouge:= StyleTrait(1,clRed,lsSolid); - TsEpaisNoir:= StyleTrait(3,clBlack,lsSolid); - TsEpaisGris:= StyleTrait(3,clGray,lsdot); - TsEpaisGreen:= StyleTrait(3,clGreen,lsSolid); + TsFinNoir:= LineStyle(1,clBlack,lsSolid); + TsFinBleu:= LineStyle(1,clBlue,lsSolid); + TsFinRouge:= LineStyle(1,clRed,lsSolid); + TsEpaisNoir:= LineStyle(3,clBlack,lsSolid); + TsEpaisGris:= LineStyle(3,clGray,lsdot); + TsEpaisGreen:= LineStyle(3,clGreen,lsSolid); // create columns to be used - Col1:= Colonne(20,100,2); - Col2:= Colonne(120,80,1); - Col3:= Colonne(70,100,5); + Col1:= Column(20,100,2); + Col2:= Column(120,80,1); + Col3:= Column(70,100,5); // create line spacings to be used - IlTitre:= Interligne(5,0,5); - IlTexte:= Interligne(0,0,0); + IlTitre:= LineSpace(5,0,5); + IlTexte:= LineSpace(0,0,0); // write title on each page - EcritEnTete(cnCenter,lnFin,'SHOWING COLORS',ColDefaut,FtTitre,IlTitre); + WriteHeader(cnCenter,lnFin,'SHOWING COLORS',ColDefaut,FtTitre,IlTitre); // write page number and total of pages on each page - NumPagePied(cnRight,lnFin,'Page','of',True,ColDefaut,FtNormRed,IlTexte); + NumPageFooter(cnRight,lnFin,'Page','of',True,ColDefaut,FtNormRed,IlTexte); // write some example texts - EcritPage(cnLeft,lnFin,'Bold blue text aligned to left',ColDefaut,FtBoldBlue,IlTexte); - EspacePage(10,ColDefaut,FdVertPale); - EcritPage(cnCenter,lnFin,'followed by centered normal black text after a 1 cm colored space',ColDefaut,FtNormBlack,IlTexte); - EspacePage(15); - EcritPage(cnLeft,lnFin,'text written on colored background after a 1.5 cm colored space',ColDefaut,FtItalGray,IlTexte,FdEau); - EspacePage(10); - EcritPage(cnLeft,lnCourante,'This text starts in column 1',Col1,FtNormGreen,IlTexte,FdBeige); - EcritPage(cnLeft,lnFin,'and ends in column 2',Col2,FtBoldItalFuchsia,IlTexte); - EcritPage(cnCenter,lnFin,'And this one is centered in column 3',Col3,FtNormRed,IlTexte,FdBeige); + WritePage(cnLeft,lnFin,'Bold blue text aligned to left',ColDefaut,FtBoldBlue,IlTexte); + SpacePage(10,ColDefaut,FdVertPale); + WritePage(cnCenter,lnFin,'followed by centered normal black text after a 1 cm colored space',ColDefaut,FtNormBlack,IlTexte); + SpacePage(15); + WritePage(cnLeft,lnFin,'text written on colored background after a 1.5 cm colored space',ColDefaut,FtItalGray,IlTexte,FdEau); + SpacePage(10); + WritePage(cnLeft,lnCourante,'This text starts in column 1',Col1,FtNormGreen,IlTexte,FdBeige); + WritePage(cnLeft,lnFin,'and ends in column 2',Col2,FtBoldItalFuchsia,IlTexte); + WritePage(cnCenter,lnFin,'And this one is centered in column 3',Col3,FtNormRed,IlTexte,FdBeige); // preparation is finished, so create PDF objects - Fin; + EndWrite; end; end; @@ -1190,45 +1191,45 @@ begin with FImprime do begin // define orientation, page format, measurement unit, language, preview (true) or print (false) - Debut(oPortrait,A4,msMM,Langue,Preview); + BeginWrite(oPortrait,A4,msMM,Langue,Preview); // create a new section and define the margins with an additional one due to frames drawing Section(20,10,10,10); // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitre:= Fonte('helvetica-15:bold',clBlack); - FtTexte:= Fonte('helvetica-8',clBlack); + FtTitre:= Font('helvetica-15:bold',clBlack); + FtTexte:= Font('helvetica-8',clBlack); // create the style of lines to be used - TsFinNoir:= StyleTrait(0.2,clBlack,lsSolid); - TsFinBleu:= StyleTrait(0.1,clBlue,lsDash); - TsEpais:= StyleTrait(2,clBlack,lsSolid); - TsFinRouge:= StyleTrait(1,clRed,lsDashDot); + TsFinNoir:= LineStyle(0.2,clBlack,lsSolid); + TsFinBleu:= LineStyle(0.1,clBlue,lsDash); + TsEpais:= LineStyle(2,clBlack,lsSolid); + TsFinRouge:= LineStyle(1,clRed,lsDashDot); // create line spacings to be used - IlTitre:= Interligne(3,0,3); - IlTexte:= Interligne(0,0,0); + IlTitre:= LineSpace(3,0,3); + IlTexte:= LineSpace(0,0,0); // define column borders - BdRect:= Bordure([bcGauche,bcDroite,bcHaut,bcBas],TsEpais); - BdColn:= Bordure([bcGauche,bcDroite,bcHaut],TsFinBleu); - BdFinCol:= Bordure([bcGauche,bcDroite,bcHaut,bcBas],TsFinNoir); + BdRect:= Border([bcGauche,bcDroite,bcHaut,bcBas],TsEpais); + BdColn:= Border([bcGauche,bcDroite,bcHaut],TsFinBleu); + BdFinCol:= Border([bcGauche,bcDroite,bcHaut,bcBas],TsFinNoir); // create columns to be used - Col1:= Colonne(20,60,2); - Col2:= Colonne(80,60,2); - Col3:= Colonne(140,60,2); + Col1:= Column(20,60,2); + Col2:= Column(80,60,2); + Col3:= Column(140,60,2); // write title on each page - EcritEnTete(cnCenter,lnFin,'SHOWING LINES',ColDefaut,FtTitre,IlTitre); + WriteHeader(cnCenter,lnFin,'SHOWING LINES',ColDefaut,FtTitre,IlTitre); // write page number and total of pages on each page - NumPagePied(cnRight,lnFin,'Page','of',True,ColDefaut,FtTexte,IlTexte); + NumPageFooter(cnRight,lnFin,'Page','of',True,ColDefaut,FtTexte,IlTexte); // write some example texts with column borders - EcritPage(cnLeft,lnCourante,'Example of lines',Col1,FtTexte,IlTexte,-1,BdColn); - EcritPage(cnLeft,lnCourante,'with column borders',Col2,FtTexte,IlTexte,-1,BdFinCol); - EcritPage(cnLeft,lnFin,'',Col3,FtTexte); - EspacePage(5); - EcritPage(cnLeft,lnFin,'A thick border',Col3,FtTexte,IlTexte,-1,BdRect); - TraitHorizPage(2,2,Col2,TsEpais); - TraitPage(30,100,150,150,tsFinNoir); - TraitPage(50,70,180,100,tsFinBleu); - TraitPage(40,140,160,80,tsFinRouge); - TraitPage(60,50,60,120,tsEpais); + WritePage(cnLeft,lnCourante,'Example of lines',Col1,FtTexte,IlTexte,-1,BdColn); + WritePage(cnLeft,lnCourante,'with column borders',Col2,FtTexte,IlTexte,-1,BdFinCol); + WritePage(cnLeft,lnFin,'',Col3,FtTexte); + SpacePage(5); + WritePage(cnLeft,lnFin,'A thick border',Col3,FtTexte,IlTexte,-1,BdRect); + HorizLinePage(2,2,Col2,TsEpais); + LinePage(30,100,150,150,tsFinNoir); + LinePage(50,70,180,100,tsFinBleu); + LinePage(40,140,160,80,tsFinRouge); + LinePage(60,50,60,120,tsEpais); // preparation is finished, so create PDF objects - Fin; + EndWrite; end; end; @@ -1257,59 +1258,59 @@ begin with FImprime do begin // define orientation, page format, measurement unit, language, preview (true) or print (false) - Debut(oPortrait,A4,msMM,Langue,Preview); + BeginWrite(oPortrait,A4,msMM,Langue,Preview); // create a new section and define the margins with an additional one due to frames drawing Section(20,10,10,10); // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitre:= Fonte('helvetica-15:bold',clBlack); - FtTexte:= Fonte('helvetica-7',clBlack); - FtTexteBlue:= Fonte('helvetica-7',clBlue); - FtTexteRed:= Fonte('helvetica-7',clRed); - FtSTitre:= Fonte('helvetica-9:bold:italic',clBlue); + FtTitre:= Font('helvetica-15:bold',clBlack); + FtTexte:= Font('helvetica-7',clBlack); + FtTexteBlue:= Font('helvetica-7',clBlue); + FtTexteRed:= Font('helvetica-7',clRed); + FtSTitre:= Font('helvetica-9:bold:italic',clBlue); // create the style of lines to be used - TsFinNoir:= StyleTrait(0.5,clBlack,lsSolid); - TsEpaisBleu:= StyleTrait(1.5,clBlue,lsSolid); + TsFinNoir:= LineStyle(0.5,clBlack,lsSolid); + TsEpaisBleu:= LineStyle(1.5,clBlue,lsSolid); // create line spacings to be used - IlTitre:= Interligne(3,0,3); - IlTexte:= Interligne(1,0,0); + IlTitre:= LineSpace(3,0,3); + IlTexte:= LineSpace(1,0,0); // define column background color - FdBeige:= Fond(clBeige); + FdBeige:= BackColor(clBeige); // define column borders - BdColn:= Bordure([bcGauche,bcDroite],TsFinNoir); - BdColnG:= Bordure([bcGauche],TsEpaisBleu); - BdColnD:= Bordure([bcDroite],TsEpaisBleu); + BdColn:= Border([bcGauche,bcDroite],TsFinNoir); + BdColnG:= Border([bcGauche],TsEpaisBleu); + BdColnD:= Border([bcDroite],TsEpaisBleu); // create columns to be used - Col[1]:= Colonne(Col1Pos,Col1Wid,2); - Col[2]:= Colonne(Col2Pos,Col2Wid,2); - Col[3]:= Colonne(Col3Pos,Col3Wid,2); - Col[4]:= Colonne(Col4Pos,Col4Wid,2); - Col[5]:= Colonne(Col5Pos,Col5Wid,2); + Col[1]:= Column(Col1Pos,Col1Wid,2); + Col[2]:= Column(Col2Pos,Col2Wid,2); + Col[3]:= Column(Col3Pos,Col3Wid,2); + Col[4]:= Column(Col4Pos,Col4Wid,2); + Col[5]:= Column(Col5Pos,Col5Wid,2); // write title on each page - EcritEnTete(cnCenter,lnFin,'SHOWING GRIDS',ColDefaut,FtTitre,IlTitre); + WriteHeader(cnCenter,lnFin,'SHOWING GRIDS',ColDefaut,FtTitre,IlTitre); // write page number and total of pages on each page - NumPagePied(cnRight,lnFin,'Page','of',True,ColDefaut,FtTexte,IlTexte); + NumPageFooter(cnRight,lnFin,'Page','of',True,ColDefaut,FtTexte,IlTexte); // write a grid without borders - EcritPage(cnCenter,lnFin,'Grid without borders',ColDefaut,FtSTitre,IlTitre); + WritePage(cnCenter,lnFin,'Grid without borders',ColDefaut,FtSTitre,IlTitre); for CptLig:= 1 to 10 do for CptCol:= 1 to 5 do if CptCol= 5 then - EcritPage(cnLeft,lnFin,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexte,IlTexte) + WritePage(cnLeft,lnFin,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexte,IlTexte) else - EcritPage(cnLeft,lnCourante,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexte,IlTexte); - EspacePage(5); + WritePage(cnLeft,lnCourante,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexte,IlTexte); + SpacePage(5); // write a grid with borders - PosHoriz:= EcritPage(cnCenter,lnFin,'Grid with borders and colors',ColDefaut,FtSTitre,IlTitre); - TraitPage(Col1Pos,PosHoriz,Col5Pos+Col5Wid,PosHoriz,TsEpaisBleu); + PosHoriz:= WritePage(cnCenter,lnFin,'Grid with borders and colors',ColDefaut,FtSTitre,IlTitre); + LinePage(Col1Pos,PosHoriz,Col5Pos+Col5Wid,PosHoriz,TsEpaisBleu); for CptLig:= 1 to 10 do for CptCol:= 1 to 5 do if CptCol= 1 then if CptLig mod 2= 0 then - EcritPage(cnLeft,lnCourante,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexte,IlTexte,FdBeige,BdColnG) + WritePage(cnLeft,lnCourante,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexte,IlTexte,FdBeige,BdColnG) else - EcritPage(cnLeft,lnCourante,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexteBlue,IlTexte,-1,BdColnG) + WritePage(cnLeft,lnCourante,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexteBlue,IlTexte,-1,BdColnG) else if CptCol= 5 then @@ -1317,40 +1318,40 @@ with FImprime do then begin PredPosHoriz:= PosHoriz; - PosHoriz:= EcritPage(cnLeft,lnFin,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexteRed,IlTexte,FdBeige,BdColnD); - TraitPage(Col1Pos,PredPosHoriz,Col5Pos+Col5Wid,PredPosHoriz,TsFinNoir); - TraitPage(Col1Pos,PosHoriz,Col5Pos+Col5Wid,PosHoriz,TsEpaisBleu); - TraitPage(Col5Pos,PredPosHoriz,Col5Pos,PosHoriz,TsFinNoir); + PosHoriz:= WritePage(cnLeft,lnFin,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexteRed,IlTexte,FdBeige,BdColnD); + LinePage(Col1Pos,PredPosHoriz,Col5Pos+Col5Wid,PredPosHoriz,TsFinNoir); + LinePage(Col1Pos,PosHoriz,Col5Pos+Col5Wid,PosHoriz,TsEpaisBleu); + LinePage(Col5Pos,PredPosHoriz,Col5Pos,PosHoriz,TsFinNoir); end else begin if CptLig= 1 then - PosHoriz:= EcritPage(cnLeft,lnFin,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexte,IlTexte,-1,BdColnD) + PosHoriz:= WritePage(cnLeft,lnFin,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexte,IlTexte,-1,BdColnD) else if CptLig mod 2= 0 then begin PredPosHoriz:= PosHoriz; - PosHoriz:= EcritPage(cnLeft,lnFin,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexteRed,IlTexte,FdBeige,BdColnD); - TraitPage(Col1Pos,PredPosHoriz,Col5Pos+Col5Wid,PredPosHoriz,TsFinNoir); - TraitPage(Col5Pos,PredPosHoriz,Col5Pos,PosHoriz,TsFinNoir); + PosHoriz:= WritePage(cnLeft,lnFin,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexteRed,IlTexte,FdBeige,BdColnD); + LinePage(Col1Pos,PredPosHoriz,Col5Pos+Col5Wid,PredPosHoriz,TsFinNoir); + LinePage(Col5Pos,PredPosHoriz,Col5Pos,PosHoriz,TsFinNoir); end else begin PredPosHoriz:= PosHoriz; - PosHoriz:= EcritPage(cnLeft,lnFin,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexte,IlTexte,-1,BdColnD); - TraitPage(Col1Pos,PredPosHoriz,Col5Pos+Col5Wid,PredPosHoriz,TsFinNoir); + PosHoriz:= WritePage(cnLeft,lnFin,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexte,IlTexte,-1,BdColnD); + LinePage(Col1Pos,PredPosHoriz,Col5Pos+Col5Wid,PredPosHoriz,TsFinNoir); end; end else if CptLig mod 2= 0 then - EcritPage(cnLeft,lnCourante,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexte,IlTexte,FdBeige,BdColn) + WritePage(cnLeft,lnCourante,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexte,IlTexte,FdBeige,BdColn) else - EcritPage(cnLeft,lnCourante,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexteBlue,IlTexte,-1,BdColn); + WritePage(cnLeft,lnCourante,'line '+IntToStr(CptLig)+' ; column '+IntToStr(CptCol),Col[CptCol],FtTexteBlue,IlTexte,-1,BdColn); // preparation is finished, so create PDF objects - Fin; + EndWrite; end; end; @@ -1366,47 +1367,47 @@ begin with FImprime do begin // define orientation, page format, measurement unit, language, preview (true) or print (false) - Debut(oPortrait,A4,msMM,Langue,Preview); + BeginWrite(oPortrait,A4,msMM,Langue,Preview); // create a new section and define the margins with an additional one due to frames drawing Section(10,10,10,10); // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitre:= Fonte('helvetica-15:bold',clBlack); - FtTexte:= Fonte('helvetica-7',clBlack); - FtMax:= Fonte('helvetica-7',clFuchsia); + FtTitre:= Font('helvetica-15:bold',clBlack); + FtTexte:= Font('helvetica-7',clBlack); + FtMax:= Font('helvetica-7',clFuchsia); // create line spacings to be used - IlTitre:= Interligne(3,0,3); - IlTexte:= Interligne(1,0,0); + IlTitre:= LineSpace(3,0,3); + IlTexte:= LineSpace(1,0,0); // create the style of lines to be used - TsNoir:= StyleTrait(1,clBlack,lsSolid); - TsGris:= StyleTrait(1,clGray,lsDot); - TsBleu:= StyleTrait(1,clBlue,lsSolid); - TsFuchsia:= StyleTrait(1,clFuchsia,lsDot); - EcritEnTete(cnCenter,lnFin,'SHOWING GRAPH',ColDefaut,FtTitre,IlTitre); + TsNoir:= LineStyle(1,clBlack,lsSolid); + TsGris:= LineStyle(1,clGray,lsDot); + TsBleu:= LineStyle(1,clBlue,lsSolid); + TsFuchsia:= LineStyle(1,clFuchsia,lsDot); + WriteHeader(cnCenter,lnFin,'SHOWING GRAPH',ColDefaut,FtTitre,IlTitre); // write page number and total of pages on each page - NumPagePied(cnRight,lnFin,'Page','of',True,ColDefaut,FtTexte,IlTexte); + NumPageFooter(cnRight,lnFin,'Page','of',True,ColDefaut,FtTexte,IlTexte); // draw a graph Max:= 0; - EcritPage(10,Base,'0',-1,FtTexte); - TraitPage(20,Base,200,Base,TsNoir); + WritePage(10,Base,'0',-1,FtTexte); + LinePage(20,Base,200,Base,TsNoir); for Cpt:= 1 to 5 do begin - EcritPage(10,Base-Cpt*20,IntToStr(Cpt),-1,FtTexte); - TraitPage(20,Base-Cpt*20,200,Base-Cpt*20,TsGris); + WritePage(10,Base-Cpt*20,IntToStr(Cpt),-1,FtTexte); + LinePage(20,Base-Cpt*20,200,Base-Cpt*20,TsGris); end; for Cpt:= 0 to 18 do begin if ChartValues[Cpt]> Max then Max:= ChartValues[Cpt]; - EcritPage(18+Cpt*10,Base+5,IntToStr(Cpt),-1,FtTexte); - TraitPage(20+Cpt*10,Base,20+Cpt*10,Base-ChartValues[Cpt],TsGris); + WritePage(18+Cpt*10,Base+5,IntToStr(Cpt),-1,FtTexte); + LinePage(20+Cpt*10,Base,20+Cpt*10,Base-ChartValues[Cpt],TsGris); if Cpt>0 then - TraitPage(20+Pred(Cpt)*10,Base-ChartValues[Pred(Cpt)],20+Cpt*10,Base-ChartValues[Cpt],TsBleu); + LinePage(20+Pred(Cpt)*10,Base-ChartValues[Pred(Cpt)],20+Cpt*10,Base-ChartValues[Cpt],TsBleu); end; - EcritPage(16,Base-Max,IntToStr(Max),-1,FtMax); - TraitPage(20,Base-Max,200,Base-Max,TsFuchsia); + WritePage(16,Base-Max,IntToStr(Max),-1,FtMax); + LinePage(20,Base-Max,200,Base-Max,TsFuchsia); // preparation is finished, so create PDF objects - Fin; + EndWrite; end; end; @@ -1418,23 +1419,23 @@ begin with FImprime do begin // define orientation, page format, measurement unit, language, preview (true) or print (false) - Debut(oPortrait,A4,msMM,Langue,Preview); + BeginWrite(oPortrait,A4,msMM,Langue,Preview); // create a new section and define the margins with an additional one due to frames drawing Section(10,10,10,10); // create the fonts to be used (use one of the 14 Adobe PDF standard fonts) - FtTitre:= Fonte('helvetica-15:bold',clBlack); - FtTexte:= Fonte('helvetica-7',clBlack); + FtTitre:= Font('helvetica-15:bold',clBlack); + FtTexte:= Font('helvetica-7',clBlack); // create line spacings to be used - IlTitre:= Interligne(3,0,3); - IlTexte:= Interligne(1,0,0); - EcritEnTete(cnCenter,lnFin,'SHOWING SURFACE',ColDefaut,FtTitre,IlTitre); + IlTitre:= LineSpace(3,0,3); + IlTexte:= LineSpace(1,0,0); + WriteHeader(cnCenter,lnFin,'SHOWING SURFACE',ColDefaut,FtTitre,IlTitre); // write page number and total of pages on each page - NumPagePied(cnRight,lnFin,'Page','of',True,ColDefaut,FtTexte,IlTexte); + NumPageFooter(cnRight,lnFin,'Page','of',True,ColDefaut,FtTexte,IlTexte); // paint some surfaces SurfPage([40,40,100],[50,110,80],clGreen); SurfPage([30,50,150,80,120,130],[120,180,180,160,140,120],clFuchsia); // preparation is finished, so create PDF objects - Fin; + EndWrite; end; end; diff --git a/extras/contributed/report_tool/reportengine/u_imprime.pas b/extras/contributed/report_tool/reportengine/u_imprime.pas index 3c5ca114..0847f7f6 100644 --- a/extras/contributed/report_tool/reportengine/u_imprime.pas +++ b/extras/contributed/report_tool/reportengine/u_imprime.pas @@ -85,17 +85,17 @@ type public constructor Create; destructor Destroy; override; - procedure Debut(IniOriente: TOrient= oPortrait; IniTypePapier: TTypePapier= A4; + procedure BeginWrite(IniOriente: TOrient= oPortrait; IniTypePapier: TTypePapier= A4; IniMesure: TMesure= msMM; IniVersion: Char= 'F'; IniVisu: Boolean= True); // starts preview and printing process with initializations // IniOriente = paper orientation >> oPortrait or oLandscape // IniTypePapier = (A4, Letter,Legal,Executive,Comm10,Monarch,DL,C5,B5) // IniMesure = millimeters (msMM) or inches (msInches) // IniVersion = version française 'F' or version English 'E', or other, to come - // IniVisu = True (visualisation) or False (direct printing or PDF generation) - procedure Fin; - procedure ImprimeDocument; - procedure Visualisation; + // IniVisu = True (Preview) or False (direct printing or PDF generation) + procedure EndWrite; + procedure WriteDocument; + procedure PagePreview; procedure Section(MgGauche,MgDroite,MgHaute,MgBasse: Single; Retrait: Single= 0; IniOriente: TOrient= oPortrait); // new section with initialization of margins @@ -103,29 +103,29 @@ type // IniOriente = paper orientation >> oPortrait or oLandscape procedure Page; // new page in the current section - function Fond(FdColor: TfpgColor): Integer; + function BackColor(FdColor: TfpgColor): Integer; // returns the number allocated to the color // FdColor = background color - function Fonte(FtNom: string; FtColor: TfpgColor): Integer; + function Font(FtNom: string; FtColor: TfpgColor): Integer; // returns the number allocated to the font // FtNom = FontDesc of the font // FtColor = font color - function StyleTrait(StEpais: Single; StColor: Tfpgcolor; StStyle: TfpgLineStyle): Integer; + function LineStyle(StEpais: Single; StColor: Tfpgcolor; StStyle: TfpgLineStyle): Integer; // returns the number allocated to the line style // StEpais = thickness of the line in pixels // StColor = line color // StStyle = line style - function Bordure(BdFlags: TFBordFlags; BdStyle: Integer): Integer; + function Border(BdFlags: TFBordFlags; BdStyle: Integer): Integer; // returns the number allocated to the border // BdFlags = position of the border (bdTop,bdBottom,bdLeft,bdRight) // BdStyle = border line style: thickness, color, style - function Colonne(ClnPos,ClnWidth: Single; ClnMargin: Single= 0; ClnColor: TfpgColor= clWhite): Integer; + function Column(ClnPos,ClnWidth: Single; ClnMargin: Single= 0; ClnColor: TfpgColor= clWhite): Integer; // returns the number allocated to the column // ClnPos = left position in numeric value in the measurement unit (msMM or msInch) // ClnWidth = width in numeric value in the measurement unit (msMM or msInch) // ClnMargin = left and right margins in numeric value in the measurement unit (msMM or msInch) // ClnColor = column background color - procedure EcritEnTete(Horiz,Verti: Single; Texte: string; ColNum: Integer= 0; FonteNum: Integer= 0; + procedure WriteHeader(Horiz,Verti: Single; Texte: string; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1); // Horiz = horizontal position in column (cnLeft,cnCenter,cnRight) // or numeric value in the measurement unit (msMM or msInch) @@ -137,7 +137,7 @@ type // InterNum = space between lines reference // CoulFdNum = background color reference, if > -1, replaces the column background color if any // BordNum = border reference, if > -1 - function EcritPage(Horiz,Verti: Single; Texte: string; ColNum: Integer= 0; FonteNum: Integer= 0; + function WritePage(Horiz,Verti: Single; Texte: string; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1): Single; // Horiz = horizontal position in column (cnLeft,cnCenter,cnRight) // or numeric value in the measurement unit (msMM or msInch) @@ -149,7 +149,7 @@ type // InterNum = space between lines reference // CoulFdNum = background color reference, if > -1, replaces the column background color if any // BordNum = border reference, if > -1 - procedure EcritPied(Horiz,Verti: Single; Texte: string; ColNum: Integer= 0; FonteNum: Integer= 0; + procedure WriteFooter(Horiz,Verti: Single; Texte: string; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1); // Horiz = horizontal position in column (cnLeft,cnCenter,cnRight) // or numeric value in the measurement unit (msMM or msInch) @@ -161,7 +161,7 @@ type // InterNum = space between lines reference // CoulFdNum = background color reference, if > -1, replaces the column background color if any // BordNum = border reference, if > -1 - procedure NumSectionEnTete(Horiz,Verti: Single; TexteSect: string= ''; TexteTot: string= ''; + procedure NumSectionHeader(Horiz,Verti: Single; TexteSect: string= ''; TexteTot: string= ''; Total: Boolean= False; Alpha: Boolean= False; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1); // Horiz = horizontal position in column (cnLeft,cnCenter,cnRight) @@ -177,7 +177,7 @@ type // InterNum = space between lines reference // CoulFdNum = background color reference, if > -1, replaces the column background color if any // BordNum = border reference, if > -1 - procedure NumSectionPied(Horiz,Verti: Single; TexteSect: string= ''; TexteTot: string= ''; + procedure NumSectionFooter(Horiz,Verti: Single; TexteSect: string= ''; TexteTot: string= ''; Total: Boolean= False; Alpha: Boolean= False; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1); // Horiz = horizontal position in column (cnLeft,cnCenter,cnRight) @@ -193,7 +193,7 @@ type // InterNum = space between lines reference // CoulFdNum = background color reference, if > -1, replaces the column background color if any // BordNum = border reference, if > -1 - procedure NumPageEnTete(Horiz,Verti: Single; TextePage: string= ''; TexteTotal: string= ''; + procedure NumPageHeader(Horiz,Verti: Single; TextePage: string= ''; TexteTotal: string= ''; Total: Boolean= False; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1); // Horiz = horizontal position in column (cnLeft,cnCenter,cnRight) @@ -208,7 +208,7 @@ type // InterNum = space between lines reference // CoulFdNum = background color reference, if > -1, replaces the column background color if any // BordNum = border reference, if > -1 - procedure NumPagePied(Horiz,Verti: Single; TextePage: string= ''; TexteTotal: string= ''; + procedure NumPageFooter(Horiz,Verti: Single; TextePage: string= ''; TexteTotal: string= ''; Total: Boolean= False; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1); // Horiz = horizontal position in column (cnLeft,cnCenter,cnRight) @@ -223,7 +223,7 @@ type // InterNum = space between lines reference // CoulFdNum = background color reference, if > -1, replaces the column background color if any // BordNum = border reference, if > -1 - procedure NumPageSectionEnTete(Horiz,Verti: Single; TexteSect: string= ''; TexteTot: string= ''; + procedure NumPageSectionHeader(Horiz,Verti: Single; TexteSect: string= ''; TexteTot: string= ''; Total: Boolean= False; Alpha: Boolean= False; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1); // Horiz = horizontal position in column (cnLeft,cnCenter,cnRight) @@ -238,7 +238,7 @@ type // InterNum = space between lines reference // CoulFdNum = background color reference, if > -1, replaces the column background color if any // BordNum = border reference, if > -1 - procedure NumPageSectionPied(Horiz,Verti: Single; TexteSect: string= ''; TexteTot: string= ''; + procedure NumPageSectionFooter(Horiz,Verti: Single; TexteSect: string= ''; TexteTot: string= ''; Total: Boolean= False; Alpha: Boolean= False; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1); // Horiz = horizontal position in column (cnLeft,cnCenter,cnRight) @@ -253,60 +253,60 @@ type // InterNum = space between lines reference // CoulFdNum = background color reference, if > -1, replaces the column background color if any // BordNum = border reference, if > -1 - procedure TraitHorizEnTete(EspAvant,EspApres: Single; ColNum: Integer= 0; StyleNum: Integer= 0); + procedure HorizLineHeader(EspAvant,EspApres: Single; ColNum: Integer= 0; StyleNum: Integer= 0); // EspAvant = empty space before the horizontal line : numeric value in the measurement unit (msMM or msInch) // EspApres = empty space after the horizontal line : numeric value in the measurement unit (msMM or msInch) // ColNum = column reference, default between left and right margins // StyleNum = reference of the line style - procedure TraitHorizPage(EspAvant,EspApres: Single; ColNum: Integer= 0; StyleNum: Integer= 0); + procedure HorizLinePage(EspAvant,EspApres: Single; ColNum: Integer= 0; StyleNum: Integer= 0); // EspAvant = empty space before the horizontal line : numeric value in the measurement unit (msMM or msInch) // EspApres = empty space after the horizontal line : numeric value in the measurement unit (msMM or msInch) // ColNum = column reference, default between left and right margins // StyleNum = reference of the line style - procedure TraitHorizPied(EspAvant,EspApres: Single; ColNum: Integer= 0; StyleNum: Integer= 0); + procedure HorizLineFooter(EspAvant,EspApres: Single; ColNum: Integer= 0; StyleNum: Integer= 0); // EspAvant = empty space before the horizontal line : numeric value in the measurement unit (msMM or msInch) // EspApres = empty space after the horizontal line : numeric value in the measurement unit (msMM or msInch) // ColNum = column reference, default between left and right margins // StyleNum = reference of the line style - procedure EspaceEnTete(Verti: Single; ColNum: Integer=0; CoulFdNum: Integer= -1); + procedure SpaceHeader(Verti: Single; ColNum: Integer=0; CoulFdNum: Integer= -1); // Verti = height of the empty space : numeric value in the measurement unit (msMM or msInch) // ColNum = column reference, default between left and right margins // CoulFdNum = background color reference, if > -1, replaces the column background color if any - procedure EspacePage(Verti: Single; ColNum: Integer=0; CoulFdNum: Integer= -1); + procedure SpacePage(Verti: Single; ColNum: Integer=0; CoulFdNum: Integer= -1); // Verti = height of the empty space : numeric value in the measurement unit (msMM or msInch) // ColNum = column reference, default between left and right margins // CoulFdNum = background color reference, if > -1, replaces the column background color if any - procedure EspacePied(Verti: Single; ColNum: Integer=0; CoulFdNum: Integer= -1); + procedure SpaceFooter(Verti: Single; ColNum: Integer=0; CoulFdNum: Integer= -1); // Verti = height of the empty space : numeric value in the measurement unit (msMM or msInch) // ColNum = column reference, default between left and right margins // CoulFdNum = background color reference, if > -1, replaces the column background color if any - function Interligne(ItlSup,ItlInt,ItlInf: Single): Integer; + function LineSpace(ItlSup,ItlInt,ItlInf: Single): Integer; // IntSup = space between lines, top : numeric value in the measurement unit (msMM or msInch) // IntInt = space between lines, internal if wrapping : numeric value in the measurement unit (msMM or msInch) // IntInf = space between lines, botom : numeric value in the measurement unit (msMM or msInch) - procedure Groupe(SautPage: Boolean= False); + procedure BeginGroup(SautPage: Boolean= False); // SautPage = True >> forces new page before the group // = False >> does not create a new page if the whole group can stand on the same page as the preceding text - procedure FinGroupe(SautPage: Boolean= False); + procedure EndGroup(SautPage: Boolean= False); // SautPage = True >> forces new page after the group // = False >> lets continue on the same page after the group procedure ColorColChange(ColNum: Integer; ColColor: TfpgColor); // Changes the background color of a column // ColNum = column reference // ColColor = new background color for the column - procedure CadreMarges(AStyle: Integer); + procedure FrameMargins(AStyle: Integer); // draw a frame at the page margins // AStyle = reference of the line style of the frame - procedure CadreEnTete(AStyle: Integer); + procedure FrameHeader(AStyle: Integer); // draw a frame at the limits of the header // AStyle = reference of the line style of the frame - procedure CadrePage(AStyle: Integer); + procedure FramePage(AStyle: Integer); // draw a frame at the page limits : left and right margins, header bottom and footer top // AStyle = reference of the line style of the frame - procedure CadrePied(AStyle: Integer); + procedure FrameFooter(AStyle: Integer); // draw a frame at the limits of the footer // AStyle = reference of the line style of the frame - procedure TraitPage(XDebut,YDebut,XFin,YFin: Single; AStyle: Integer); + procedure LinePage(XDebut,YDebut,XFin,YFin: Single; AStyle: Integer); // draw a line at absolute position // XDebut = horizontal position of starting point in numeric value in the measurement unit (msMM or msInch) // YDebut = vertical position of starting point in numeric value in the measurement unit (msMM or msInch) @@ -314,16 +314,16 @@ type // YFin = vertical position of ending point in numeric value in the measurement unit (msMM or msInch) // AStyle = reference of the line style of the line procedure SurfPage(XLimits,YLimits: array of Single; AColor: TfpgColor); - property Langue: Char read FVersion write FVersion; + property Language: Char read FVersion write FVersion; property Visualiser: Boolean read FVisualisation write FVisualisation; - property NumeroSection: Integer read FNmSection write FNmSection; - property NumeroPage: Integer read FNmPage write FNmPage; - property NumeroPageSection: Integer read FNmPageSect write FNmPageSect; - property HauteurPapier: Integer read GetHauteurPapier; - property LargeurPapier: Integer read GetLargeurPapier; + property NumSection: Integer read FNmSection write FNmSection; + property NumPage: Integer read FNmPage write FNmPage; + property NumPageSection: Integer read FNmPageSect write FNmPageSect; + property PaperHeight: Integer read GetHauteurPapier; + property PagerWidth: Integer read GetLargeurPapier; property DefaultFile: string read FDefaultFile write FDefaultFile; - property CouleurCourante: Integer read FColorCourante write FColorCourante; - property TitreSection: string read GetTitreSection write SetTitreSection; + property CurrentColor: Integer read FColorCourante write FColorCourante; + property SectionTitle: string read GetTitreSection write SetTitreSection; end; // classes for interface with PDF generation @@ -555,7 +555,7 @@ end; procedure T_Imprime.Bv_VisuPaint(Sender: TObject); begin -ImprimePage(NumeroPage); +ImprimePage(NumPage); end; procedure T_Imprime.PrepareFormat; @@ -725,10 +725,10 @@ repeat LaPage:= T_Page(Pages.Items[Pred(CptPage)]); until (LaPage.PagesTot= PageNumero) or (CptPage= Pages.Count); until (LaPage.PagesTot= PageNumero) or (CptSect= Sections.Count); -NumeroPage:= PageNumero; -NumeroSection:= CptSect; -NumeroPageSection:= LaPage.PagesSect; -with T_Section(Sections[Pred(NumeroSection)]) do +NumPage:= PageNumero; +NumSection:= CptSect; +NumPageSection:= LaPage.PagesSect; +with T_Section(Sections[Pred(NumSection)]) do begin if CmdEnTete.Count> 0 then @@ -753,11 +753,11 @@ with T_Section(Sections[Pred(NumeroSection)]) do with Cmd as T_Trait do TraceTrait(GetPosX,GetPosY,GetEndX,GetEndY,GetStyle); end; - if GetCmdPage(NumeroPageSection).Count> 0 + if GetCmdPage(NumPageSection).Count> 0 then - for CptCmd:= 0 to Pred(GetCmdPage(NumeroPageSection).Count) do + for CptCmd:= 0 to Pred(GetCmdPage(NumPageSection).Count) do begin - Cmd:= T_Commande(GetCmdPage(NumeroPageSection).Items[CptCmd]); + Cmd:= T_Commande(GetCmdPage(NumPageSection).Items[CptCmd]); if Cmd is T_EcritTexte then with Cmd as T_EcritTexte do @@ -816,7 +816,7 @@ var Cpt: Integer; Cmd: T_Commande; begin -with T_Section(Sections[Pred(NumeroSection)]) do +with T_Section(Sections[Pred(NumSection)]) do if CmdPied.Count> 0 then for Cpt:= 0 to Pred(CmdPied.Count) do @@ -879,7 +879,7 @@ var StylTrait: TfpgLineStyle; Wraplst: TStringList; begin -with T_Section(Sections[Pred(NumeroSection)]) do +with T_Section(Sections[Pred(NumSection)]) do begin FinDeLigne:= False; if FPreparation= ppPrepare @@ -895,7 +895,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do Fnt:= T_Fonte(Fontes[FonteNum]).GetFonte; if Interlignes.Count= 0 then - Interligne(0,0,0); + LineSpace(0,0,0); if FInterLCourante<> InterL then FInterLCourante:= InterL; @@ -1133,7 +1133,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfRect:= TPdfRect.Create; with PdfRect do begin - PageId:= NumeroPage; + PageId:= NumPage; FGauche:= ColPos; FBas:= Paper.H-PosY+IntLSup-HautTxt; FHaut:= HautTxt; @@ -1161,7 +1161,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfLine:= TPdfLine.Create; with PdfLine do begin - PageId:= NumeroPage; + PageId:= NumPage; FStartX:= ColPos; FStartY:= Paper.H-PosY+IntLSup; FEndX:= ColPos; @@ -1178,7 +1178,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfLine:= TPdfLine.Create; with PdfLine do begin - PageId:= NumeroPage; + PageId:= NumPage; FStartX:= ColPos+ColWidth; FStartY:= Paper.H-PosY+IntLSup; FEndX:= ColPos+ColWidth; @@ -1195,7 +1195,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfLine:= TPdfLine.Create; with PdfLine do begin - PageId:= NumeroPage; + PageId:= NumPage; FStartX:= ColPos; FStartY:= Paper.H-PosY+IntLSup; FEndX:= ColPos+ColWidth; @@ -1212,7 +1212,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfLine:= TPdfLine.Create; with PdfLine do begin - PageId:= NumeroPage; + PageId:= NumPage; FStartX:= ColPos; FStartY:= Paper.H-PosY+IntLSup-HautTxt; FEndX:= ColPos+ColWidth; @@ -1230,7 +1230,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfTexte:= TPdfTexte.Create; with PdfTexte do begin - PageId:= NumeroPage; + PageId:= NumPage; FFont:= FonteNum; FSize:= T_Fonte(Fontes[FonteNum]).GetSize; FColor:= T_Fonte(Fontes[FonteNum]).GetColor; @@ -1259,7 +1259,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfTexte:= TPdfTexte.Create; with PdfTexte do begin - PageId:= NumeroPage; + PageId:= NumPage; FFont:= FonteNum; FSize:= T_Fonte(Fontes[FonteNum]).GetSize; FColor:= T_Fonte(Fontes[FonteNum]).GetColor; @@ -1284,7 +1284,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfTexte:= TPdfTexte.Create; with PdfTexte do begin - PageId:= NumeroPage; + PageId:= NumPage; FFont:= FonteNum; FSize:= T_Fonte(Fontes[FonteNum]).GetSize; FColor:= T_Fonte(Fontes[FonteNum]).GetColor; @@ -1310,17 +1310,17 @@ function T_Imprime.EcritNum(PosX,PosY: Single; Colonne,TexteNum,TexteTot,FonteNu PageNum: if Total then - Result:= Textes[TexteNum]+' '+IntToStr(NumeroPage)+' '+Textes[TexteTot]+' ' + Result:= Textes[TexteNum]+' '+IntToStr(NumPage)+' '+Textes[TexteTot]+' ' +IntToStr(T_Section(Sections[Pred(Sections.Count)]).TotPages) else - Result:= Textes[TexteNum]+' '+IntToStr(NumeroPage); + Result:= Textes[TexteNum]+' '+IntToStr(NumPage); SectNum: begin if Alpha then - NumAlpha:= ConvertitEnAlpha(NumeroSection) + NumAlpha:= ConvertitEnAlpha(NumSection) else - NumAlpha:= IntToStr(NumeroSection); + NumAlpha:= IntToStr(NumSection); if Total then Result:= Textes[TexteNum]+' '+NumAlpha+' '+Textes[TexteTot]+' '+IntToStr(Sections.Count) @@ -1331,13 +1331,13 @@ function T_Imprime.EcritNum(PosX,PosY: Single; Colonne,TexteNum,TexteTot,FonteNu begin if Alpha then - NumAlpha:= ConvertitEnAlpha(NumeroPageSection) + NumAlpha:= ConvertitEnAlpha(NumPageSection) else - NumAlpha:= IntToStr(NumeroPageSection); + NumAlpha:= IntToStr(NumPageSection); if Total then Result:= Textes[TexteNum]+' '+NumAlpha+' '+Textes[TexteTot]+' ' - +IntToStr(T_Section(Sections[Pred(NumeroSection)]).NbPages) + +IntToStr(T_Section(Sections[Pred(NumSection)]).NbPages) else Result:= Textes[TexteNum]+' '+NumAlpha; end; @@ -1352,7 +1352,7 @@ var StylTrait: TfpgLineStyle; Chaine: string; begin -with T_Section(Sections[Pred(NumeroSection)]) do +with T_Section(Sections[Pred(NumSection)]) do begin FinDeLigne:= False; if FPreparation= ppPrepare @@ -1368,7 +1368,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do Fnt:= T_Fonte(Fontes[FonteNum]).GetFonte; if Interlignes.Count= 0 then - Interligne(0,0,0); + LineSpace(0,0,0); if FInterLCourante<> InterL then FInterLCourante:= InterL; @@ -1555,7 +1555,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfRect:= TPdfRect.Create; with PdfRect do begin - PageId:= NumeroPage; + PageId:= NumPage; FGauche:= ColPos; FBas:= Paper.H-PosY+IntLSup-HautTxt; FHaut:= HautTxt; @@ -1583,7 +1583,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfLine:= TPdfLine.Create; with PdfLine do begin - PageId:= NumeroPage; + PageId:= NumPage; FStartX:= ColPos; FStartY:= Paper.H-PosY+IntLSup; FEndX:= ColPos; @@ -1600,7 +1600,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfLine:= TPdfLine.Create; with PdfLine do begin - PageId:= NumeroPage; + PageId:= NumPage; FStartX:= ColPos+ColWidth; FStartY:= Paper.H-PosY+IntLSup; FEndX:= ColPos+ColWidth; @@ -1617,7 +1617,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfLine:= TPdfLine.Create; with PdfLine do begin - PageId:= NumeroPage; + PageId:= NumPage; FStartX:= ColPos; FStartY:= Paper.H-PosY+IntLSup; FEndX:= ColPos+ColWidth; @@ -1634,7 +1634,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfLine:= TPdfLine.Create; with PdfLine do begin - PageId:= NumeroPage; + PageId:= NumPage; FStartX:= ColPos; FStartY:= Paper.H-PosY+IntLSup-HautTxt; FEndX:= ColPos+ColWidth; @@ -1649,7 +1649,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfTexte:= TPdfTexte.Create; with PdfTexte do begin - PageId:= NumeroPage; + PageId:= NumPage; FFont:= FonteNum; FSize:= T_Fonte(Fontes[FonteNum]).GetSize; FColor:= T_Fonte(Fontes[FonteNum]).GetColor; @@ -1671,7 +1671,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfTexte:= TPdfTexte.Create; with PdfTexte do begin - PageId:= NumeroPage; + PageId:= NumPage; FFont:= FonteNum; FSize:= T_Fonte(Fontes[FonteNum]).GetSize; FColor:= T_Fonte(Fontes[FonteNum]).GetColor; @@ -1691,7 +1691,7 @@ function T_Imprime.InsereEspace(PosY: Single; Colonne: Integer; EspHeight: Singl var PosV: Single; begin -with T_Section(Sections[Pred(NumeroSection)]) do +with T_Section(Sections[Pred(NumSection)]) do begin if PosY> -1 then @@ -1760,7 +1760,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfRect:= TPdfRect.Create; with PdfRect do begin - PageId:= NumeroPage; + PageId:= NumPage; FGauche:= ColPos; FBas:= Paper.H-PosY-EspHeight; FHaut:= EspHeight; @@ -1783,7 +1783,7 @@ end; procedure T_Imprime.FinLigne(Zone: TZone); begin -with T_Section(Sections[Pred(NumeroSection)]) do +with T_Section(Sections[Pred(NumSection)]) do case Zone of zEnTete: LoadCmdEnTete; @@ -1802,7 +1802,7 @@ procedure T_Imprime.TraceCadre(StTrait: Integer; Zone: TZone); var Half,MargeL,MargeR,MargeT,MargeB,EnTeteH,PiedH: Integer; begin -with T_Section(Sections[Pred(NumeroSection)]) do +with T_Section(Sections[Pred(NumSection)]) do case FPreparation of ppPrepare: LoadCadre(StTrait,Zone); @@ -1860,7 +1860,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfRect:= TPdfRect.Create; with PdfRect do begin - PageId:= NumeroPage; + PageId:= NumPage; with T_TraitStyle(TraitStyles[StTrait]) do begin FEpais:= GetEpais; @@ -1908,7 +1908,7 @@ end; procedure T_Imprime.TraceTrait(XDebut,YDebut,XFin,YFin: Single; StTrait: Integer); begin -with T_Section(Sections[Pred(NumeroSection)]) do +with T_Section(Sections[Pred(NumSection)]) do case FPreparation of ppPrepare: LoadTrait(XDebut,YDebut,ColDefaut,XFin,YFin,StTrait); @@ -1927,7 +1927,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfLine:= TPdfLine.Create; with PdfLine do begin - PageId:= NumeroPage; + PageId:= NumPage; FStartX:= XDebut; FStartY:= Paper.H-YDebut; FEndX:= XFin; @@ -1945,7 +1945,7 @@ procedure T_Imprime.TraceTraitHoriz(XDebut,YDebut: Single; Colonne: Integer; XFi var PosV: Single; begin -with T_Section(Sections[Pred(NumeroSection)]) do +with T_Section(Sections[Pred(NumSection)]) do case FPreparation of ppPrepare: begin @@ -1998,7 +1998,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do PdfLine:= TPdfLine.Create; with PdfLine do begin - PageId:= NumeroPage; + PageId:= NumPage; FStartX:= XDebut; FStartY:= Paper.H-YDebut; FEndX:= XFin; @@ -2018,7 +2018,7 @@ var Cpt: Integer; Pts: array of TPoint; begin -with T_Section(Sections[Pred(NumeroSection)]) do +with T_Section(Sections[Pred(NumSection)]) do case FPreparation of ppPrepare: LoadSurf(Points,Couleur); @@ -2046,7 +2046,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do end; with PdfSurf do begin - PageId:= NumeroPage; + PageId:= NumPage; //SetLength(FPoints,Length(Points)); //for Cpt:= 0 to Pred(Length(Points)) do // weird behaviour: points gets length= 0 inside the with clause ! // begin @@ -2148,7 +2148,7 @@ DecimalSeparator:= OldSeparator; inherited; end; -procedure T_Imprime.Debut(IniOriente: TOrient= oPortrait; IniTypePapier: TTypePapier= A4; +procedure T_Imprime.BeginWrite(IniOriente: TOrient= oPortrait; IniTypePapier: TTypePapier= A4; IniMesure: TMesure= msMM; IniVersion: Char= 'F'; IniVisu: Boolean= True); begin FVersion:= IniVersion; @@ -2166,7 +2166,7 @@ FInterLCourante:= -1; FGroupe:= False; end; -procedure T_Imprime.Fin; +procedure T_Imprime.EndWrite; var Cpt: Integer; begin @@ -2175,24 +2175,24 @@ if Sections.Count> 0 then for Cpt:= 1 to Sections.Count do begin - NumeroSection:= Cpt; - if T_Section(Sections[Pred(NumeroSection)]).TotPages> 0 + NumSection:= Cpt; + if T_Section(Sections[Pred(NumSection)]).TotPages> 0 then begin - NumeroPageSection:= 1; - NumeroPage:= 1; + NumPageSection:= 1; + NumPage:= 1; end; end else Exit; -for Cpt:= 1 to T_Section(Sections[Pred(NumeroSection)]).TotPages do +for Cpt:= 1 to T_Section(Sections[Pred(NumSection)]).TotPages do ImprimePage(Cpt); if FVisualisation then begin FPreparation:= ppVisualise; try - ImprimeDocument; + WriteDocument; F_Visu.ShowModal; finally F_Visu.Free; @@ -2200,14 +2200,14 @@ then end; end; -procedure T_Imprime.ImprimeDocument; +procedure T_Imprime.WriteDocument; begin if FVisualisation then FCanevas:= Bv_Visu.Canvas; end; -procedure T_Imprime.Visualisation; +procedure T_Imprime.PagePreview; begin FVisualisation:= not FVisualisation; if FVisualisation @@ -2252,8 +2252,8 @@ case FPreparation of FEnTeteHeight:= 0; FPageHeight:= 0; FPiedHeight:= 0; - NumeroSection:= NumeroSection+1; - ASection:= T_Section.Create(FPapier,FMargeCourante,NumeroSection); + NumSection:= NumSection+1; + ASection:= T_Section.Create(FPapier,FMargeCourante,NumSection); Sections.Add(ASection); CMargin:= Dim2Pixels(Retrait); AColonne:= T_Colonne.Create(FMargeCourante.L,FMargeCourante.R-FMargeCourante.L,CMargin,clWhite); @@ -2267,32 +2267,32 @@ begin if FPreparation= ppPrepare then begin - NumeroPage:= NumeroPage+1; - T_Section(Sections[Pred(Sections.Count)]).LoadPage(NumeroPage); + NumPage:= NumPage+1; + T_Section(Sections[Pred(Sections.Count)]).LoadPage(NumPage); FPosRef.Y:= FMargeCourante.T+FEnTeteHeight; FPageHeight:= 0; end; end; -function T_Imprime.Fond(FdColor: TfpgColor): Integer; +function T_Imprime.BackColor(FdColor: TfpgColor): Integer; begin AFond:= T_Fond.Create(FdColor); Result:= Fonds.Add(AFond); end; -function T_Imprime.Fonte(FtNom: string; FtColor: TfpgColor): Integer; +function T_Imprime.Font(FtNom: string; FtColor: TfpgColor): Integer; begin AFonte:= T_Fonte.Create(FtNom,FtColor); Result:= Fontes.Add(AFonte); end; -function T_Imprime.StyleTrait(StEpais: Single; StColor: Tfpgcolor; StStyle: TfpgLineStyle): Integer; +function T_Imprime.LineStyle(StEpais: Single; StColor: Tfpgcolor; StStyle: TfpgLineStyle): Integer; begin ATraitStyle:= T_TraitStyle.Create(StEpais,StColor,StStyle); Result:= TraitStyles.Add(ATraitStyle); end; -function T_Imprime.Bordure(BdFlags: TFBordFlags; BdStyle: Integer): Integer; +function T_Imprime.Border(BdFlags: TFBordFlags; BdStyle: Integer): Integer; begin ABord:= T_Bord.Create(BdFlags,BdStyle); Result:= Bords.Add(ABord); @@ -2304,12 +2304,12 @@ end; //Result:= Bords.Add(ABord); //end; -function T_Imprime.Colonne(ClnPos,ClnWidth: Single; ClnMargin: Single= 0; ClnColor: TfpgColor= clWhite): Integer; +function T_Imprime.Column(ClnPos,ClnWidth: Single; ClnMargin: Single= 0; ClnColor: TfpgColor= clWhite): Integer; var CPos,CWidth,CMargin: Single; begin CPos:= Dim2Pixels(ClnPos); -with T_Section(Sections[Pred(NumeroSection)]) do +with T_Section(Sections[Pred(NumSection)]) do begin if CPos< Marges.L then @@ -2324,7 +2324,7 @@ AColonne:= T_Colonne.Create(CPos,CWidth,CMargin,ClnColor); Result:= T_Section(Sections[Pred(Sections.Count)]).Colonnes.Add(AColonne); end; -procedure T_Imprime.EcritEnTete(Horiz,Verti: Single; Texte: string; ColNum: Integer= 0; FonteNum: Integer= 0; +procedure T_Imprime.WriteHeader(Horiz,Verti: Single; Texte: string; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1); var RefTexte: Integer; @@ -2356,7 +2356,7 @@ then EcritLigne(Horiz,Verti,ColNum,RefTexte,FonteNum,CoulFdNum,BordNum,InterNum,Flags,ZEnTete); end; -function T_Imprime.EcritPage(Horiz,Verti: Single; Texte: string; ColNum: Integer= 0; FonteNum: Integer= 0; +function T_Imprime.WritePage(Horiz,Verti: Single; Texte: string; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1): Single; var RefTexte: Integer; @@ -2388,7 +2388,7 @@ then Result:= EcritLigne(Horiz,Verti,ColNum,RefTexte,FonteNum,CoulFdNum,BordNum,InterNum,Flags,ZPage); end; -procedure T_Imprime.EcritPied(Horiz,Verti: Single; Texte: string; ColNum: Integer= 0; FonteNum: Integer= 0; +procedure T_Imprime.WriteFooter(Horiz,Verti: Single; Texte: string; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1); var RefTexte: Integer; @@ -2420,7 +2420,7 @@ then EcritLigne(Horiz,Verti,ColNum,RefTexte,FonteNum,CoulFdNum,BordNum,InterNum,Flags,ZPied); end; -procedure T_Imprime.NumSectionEnTete(Horiz,Verti: Single; TexteSect: string= ''; TexteTot: string= ''; +procedure T_Imprime.NumSectionHeader(Horiz,Verti: Single; TexteSect: string= ''; TexteTot: string= ''; Total: Boolean= False; Alpha: Boolean= False; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1); var @@ -2457,7 +2457,7 @@ then EcritNum(Horiz,Verti,ColNum,RefTextePage,RefTexteTot,FonteNum,CoulFdNum,BordNum,InterNum,Flags,Total,Alpha,ZEnTete,SectNum); end; -procedure T_Imprime.NumSectionPied(Horiz,Verti: Single; TexteSect: string= ''; TexteTot: string= ''; +procedure T_Imprime.NumSectionFooter(Horiz,Verti: Single; TexteSect: string= ''; TexteTot: string= ''; Total: Boolean= False; Alpha: Boolean= False; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0;CoulFdNum: Integer= -1; BordNum: Integer= -1); var @@ -2494,7 +2494,7 @@ then EcritNum(Horiz,Verti,ColNum,RefTextePage,RefTexteTot,FonteNum,CoulFdNum,BordNum,InterNum,Flags,Total,Alpha,ZPied,SectNum); end; -procedure T_Imprime.NumPageEnTete(Horiz,Verti: Single; TextePage: string= ''; TexteTotal: string= ''; +procedure T_Imprime.NumPageHeader(Horiz,Verti: Single; TextePage: string= ''; TexteTotal: string= ''; Total: Boolean= False; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1); var @@ -2531,7 +2531,7 @@ then EcritNum(Horiz,Verti,ColNum,RefTextePage,RefTexteTot,FonteNum,CoulFdNum,BordNum,InterNum,Flags,Total,False,ZEnTete,PageNum); end; -procedure T_Imprime.NumPagePied(Horiz,Verti: Single; TextePage: string= ''; TexteTotal: string= ''; +procedure T_Imprime.NumPageFooter(Horiz,Verti: Single; TextePage: string= ''; TexteTotal: string= ''; Total: Boolean= False; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1); var @@ -2568,7 +2568,7 @@ then EcritNum(Horiz,Verti,ColNum,RefTextePage,RefTexteTot,FonteNum,CoulFdNum,BordNum,InterNum,Flags,Total,False,ZPied,PageNum); end; -procedure T_Imprime.NumPageSectionEnTete(Horiz,Verti: Single; TexteSect: string= ''; TexteTot: string= ''; +procedure T_Imprime.NumPageSectionHeader(Horiz,Verti: Single; TexteSect: string= ''; TexteTot: string= ''; Total: Boolean= False; Alpha: Boolean= False; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1); var @@ -2605,7 +2605,7 @@ then EcritNum(Horiz,Verti,ColNum,RefTextePage,RefTexteTot,FonteNum,CoulFdNum,BordNum,InterNum,Flags,Total,Alpha,ZEnTete,PSectNum); end; -procedure T_Imprime.NumPageSectionPied(Horiz,Verti: Single; TexteSect: string= ''; TexteTot: string= ''; +procedure T_Imprime.NumPageSectionFooter(Horiz,Verti: Single; TexteSect: string= ''; TexteTot: string= ''; Total: Boolean= False; Alpha: Boolean= False; ColNum: Integer= 0; FonteNum: Integer= 0; InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1); var @@ -2642,37 +2642,37 @@ then EcritNum(Horiz,Verti,ColNum,RefTextePage,RefTexteTot,FonteNum,CoulFdNum,BordNum,InterNum,Flags,Total,Alpha,ZPied,PSectNum); end; -procedure T_Imprime.TraitHorizEnTete(EspAvant,EspApres: Single; ColNum: Integer= 0; StyleNum: Integer= 0); +procedure T_Imprime.HorizLineHeader(EspAvant,EspApres: Single; ColNum: Integer= 0; StyleNum: Integer= 0); begin TraceTraitHoriz(Dim2Pixels(EspAvant),Dim2Pixels(EspApres),ColNum,-1,StyleNum,zEntete); end; -procedure T_Imprime.TraitHorizPage(EspAvant,EspApres: Single; ColNum: Integer= 0; StyleNum: Integer= 0); +procedure T_Imprime.HorizLinePage(EspAvant,EspApres: Single; ColNum: Integer= 0; StyleNum: Integer= 0); begin TraceTraitHoriz(Dim2Pixels(EspAvant),Dim2Pixels(EspApres),ColNum,-1,StyleNum,zPage); end; -procedure T_Imprime.TraitHorizPied(EspAvant,EspApres: Single; ColNum: Integer= 0; StyleNum: Integer= 0); +procedure T_Imprime.HorizLineFooter(EspAvant,EspApres: Single; ColNum: Integer= 0; StyleNum: Integer= 0); begin TraceTraitHoriz(Dim2Pixels(EspAvant),Dim2Pixels(EspApres),ColNum,-1,StyleNum,zPied); end; -procedure T_Imprime.EspaceEnTete(Verti: Single; ColNum: Integer=0; CoulFdNum: Integer= -1); +procedure T_Imprime.SpaceHeader(Verti: Single; ColNum: Integer=0; CoulFdNum: Integer= -1); begin InsereEspace(-1,ColNum,Dim2Pixels(Verti),CoulFdNum,zEntete); end; -procedure T_Imprime.EspacePage(Verti: Single; ColNum: Integer=0; CoulFdNum: Integer= -1); +procedure T_Imprime.SpacePage(Verti: Single; ColNum: Integer=0; CoulFdNum: Integer= -1); begin InsereEspace(-1,ColNum,Dim2Pixels(Verti),CoulFdNum,zPage); end; -procedure T_Imprime.EspacePied(Verti: Single; ColNum: Integer=0; CoulFdNum: Integer= -1); +procedure T_Imprime.SpaceFooter(Verti: Single; ColNum: Integer=0; CoulFdNum: Integer= -1); begin InsereEspace(-1,ColNum,Dim2Pixels(Verti),CoulFdNum,zPied); end; -function T_Imprime.Interligne(ItlSup,ItlInt,ItlInf: Single): Integer; +function T_Imprime.LineSpace(ItlSup,ItlInt,ItlInf: Single): Integer; var Sup,Int,Inf: Integer; begin @@ -2695,7 +2695,7 @@ AInterligne:= T_Interligne.Create(Sup,Int,Inf); Result:= Interlignes.Add(AInterligne); end; -procedure T_Imprime.Groupe(SautPage: Boolean= False); +procedure T_Imprime.BeginGroup(SautPage: Boolean= False); begin AGroupe:= T_Groupe.Create; FGroupe:= True; @@ -2704,7 +2704,7 @@ then Page; end; -procedure T_Imprime.FinGroupe(SautPage: Boolean= False); +procedure T_Imprime.EndGroup(SautPage: Boolean= False); begin T_Section(Sections[Pred(Sections.Count)]).LoadCmdGroupeToPage; FGroupe:= False; @@ -2719,27 +2719,27 @@ begin T_Colonne(T_Section(Sections[Pred(Sections.Count)]).Colonnes[ColNum]).SetColColor(ColColor); end; -procedure T_Imprime.CadreMarges(AStyle: Integer); +procedure T_Imprime.FrameMargins(AStyle: Integer); begin TraceCadre(AStyle,zMarges); end; -procedure T_Imprime.CadreEnTete(AStyle: Integer); +procedure T_Imprime.FrameHeader(AStyle: Integer); begin TraceCadre(AStyle,zEntete); end; -procedure T_Imprime.CadrePage(AStyle: Integer); +procedure T_Imprime.FramePage(AStyle: Integer); begin TraceCadre(AStyle,zPage); end; -procedure T_Imprime.CadrePied(AStyle: Integer); +procedure T_Imprime.FrameFooter(AStyle: Integer); begin TraceCadre(AStyle,zPied); end; -procedure T_Imprime.TraitPage(XDebut,YDebut,XFin,YFin: Single; AStyle: Integer); +procedure T_Imprime.LinePage(XDebut,YDebut,XFin,YFin: Single; AStyle: Integer); begin TraceTrait(Dim2Pixels(XDebut),Dim2Pixels(YDebut),Dim2Pixels(XFin),Dim2Pixels(YFin),AStyle); end; diff --git a/extras/contributed/report_tool/reportengine/u_visu.pas b/extras/contributed/report_tool/reportengine/u_visu.pas index 7d155547..1e3c39fe 100644 --- a/extras/contributed/report_tool/reportengine/u_visu.pas +++ b/extras/contributed/report_tool/reportengine/u_visu.pas @@ -104,12 +104,12 @@ with FImprime do if T_Section(Sections[Pred(Sections.Count)]).TotPages= 1 then E_NumPage.Focusable:= False; - E_NumPage.Text:= IntToStr(NumeroPage); + E_NumPage.Text:= IntToStr(NumPage); L_NbrPages.Text:= IntToStr(T_Section(Sections[Pred(Sections.Count)]).TotPages); - E_NumSect.Text:= IntToStr(NumeroSection); + E_NumSect.Text:= IntToStr(NumSection); L_NbrSect.Text:= IntToStr(Sections.Count); - L_NumPageSect.Text:= IntToStr(NumeroPageSection); - L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumeroSection)]).NbPages); + L_NumPageSect.Text:= IntToStr(NumPageSection); + L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumSection)]).NbPages); ChangeBoutons; end; end; @@ -174,12 +174,12 @@ procedure TF_Visu.Bt_PremPageClick(Sender: TObject); begin with FImprime do begin - NumeroPage:= 1; - NumeroSection:= 1; - NumeroPageSection:= 1; - E_NumPage.Text:= IntToStr(NumeroPage); + NumPage:= 1; + NumSection:= 1; + NumPageSection:= 1; + E_NumPage.Text:= IntToStr(NumPage); Bv_Visu.Visible:= False; - with T_Section(Sections[Pred(NumeroSection)]),F_Visu do + with T_Section(Sections[Pred(NumSection)]),F_Visu do begin Bv_Visu.Height:= Paper.H; Bv_Visu.Width:= Paper.W; @@ -188,9 +188,9 @@ with FImprime do end; Bv_Visu.Visible:= True; ChangeBoutons; - E_NumSect.Text:= IntToStr(NumeroSection); - L_NumPageSect.Text:= IntToStr(NumeroPageSection); - L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumeroSection)]).NbPages); + E_NumSect.Text:= IntToStr(NumSection); + L_NumPageSect.Text:= IntToStr(NumPageSection); + L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumSection)]).NbPages); end; end; @@ -198,14 +198,14 @@ procedure TF_Visu.Bt_PrecPageClick(Sender: TObject); begin with FImprime do begin - NumeroPage:= NumeroPage-1; - if NumeroPageSection= 1 + NumPage:= NumPage-1; + if NumPageSection= 1 then begin - NumeroSection:= NumeroSection-1; - NumeroPageSection:= T_Section(Sections[Pred(NumeroSection)]).NbPages; + NumSection:= NumSection-1; + NumPageSection:= T_Section(Sections[Pred(NumSection)]).NbPages; Bv_Visu.Visible:= False; - with T_Section(Sections[Pred(NumeroSection)]),F_Visu do + with T_Section(Sections[Pred(NumSection)]),F_Visu do begin Bv_Visu.Height:= Paper.H; Bv_Visu.Width:= Paper.W; @@ -216,14 +216,14 @@ with FImprime do end else begin - NumeroPageSection:= NumeroPageSection-1; + NumPageSection:= NumPageSection-1; Bv_Visu.Invalidate; end; - E_NumPage.Text:= IntToStr(NumeroPage); + E_NumPage.Text:= IntToStr(NumPage); ChangeBoutons; - E_NumSect.Text:= IntToStr(NumeroSection); - L_NumPageSect.Text:= IntToStr(NumeroPageSection); - L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumeroSection)]).NbPages); + E_NumSect.Text:= IntToStr(NumSection); + L_NumPageSect.Text:= IntToStr(NumPageSection); + L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumSection)]).NbPages); end; end; @@ -231,14 +231,14 @@ procedure TF_Visu.Bt_SuivPageClick(Sender: TObject); begin with FImprime do begin - NumeroPage:= NumeroPage+1; - if NumeroPageSection= T_Section(Sections[Pred(NumeroSection)]).NbPages + NumPage:= NumPage+1; + if NumPageSection= T_Section(Sections[Pred(NumSection)]).NbPages then begin - NumeroSection:= NumeroSection+1; - NumeroPageSection:= 1; + NumSection:= NumSection+1; + NumPageSection:= 1; Bv_Visu.Visible:= False; - with T_Section(Sections[Pred(NumeroSection)]),F_Visu do + with T_Section(Sections[Pred(NumSection)]),F_Visu do begin Bv_Visu.Height:= Paper.H; Bv_Visu.Width:= Paper.W; @@ -249,14 +249,14 @@ with FImprime do end else begin - NumeroPageSection:= NumeroPageSection+1; + NumPageSection:= NumPageSection+1; Bv_Visu.Invalidate; end; - E_NumPage.Text:= IntToStr(NumeroPage); + E_NumPage.Text:= IntToStr(NumPage); ChangeBoutons; - E_NumSect.Text:= IntToStr(NumeroSection); - L_NumPageSect.Text:= IntToStr(NumeroPageSection); - L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumeroSection)]).NbPages); + E_NumSect.Text:= IntToStr(NumSection); + L_NumPageSect.Text:= IntToStr(NumPageSection); + L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumSection)]).NbPages); end; end; @@ -264,12 +264,12 @@ procedure TF_Visu.Bt_DernPageClick(Sender: TObject); begin with FImprime do begin - NumeroPage:= T_Section(Sections[Pred(Sections.Count)]).TotPages; - NumeroSection:= Sections.Count; - NumeroPageSection:= T_Section(Sections[Pred(Sections.Count)]).NbPages; - E_NumPage.Text:= IntToStr(NumeroPage); + NumPage:= T_Section(Sections[Pred(Sections.Count)]).TotPages; + NumSection:= Sections.Count; + NumPageSection:= T_Section(Sections[Pred(Sections.Count)]).NbPages; + E_NumPage.Text:= IntToStr(NumPage); Bv_Visu.Visible:= False; - with T_Section(Sections[Pred(NumeroSection)]),F_Visu do + with T_Section(Sections[Pred(NumSection)]),F_Visu do begin Bv_Visu.Height:= Paper.H; Bv_Visu.Width:= Paper.W; @@ -278,9 +278,9 @@ with FImprime do end; Bv_Visu.Visible:= True; ChangeBoutons; - E_NumSect.Text:= IntToStr(NumeroSection); - L_NumPageSect.Text:= IntToStr(NumeroPageSection); - L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumeroSection)]).NbPages); + E_NumSect.Text:= IntToStr(NumSection); + L_NumPageSect.Text:= IntToStr(NumPageSection); + L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumSection)]).NbPages); end; end; @@ -288,12 +288,12 @@ procedure TF_Visu.Bt_PrecSectClick(Sender: TObject); begin with FImprime do begin - NumeroSection:= NumeroSection-1; - NumeroPage:= T_Section(Sections[Pred(NumeroSection)]).FirstPage; - NumeroPageSection:= 1; - E_NumPage.Text:= IntToStr(NumeroPage); + NumSection:= NumSection-1; + NumPage:= T_Section(Sections[Pred(NumSection)]).FirstPage; + NumPageSection:= 1; + E_NumPage.Text:= IntToStr(NumPage); Bv_Visu.Visible:= False; - with T_Section(Sections[Pred(NumeroSection)]),F_Visu do + with T_Section(Sections[Pred(NumSection)]),F_Visu do begin Bv_Visu.Height:= Paper.H; Bv_Visu.Width:= Paper.W; @@ -302,9 +302,9 @@ with FImprime do end; Bv_Visu.Visible:= True; ChangeBoutons; - E_NumSect.Text:= IntToStr(NumeroSection); - L_NumPageSect.Text:= IntToStr(NumeroPageSection); - L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumeroSection)]).NbPages); + E_NumSect.Text:= IntToStr(NumSection); + L_NumPageSect.Text:= IntToStr(NumPageSection); + L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumSection)]).NbPages); end; end; @@ -312,12 +312,12 @@ procedure TF_Visu.Bt_SuivSectClick(Sender: TObject); begin with FImprime do begin - NumeroSection:= NumeroSection+1; - NumeroPage:= T_Section(Sections[Pred(NumeroSection)]).FirstPage; - NumeroPageSection:= 1; - E_NumPage.Text:= IntToStr(NumeroPage); + NumSection:= NumSection+1; + NumPage:= T_Section(Sections[Pred(NumSection)]).FirstPage; + NumPageSection:= 1; + E_NumPage.Text:= IntToStr(NumPage); Bv_Visu.Visible:= False; - with T_Section(Sections[Pred(NumeroSection)]),F_Visu do + with T_Section(Sections[Pred(NumSection)]),F_Visu do begin Bv_Visu.Height:= Paper.H; Bv_Visu.Width:= Paper.W; @@ -326,9 +326,9 @@ with FImprime do end; Bv_Visu.Visible:= True; ChangeBoutons; - E_NumSect.Text:= IntToStr(NumeroSection); - L_NumPageSect.Text:= IntToStr(NumeroPageSection); - L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumeroSection)]).NbPages); + E_NumSect.Text:= IntToStr(NumSection); + L_NumPageSect.Text:= IntToStr(NumPageSection); + L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumSection)]).NbPages); end; end; @@ -337,7 +337,7 @@ begin with FImprime do if T_Section(Sections[Pred(Sections.Count)]).TotPages> 1 then - if NumeroPage= 1 + if NumPage= 1 then begin Bt_PremPage.Enabled:= False; @@ -352,7 +352,7 @@ with FImprime do Bt_SuivSect.Enabled:= False; end else - if NumeroPage= T_Section(Sections[Pred(Sections.Count)]).TotPages + if NumPage= T_Section(Sections[Pred(Sections.Count)]).TotPages then begin Bt_PremPage.Enabled:= True; @@ -374,14 +374,14 @@ with FImprime do Bt_DernPage.Enabled:= True; if Sections.Count> 1 then - if NumeroSection= 1 + if NumSection= 1 then begin Bt_PrecSect.Enabled:= False; Bt_SuivSect.Enabled:= True; end else - if NumeroSection= Sections.Count + if NumSection= Sections.Count then begin Bt_PrecSect.Enabled:= True; @@ -420,14 +420,14 @@ then begin if E_NumPage.Value> T_Section(Sections[Pred(Sections.Count)]).TotPages then - NumeroPage:= T_Section(Sections[Pred(Sections.Count)]).TotPages + NumPage:= T_Section(Sections[Pred(Sections.Count)]).TotPages else if E_NumPage.Value= 0 then - NumeroPage:= 1 + NumPage:= 1 else - NumeroPage:= E_NumPage.Value; - E_NumPage.Value:= NumeroPage; + NumPage:= E_NumPage.Value; + E_NumPage.Value:= NumPage; CptSect:= 0; CptPage:= 0; repeat @@ -436,15 +436,15 @@ then repeat Inc(CptPage); Inc(CptPageSect); - until (CptPage= NumeroPage) or (CptPage= T_Section(Sections[Pred(Cptsect)]).NbPages); - until CptPage= NumeroPage; - NumeroSection:= CptSect; - NumeroPageSection:= CptPagesect; + until (CptPage= NumPage) or (CptPage= T_Section(Sections[Pred(Cptsect)]).NbPages); + until CptPage= NumPage; + NumSection:= CptSect; + NumPageSection:= CptPagesect; Bv_Visu.Invalidate; ChangeBoutons; - E_NumSect.Text:= IntToStr(NumeroSection); - L_NumPageSect.Text:= IntToStr(NumeroPageSection); - L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumeroSection)]).NbPages); + E_NumSect.Text:= IntToStr(NumSection); + L_NumPageSect.Text:= IntToStr(NumPageSection); + L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumSection)]).NbPages); end; end; @@ -457,21 +457,21 @@ then begin if E_NumSect.Value> Sections.Count then - NumeroSection:= Sections.Count + NumSection:= Sections.Count else if E_NumSect.Value= 0 then - NumeroSection:= 1 + NumSection:= 1 else - NumeroSection:= E_NumSect.Value; - E_NumSect.Value:= NumeroSection; - NumeroPage:= T_Section(Sections[Pred(Numerosection)]).FirstPage; - NumeroPageSection:= 1; - E_NumPage.Value:= NumeroPage; + NumSection:= E_NumSect.Value; + E_NumSect.Value:= NumSection; + NumPage:= T_Section(Sections[Pred(NumSection)]).FirstPage; + NumPageSection:= 1; + E_NumPage.Value:= NumPage; Bv_Visu.Invalidate; ChangeBoutons; - L_NumPageSect.Text:= IntToStr(NumeroPageSection); - L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumeroSection)]).NbPages); + L_NumPageSect.Text:= IntToStr(NumPageSection); + L_NbrPageSect.Text:= IntToStr(T_Section(Sections[Pred(NumSection)]).NbPages); end; end; |