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

LCL, TextStyle.SingleLine default value changed

Browse Source 
git-svn-id: trunk@11378 -
This commit is contained in:
jesus 2007-06-26 07:15:43 +00:00
parent c6dcb9b771
commit 898fa2da1f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/canvas.inc
View File

@ -1021,9 +1021,9 @@ begin
tlBottom : Options := Options or DT_BOTTOM;
end;
If Style.WordBreak then
Options := Options or DT_WORDBREAK
else
If Style.SingleLine then
Options := Options or DT_WORDBREAK;
If Style.SingleLine then
Options := Options or DT_SINGLELINE;
If not Style.Clipping then
@ -1352,7 +1352,7 @@ begin
Alignment := taLeftJustify;
Layout := tlTop;
WordBreak := True;
SingleLine := False;
SingleLine := True;
Clipping := True;
ShowPrefix := False;
Opaque := False;