summaryrefslogtreecommitdiff
path: root/extras/contributed/report_tool/reportengine
diff options
context:
space:
mode:
Diffstat (limited to 'extras/contributed/report_tool/reportengine')
-rw-r--r--extras/contributed/report_tool/reportengine/u_commande.pas24
-rw-r--r--extras/contributed/report_tool/reportengine/u_imprime.pas26
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
generated by cgit v1.2.3-70-g09d2 (git 2.47.1) at 2024-12-27 10:57:01 +0000