From edbbec026e142fb785ca47041a173fe11ca37e05 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Wed, 1 May 2013 23:24:08 +0000
Subject: [PATCH] CairoCanvas: debugclip

git-svn-id: trunk@40981 -
---
 components/cairocanvas/cairocanvas.pas | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/components/cairocanvas/cairocanvas.pas b/components/cairocanvas/cairocanvas.pas
index 7f183be1cb..75d7fb6c1f 100644
--- a/components/cairocanvas/cairocanvas.pas
+++ b/components/cairocanvas/cairocanvas.pas
@@ -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);