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

textextent test: Fixes a tipo

Browse Source 
git-svn-id: trunk@33559 -
This commit is contained in:
sekelsenmat 2011-11-16 10:52:54 +00:00
parent 3a71f62ad3
commit 5611271435
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/lclmanual/textextent/mainform.pas
View File

@ -52,7 +52,7 @@ begin
lRes := Image.Canvas.TextFitInfo(lStr, 80);
Image.Canvas.TextOut(20, 20, Format('TextFitInfo Text 1. Returned %d should be aprox. 10', [lRes]));
Image.Canvas.Brush.Color := clBlue;
Image.Canvas.Rectangle(20, 35, 70, 50);
Image.Canvas.Rectangle(20, 35, 100, 50);
Image.Canvas.TextOut(20, 35, lStr);
// GetTextExtentExPoint test 1 with partial widths and MaxCount