diff options
| -rw-r--r-- | extras/contributed/report_tool/reportengine/u_pdf.pas | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/extras/contributed/report_tool/reportengine/u_pdf.pas b/extras/contributed/report_tool/reportengine/u_pdf.pas index b4e8415d..25a89e97 100644 --- a/extras/contributed/report_tool/reportengine/u_pdf.pas +++ b/extras/contributed/report_tool/reportengine/u_pdf.pas @@ -212,7 +212,7 @@ type protected procedure WriteColor(const AFlux: TStream); public - constructor CreateColor(const AStroke: Boolean; Couleur: LongInt); + constructor CreateColor(const AStroke: Boolean; AColor: TfpgColor); destructor Destroy; override; end; @@ -865,14 +865,13 @@ else end; end; -constructor TPdfColor.CreateColor(const AStroke: Boolean; Couleur: Longint); +constructor TPdfColor.CreateColor(const AStroke: Boolean; AColor: TfpgColor); begin -inherited Create; -FBlue:= FormatFloat('0.##',Couleur mod 256/256); -Couleur:= Couleur div 256; -FGreen:= FormatFloat('0.##',Couleur mod 256/256); -FRed:= FormatFloat('0.##',Couleur div 256/256); -FStroke:= AStroke; + inherited Create; + FBlue := FormatFloat('0.##', fpgGetBlue(AColor)/256); + FGreen := FormatFloat('0.##', fpgGetGreen(AColor)/256); + FRed := FormatFloat('0.##', fpgGetRed(AColor)/256); + FStroke := AStroke; end; destructor TPdfColor.Destroy; |