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

CairoCanvas, fixed line widths and clipping bounds

Browse Source 
git-svn-id: trunk@40608 -
This commit is contained in:
jesus 2013-03-21 20:21:48 +00:00
parent 0bf1e0e25d
commit ccc3e57ea5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/cairocanvas/cairocanvas.pas
View File

@ -135,7 +135,7 @@ procedure TCairoPrinterCanvas.SetPenProperties;
var
i, w: integer;
begin
w := Pen.Width * 2;
w := Pen.Width;
for i := 0 to High(d) do
d[i] := d[i] * w;
cairo_set_dash(cr, @d, High(d), 0);
@ -189,7 +189,7 @@ begin
pjsMiter: cairo_set_line_join(cr, CAIRO_LINE_JOIN_MITER);
end;
cairo_set_line_width(cr, Pen.Width*FontScale); //line_width is diameter of the pen circle
cairo_set_line_width(cr, Pen.Width*72/XDPI); //line_width is diameter of the pen circle
end;
procedure TCairoPrinterCanvas.SetBrushProperties;
@ -676,7 +676,7 @@ begin
BreakBoxWidth := BoxWidth;
if Style.Clipping then begin
cairo_rectangle(cr, BoxLeft, BoxTop, BoxWidth, BoxHeight);
cairo_rectangle(cr, BoxLeft, BoxTop, BoxWidth+Pen.Width, BoxHeight+Pen.Width);
cairo_clip(cr);
end;
if Style.ExpandTabs then