paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 02:19:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

Lazreport : FclPDFExport > FillColor for View's, patch by Paweld, issue #41061

Browse Source
This commit is contained in:
Jesus Reyes A 2024-08-08 18:06:19 -06:00
parent 27535e6d4a
commit 2c95585207
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/lazreport/source/addons/lrFclPDFExport/lr_e_fclpdf.pas
View File

@ -739,6 +739,9 @@ procedure TlrPdfExportFilter.DrawRect(X, Y, W, H: TPDFFloat; ABorderColor,
var
fX, fY, fW, fH: Extended;
begin
if AFrames = [] then
ABorderColor := clNone;
if (AFillColor = clNone) and (ABorderColor = clNone) then exit;
if ABorderColor <> clNone then
@ -753,9 +756,10 @@ begin
fY:= ConvetUnits(Y);
ABorderWidth:=ConvetUnits(ABorderWidth);
if AFrames = [frbLeft, frbTop, frbRight, frbBottom] then
FCurPage.DrawRect(fX, fY + fH, fW, fH, ABorderWidth, (AFillColor <> clNone), (ABorderColor <> clNone))
else
if (AFrames = [frbLeft, frbTop, frbRight, frbBottom]) or (AFillColor <> clNone) then
FCurPage.DrawRect(fX, fY + fH, fW, fH, ABorderWidth, (AFillColor <> clNone), ((ABorderColor <> clNone) and (AFrames = [frbLeft, frbTop, frbRight, frbBottom])));
if not (AFrames = [frbLeft, frbTop, frbRight, frbBottom]) then
begin
if frbLeft in AFrames then
FCurPage.DrawLine(fX, fY, fX, fY + fH, ABorderWidth);
@ -773,8 +777,7 @@ end;
procedure TlrPdfExportFilter.DrawRectView(AView: TfrView);
begin
if AView.Frames <> [] then
DrawRect(AView.Left, AView.Top, AView.Width, AView.Height, AView.FrameColor, AView.FillColor, AView.Frames, AView.FrameWidth);
DrawRect(AView.Left, AView.Top, AView.Width, AView.Height, AView.FrameColor, AView.FillColor, AView.Frames, AView.FrameWidth);
end;
procedure TlrPdfExportFilter.WriteURL(X, Y, W, H: TPDFFloat; AUrlText: string);