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

CairoCanvas: debugclip

Browse Source 
git-svn-id: trunk@40981 -
This commit is contained in:
jesus 2013-05-01 23:24:08 +00:00
parent 24fb6810b9
commit edbbec026e
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/cairocanvas/cairocanvas.pas
View File

@ -8,6 +8,7 @@ unit CairoCanvas;
{$define pangocairo}
{-$define breaklines} // disabled as it's not UTF-8 safe
{-$define DebugClip}
interface
@ -355,6 +356,14 @@ begin
cairo_reset_clip(cr);
{$ifdef DebugClip}
with fUserClipRect^ do begin
DrawPoint(x, y, clRed);
DrawPoint(x+Width, y+Height, clBlue);
DrawRefRect(x, y, width, height, clAqua);
end;
{$endif}
with fUserClipRect^ do
cairo_rectangle(cr, x, y, width, Height);
@ -968,9 +977,11 @@ begin
r := BoxWidth+Pen.Width;
b := BoxHeight+Pen.Width;
//DrawPoint(boxLeft, boxTop, clRed);
//DrawPoint(boxLeft+r, boxTop+b, clBlue);
//DrawRefRect(boxLeft, boxTop, r, b, clGreen);
{$ifdef DebugClip}
DrawPoint(boxLeft, boxTop, clRed);
DrawPoint(boxLeft+r, boxTop+b, clBlue);
DrawRefRect(boxLeft, boxTop, r, b, clGreen);
{$endif}
cairo_rectangle(cr, BoxLeft, BoxTop, r, b);
cairo_clip(cr);