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

LCL: Themes.DrawText() added DT_WORDBREAK and DT_END_ELLIPSIS.

Browse Source 
git-svn-id: trunk@34028 -
This commit is contained in:
zeljko 2011-12-07 15:51:26 +00:00
parent 4a2a70dece
commit 534feafb8e
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/themes.pas
View File

@ -2349,6 +2349,12 @@ begin
// set color here, otherwise SystemFont is wrong if the button was disabled before
TXTStyle.SystemFont := Canvas.Font.IsDefault;//Match System Default Style
TXTStyle.Wordbreak := (Flags and DT_WORDBREAK) <> 0;
if not TXTStyle.Wordbreak then
TXTStyle.EndEllipsis := (Flags and DT_END_ELLIPSIS) <> 0
else
TXTStyle.EndEllipsis := False;
OldColor := Canvas.Font.Color;
if IsDisabled(Details) then
begin