paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #0036503

Browse Source 
git-svn-id: trunk@43836 -
This commit is contained in:
michael 2020-01-02 14:10:29 +00:00
parent 295041e523
commit 9e530ac2c8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-report/test/tcbasereport.pp
View File

@ -3438,7 +3438,7 @@ begin
FMemo.UseParentFont := False;
FMemo.Font.Name := 'Calibri';
FMemo.StretchMode := smActualHeight;
TMemoFriend(FMemo).WordWrapOverflow:=wwoOverflow;
TMemoFriend(FMemo).WordOverflow:=woOverflow;
TMemoFriend(FMemo).CreateRTLayout;
TMemoFriend(FMemo).RecalcLayout;
AssertEquals('Failed on 1', 1, FMemo.TextLines.Count);
@ -3456,7 +3456,7 @@ begin
FMemo.UseParentFont := False;
FMemo.Font.Name := 'Calibri';
FMemo.StretchMode := smActualHeight;
TMemoFriend(FMemo).WordWrapOverflow:=wwoSplit;
TMemoFriend(FMemo).WordOverflow:=woSplit;
TMemoFriend(FMemo).CreateRTLayout;
TMemoFriend(FMemo).RecalcLayout;
AssertEquals('Failed on 1', 2, FMemo.TextLines.Count);