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

CairoCanvas, test, normal spacing

Browse Source 
git-svn-id: trunk@40709 -
This commit is contained in:
jesus 2013-04-03 21:52:49 +00:00
parent 17be5daa11
commit e28fa6096c
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/cairocanvas/tests/24217/unit1.pas
View File

@ -217,6 +217,7 @@ const
CTEXT='Hola'; CTEXT='Hola';
var var
R: TRect; R: TRect;
sz: TSize;
begin begin
R := Rect(XDPI, YDPI*2, XDPI*3, round(YDPI*2.5)); R := Rect(XDPI, YDPI*2, XDPI*3, round(YDPI*2.5));
@ -234,6 +235,13 @@ begin
cnv.Font.Color := clRed; cnv.Font.Color := clRed;
cnv.TextOut(R.left, R.Top, CTEXT); cnv.TextOut(R.left, R.Top, CTEXT);
cnv.Rectangle(R); 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;
end. end.