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

LazReport, fix opaque background on rroundrect object print & pdf export

Browse Source 
git-svn-id: trunk@34291 -
This commit is contained in:
jesus 2011-12-19 19:25:27 +00:00
parent a454e1415f
commit 45d2898b79
2 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazreport/source/addons/pdfexport/lr_e_pdf.pas
View File

@ -385,7 +385,10 @@ begin
// draw roundrect
Data.ShapeType := frstRoundRect;
Data.FillColor := ColorToRGB(View.FillColor);
if View.FillColor=clNone then
Data.FillColor := clNone
else
Data.FillColor := ColorToRGB(View.FillColor);
if View.Frames=[] then
Data.FrameColor := Data.FillColor
else

19
components/lazreport/source/lr_rrect.pas
View File

@ -550,6 +550,7 @@ begin
Typ := gtAddIn;
Frames := frAllFrames;
BaseName := 'RoundRect';
//Default values
fCadre.SGradian:=False;
fCadre.GradStyle:=gsHorizontal;
@ -566,7 +567,16 @@ end;
procedure TfrRoundRectView.Assign(From: TfrView);
begin
inherited Assign(From);
fCadre := TfrRoundRectView(From).fCadre;
if from is TfrRoundRectView then
fCadre := TfrRoundRectView(From).fCadre
else
begin
fCadre.wCurve:=10;
fCadre.sCurve:=true;
fCadre.SGradian:=false;
fCadre.wShadow:=0;
fCadre.Corners:=[ctTopLeft,ctBottomLeft,ctBottomRight,ctTopRight];
end;
end;
procedure TfrRoundRectView.LoadFromStream(Stream: TStream);
@ -672,7 +682,10 @@ begin
// Trace l'ombre
Pen.Style := psSolid;
Brush.Style := bsSolid; //bsClear
if FillColor=clNone then
Brush.Style := bsClear
else
Brush.Style := bsSolid;
Pen.Color := fCadre.SdColor;
Pen.Width := Round(FrameWidth);
Brush.Color := fCadre.SdColor;
@ -702,6 +715,8 @@ begin
end
else
Rectangle(x, y, x + dx + 1 - FSW, y + dy + 1 - FSW);
Brush.Style := bsSolid;
end;
end;