globally renamed TFTextFlags to TfpgTextFlags

Somehow I forgot to rename this type when we introduced the 'fpg' prefix years ago.

2 files changed, 25 insertions, 25 deletions

diff --git a/extras/contributed/report_tool/reportengine/u_commande.pas b/extras/contributed/report_tool/reportengine/u_commande.pas
index 84280bf6..527b08db 100644
--- a/extras/contributed/report_tool/reportengine/u_commande.pas
+++ b/extras/contributed/report_tool/reportengine/u_commande.pas
@@ -128,9 +128,9 @@ type
       constructor Create; virtual;
       destructor Destroy; override;
       procedure LoadTexte(APosX,APosY: Single; AColonne,ATexte,AFonte,AHeight,AFond,ABord,AInterL: Integer;
-                ACurFont: Boolean; AFlags: TFTextFlags);
+                ACurFont: Boolean; AFlags: TfpgTextFlags);
       procedure LoadNumero(APosX,APosY: Single; AColonne,ATexteNum,ATexteTot,AFonte,AHeight,AFond,ABord,AInterL: Integer;
-                ACurFont: Boolean; AFlags: TFTextFlags; ATotal,AAlpha: Boolean; ATypeNum: TSectPageNum);
+                ACurFont: Boolean; AFlags: TfpgTextFlags; ATotal,AAlpha: Boolean; ATypeNum: TSectPageNum);
       property Commandes: TList read FCommandes;
       property LineHeight: Integer read FHeight;
     end;
@@ -157,9 +157,9 @@ type
       FBord: Integer;
       FInterL: Integer;
       FCurFont: Boolean;
-      FFlags: TFTextFlags;
+      FFlags: TfpgTextFlags;
     public
-      constructor Create(APosX,APosY: Single; AColonne,ATexte,AFonte,AFond,ABord,AInterL: Integer; ACurFont: Boolean; AFlags: TFTextFlags); virtual;
+      constructor Create(APosX,APosY: Single; AColonne,ATexte,AFonte,AFond,ABord,AInterL: Integer; ACurFont: Boolean; AFlags: TfpgTextFlags); virtual;
       procedure SetPosY(const AValue: Single);
       property GetPosX: Single read FPosX;
       property GetPosY: Single read FPosY;
@@ -170,7 +170,7 @@ type
       property GetBord: Integer read FBord;
       property GetInterL: Integer read FInterL;
       property GetCurFont: Boolean read FCurFont;
-      property GetFlags: TFTextFlags read FFlags;
+      property GetFlags: TfpgTextFlags read FFlags;
     end;
 
   T_Numero = class(T_Commande)
@@ -185,13 +185,13 @@ type
       FBord: Integer;
       FInterL: Integer;
       FCurFont: Boolean;
-      FFlags: TFTextFlags;
+      FFlags: TfpgTextFlags;
       FTotal: Boolean;
       FAlpha: Boolean;
       FTypeNum: TSectPageNum;
     public
       constructor Create(APosX,APosY: Single; AColonne,ATexteNum,ATexteTot,AFonte,AFond,ABord,AInterL: Integer;
-                  ACurFont: Boolean; AFlags: TFTextFlags; ATotal,AAlpha: Boolean; ATypeNum: TSectPageNum); virtual;
+                  ACurFont: Boolean; AFlags: TfpgTextFlags; ATotal,AAlpha: Boolean; ATypeNum: TSectPageNum); virtual;
       procedure SetPosY(const AValue: Single);
       property GetPosX: Single read FPosX;
       property GetPosY: Single read FPosY;
@@ -203,7 +203,7 @@ type
       property GetBord: Integer read FBord;
       property GetInterL: Integer read FInterL;
       property GetCurFont: Boolean read FCurFont;
-      property GetFlags: TFTextFlags read FFlags;
+      property GetFlags: TfpgTextFlags read FFlags;
       property GetTotal: Boolean read FTotal;
       property GetAlpha: Boolean read FAlpha;
       property GetTypeNum: TSectPageNum read FTypeNum;
