From e28fa6096c6f30c92b27d0f2a49b4df0a7cbcd7a Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Wed, 3 Apr 2013 21:52:49 +0000
Subject: [PATCH] CairoCanvas, test, normal spacing

git-svn-id: trunk@40709 -
---
 components/cairocanvas/tests/24217/unit1.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/components/cairocanvas/tests/24217/unit1.pas b/components/cairocanvas/tests/24217/unit1.pas
index 572cb26742..ace4ccb702 100644
--- a/components/cairocanvas/tests/24217/unit1.pas
+++ b/components/cairocanvas/tests/24217/unit1.pas
@@ -217,6 +217,7 @@ const
   CTEXT='Hola';
 var
   R: TRect;
+  sz: TSize;
 begin
 
   R := Rect(XDPI, YDPI*2, XDPI*3, round(YDPI*2.5));
@@ -234,6 +235,13 @@ begin
   cnv.Font.Color := clRed;
   cnv.TextOut(R.left, R.Top, CTEXT);
   cnv.Rectangle(R);
+
+  OffsetRect(R, -5, Round(YDPI*0.5));
+  sz := cnv.TextExtent('Line1');
+  cnv.Font.color := clDefault;
+  cnv.TextOut(R.Left, R.Top, 'Line1'); OffsetRect(R, 0, sz.cy);
+  cnv.TextOut(R.Left, R.Top, 'Line2'); OffsetRect(R, 0, sz.cy);
+  cnv.TextOut(R.Left, R.Top, 'Line3'); OffsetRect(R, 0, sz.cy);
 end;
 
 end.