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

* Patch from Pascal Riekenberg: do not draw shape if not necessary

Browse Source 
git-svn-id: trunk@55905 -
This commit is contained in:
michael 2017-09-23 19:13:03 +00:00
parent 68bb0fb375
commit 0fd8c2b8f3
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpreport/fpreportlclexport.pas
View File

@ -736,6 +736,10 @@ begin
SR:=GetElementRect(BL,SL);
{ Frame must be drawn before the shape as it could have a fill color. }
RenderFrame(AShape.Frame, SR, ABand.Frame.BackgroundColor);
{ exit if Shape will not be visible. }
if (TFPReportShape(AShape).Color = fpreport.clNone)
or (TFPReportShape(AShape).Color = AShape.Frame.BackgroundColor) then
exit;
Canvas.Pen.Color:=TFPReportShape(AShape).Color;
Canvas.Pen.Style:=psSolid;
Canvas.Pen.Width:=1;