@@ -582,7 +582,7 @@ inherited Destroy;
 end;
 
 procedure T_Ligne.LoadTexte(APosX,APosY: Single; AColonne,ATexte,AFonte,AHeight,AFond,ABord,AInterL: Integer;
-          ACurFont: Boolean; AFlags: TFTextFlags);
+          ACurFont: Boolean; AFlags: TfpgTextFlags);
 begin
 if FHeight< AHeight
 then
@@ -592,7 +592,7 @@ Commandes.Add(ACommande);
 end;
 
 procedure T_Ligne.LoadNumero(APosX,APosY: Single; AColonne,ATexteNum,ATexteTot,AFonte,AHeight,AFond,ABord,AInterL: Integer;
-          ACurFont: Boolean; AFlags: TFTextFlags; ATotal,AAlpha: Boolean; ATypeNum: TSectPageNum);
+          ACurFont: Boolean; AFlags: TfpgTextFlags; ATotal,AAlpha: Boolean; ATypeNum: TSectPageNum);
 begin
 if FHeight< AHeight
 then
@@ -610,7 +610,7 @@ then
   FPosY:= AValue;
 end;
 
-constructor T_EcritTexte.Create(APosX,APosY: Single; AColonne,ATexte,AFonte,AFond,ABord,AInterL: Integer; ACurFont: Boolean; AFlags: TFTextFlags);
+constructor T_EcritTexte.Create(APosX,APosY: Single; AColonne,ATexte,AFonte,AFond,ABord,AInterL: Integer; ACurFont: Boolean; AFlags: TfpgTextFlags);
 begin
 inherited Create;
 FPosX:= APosX;
@@ -633,7 +633,7 @@ then
 end;
 
 constructor T_Numero.Create(APosX,APosY: Single; AColonne,ATexteNum,ATexteTot,AFonte,AFond,ABord,AInterL: Integer;
-            ACurFont: Boolean; AFlags: TFTextFlags; ATotal,AAlpha: Boolean; ATypeNum: TSectPageNum);
+            ACurFont: Boolean; AFlags: TfpgTextFlags; ATotal,AAlpha: Boolean; ATypeNum: TSectPageNum);
 begin
 inherited Create;
 FPosX:= APosX;
diff --git a/extras/contributed/report_tool/reportengine/u_imprime.pas b/extras/contributed/report_tool/reportengine/u_imprime.pas
index 1cced2b4..7f66272d 100644
--- a/extras/contributed/report_tool/reportengine/u_imprime.pas
+++ b/extras/contributed/report_tool/reportengine/u_imprime.pas
@@ -71,9 +71,9 @@ type
       procedure DecaleLigne(Decalage: Single);
       procedure DecaleGroupe(Decalage: Single);
       function EcritLigne(PosX,PosY: Single; Colonne,Texte,FonteNum,FondNum,BordNum,InterL: Integer;
-                TxtFlags: TFTextFlags; Zone: TZone): Single;
+                TxtFlags: TfpgTextFlags; Zone: TZone): Single;
       function EcritNum(PosX,PosY: Single; Colonne,TexteNum,TexteTot,FonteNum,FondNum,BordNum,InterL: Integer;
-                TxtFlags: TFTextFlags; Total,Alpha: Boolean; Zone: TZone; SPNum: TSectPageNum): Single;
+                TxtFlags: TfpgTextFlags; Total,Alpha: Boolean; Zone: TZone; SPNum: TSectPageNum): Single;
       function InsereEspace(PosY: Single; Colonne: Integer; EspHeight: Single; FondNum: Integer; Zone: TZone): Single;
       procedure FinLigne(Zone: TZone);
       procedure TraceCadre(StTrait: Integer; Zone: TZone);
@@ -915,7 +915,7 @@ with AGroupe do
 end;
 
 function T_Imprime.EcritLigne(PosX,PosY: Single; Colonne,Texte,FonteNum,FondNum,BordNum,InterL: Integer;
-          TxtFlags: TFTextFlags; Zone: TZone): Single;
+          TxtFlags: TfpgTextFlags; Zone: TZone): Single;
 var
   PosH,PosV,IntlInt,IntLSup,IntLInf,EpaisTrait: Single;
   HTxt,HautTxt,Half,CoulTrait,Cpt: Integer;
