paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

PowerPDF: corrects default radius for roundrect shape plus lcl roundrect function uses diameter not radius as it seems by the RX parameters

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2175 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr 2011-11-29 07:14:08 +00:00
parent 2c99a0ce7a
commit 6577163d6c
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/powerpdf/PReport.pas
View File

@ -2130,10 +2130,7 @@ begin
Result := ClientWidth; Result := ClientWidth;
if FRadius<0.0 then if FRadius<0.0 then
Result := Result/4 Result := Result/8 // min(w,h)/4 is default diamter
else
if FRadius>Result/2 then
Result := Result/2
else else
Result := FRadius; Result := FRadius;
end; end;
@ -2185,7 +2182,7 @@ begin
end; end;
if ARadius<>0 then if ARadius<>0 then
RoundRect(Left,Top,Right,Bottom,ARadius,ARadius); RoundRect(Left,Top,Right,Bottom,ARadius*2,ARadius*2);
end; end;
end; end;