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

lcl: fix TThemeServices.DrawText - correctly set SingleLine, Clipping attributes

Browse Source 
git-svn-id: trunk@29647 -
This commit is contained in:
paul 2011-02-22 07:41:09 +00:00
parent d832146b1b
commit 5eaebdc1e4
1 changed files with 2 additions and 1 deletions

3
lcl/themes.pas
View File

@ -2339,8 +2339,9 @@ var
begin
TXTStyle := Canvas.TextStyle;
TXTStyle.Opaque := False;
TXTStyle.Clipping := True;
TXTStyle.Clipping := (Flags and DT_NOCLIP) = 0;
TXTStyle.ShowPrefix := (Flags and DT_NOPREFIX) = 0;
TXTStyle.SingleLine := (Flags and DT_SINGLELINE) <> 0;
if (Flags and DT_CENTER) <> 0 then
TXTStyle.Alignment := taCenter