@@ -1345,7 +1345,7 @@ with T_Section(Sections[Pred(NumeroSection)]) do
 end;
 
 function T_Imprime.EcritNum(PosX,PosY: Single; Colonne,TexteNum,TexteTot,FonteNum,FondNum,BordNum,InterL: Integer;
-          TxtFlags: TFTextFlags; Total,Alpha: Boolean; Zone: TZone; SPNum: TSectPageNum): Single;
+          TxtFlags: TfpgTextFlags; Total,Alpha: Boolean; Zone: TZone; SPNum: TSectPageNum): Single;
 
   function BuildChaine: string;
   var
@@ -2359,7 +2359,7 @@ procedure T_Imprime.EcritEnTete(Horiz,Verti: Single; Texte: string; ColNum: Inte
           InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1);
 var
   RefTexte: Integer;
-  Flags: TFTextFlags;
+  Flags: TfpgTextFlags;
 begin
 Flags:= [];
 if Horiz< 0
@@ -2391,7 +2391,7 @@ function T_Imprime.EcritPage(Horiz,Verti: Single; Texte: string; ColNum: Integer
           InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1): Single;
 var
   RefTexte: Integer;
-  Flags: TFTextFlags;
+  Flags: TfpgTextFlags;
 begin
 Flags:= [];
 if Horiz< 0
@@ -2423,7 +2423,7 @@ procedure T_Imprime.EcritPied(Horiz,Verti: Single; Texte: string; ColNum: Intege
           InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1);
 var
   RefTexte: Integer;
-  Flags: TFTextFlags;
+  Flags: TfpgTextFlags;
 begin
 Flags:= [];
 if Horiz< 0
@@ -2456,7 +2456,7 @@ procedure T_Imprime.NumSectionEnTete(Horiz,Verti: Single; TexteSect: string= '';
           InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1);
 var
   RefTextePage,RefTexteTot: Integer;
-  Flags: TFTextFlags;
+  Flags: TfpgTextFlags;
 begin
 Flags:= [];
 if Horiz< 0
@@ -2493,7 +2493,7 @@ procedure T_Imprime.NumSectionPied(Horiz,Verti: Single; TexteSect: string= ''; T
           InterNum: Integer= 0;CoulFdNum: Integer= -1; BordNum: Integer= -1);
 var
   RefTextePage,RefTexteTot: Integer;
-  Flags: TFTextFlags;
+  Flags: TfpgTextFlags;
 begin
 Flags:= [];
 if Horiz< 0
@@ -2530,7 +2530,7 @@ procedure T_Imprime.NumPageEnTete(Horiz,Verti: Single; TextePage: string= ''; Te
           CoulFdNum: Integer= -1; BordNum: Integer= -1);
 var
   RefTextePage,RefTexteTot: Integer;
-  Flags: TFTextFlags;
+  Flags: TfpgTextFlags;
 begin
 Flags:= [];
 if Horiz< 0
@@ -2567,7 +2567,7 @@ procedure T_Imprime.NumPagePied(Horiz,Verti: Single; TextePage: string= ''; Text
           CoulFdNum: Integer= -1; BordNum: Integer= -1);
 var
   RefTextePage,RefTexteTot: Integer;
-  Flags: TFTextFlags;
+  Flags: TfpgTextFlags;
 begin
 Flags:= [];
 if Horiz< 0
@@ -2604,7 +2604,7 @@ procedure T_Imprime.NumPageSectionEnTete(Horiz,Verti: Single; TexteSect: string=
           InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1);
 var
   RefTextePage,RefTexteTot: Integer;
-  Flags: TFTextFlags;
+  Flags: TfpgTextFlags;
 begin
 Flags:= [];
 if Horiz< 0
@@ -2641,7 +2641,7 @@ procedure T_Imprime.NumPageSectionPied(Horiz,Verti: Single; TexteSect: string= '
           InterNum: Integer= 0; CoulFdNum: Integer= -1; BordNum: Integer= -1);
 var
   RefTextePage,RefTexteTot: Integer;
-  Flags: TFTextFlags;
+  Flags: TfpgTextFlags;
 begin
 Flags:= [];
 if Horiz< 0