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

textextent test: Fixes a tipo

Browse Source 
git-svn-id: trunk@33560 -
This commit is contained in:
sekelsenmat 2011-11-16 11:01:09 +00:00
parent 5611271435
commit fd7c5f87c7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -50,7 +50,7 @@ begin
// TextFitInfo test 1 (calls GetTextExtentExPoint with partial widths = nil)
lStr := 'ABCDEFGHIJKLMNOPQRSXYZ';
lRes := Image.Canvas.TextFitInfo(lStr, 80);
Image.Canvas.TextOut(20, 20, Format('TextFitInfo Text 1. Returned %d should be aprox. 10', [lRes]));
Image.Canvas.TextOut(20, 20, Format('TextFitInfo Test 1. Returned %d should be aprox. 7 to 10', [lRes]));
Image.Canvas.Brush.Color := clBlue;
Image.Canvas.Rectangle(20, 35, 100, 50);
Image.Canvas.TextOut(20, 35, lStr);
@ -60,7 +60,7 @@ begin
LCLIntf.GetTextExtentExPoint(Image.Canvas.Handle, PChar(lStr),
Length(lStr), 50, @lMaxCount, @lPartialWidths[0], lSize);
lRes := Image.Canvas.TextFitInfo(lStr, 50);
Image.Canvas.TextOut(20, 60, Format('GetTextExtentExPoint Text 1. Returned MaxCount=%d should be aprox. 6', [lMaxCount]));
Image.Canvas.TextOut(20, 60, Format('GetTextExtentExPoint Test 1. Returned MaxCount=%d should be aprox. 4 to 6', [lMaxCount]));
Image.Canvas.Brush.Color := clBlue;
for i := 0 to 6 do
begin