paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 14:07:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: add support for '&' in themed text drawing

Browse Source 
git-svn-id: trunk@15293 -
This commit is contained in:
paul 2008-06-03 00:48:10 +00:00
parent ad99296adb
commit 372a450379
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/themes.pas
View File

@ -2109,6 +2109,7 @@ begin
TXTStyle := Canvas.TextStyle; TXTStyle := Canvas.TextStyle;
TXTStyle.Opaque := False; TXTStyle.Opaque := False;
TXTStyle.Clipping := True; TXTStyle.Clipping := True;
TXTStyle.ShowPrefix := (Flags and DT_NOPREFIX) = 0;
if (Flags and DT_CENTER) <> 0 then if (Flags and DT_CENTER) <> 0 then
TXTStyle.Alignment := taCenter TXTStyle.Alignment := taCenter