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

win32: paint menu text with a transparent text background (by cobines, issue #0018424)

Browse Source 
git-svn-id: trunk@35911 -
This commit is contained in:
paul 2012-03-13 00:58:52 +00:00
parent 7763dcfc36
commit a452a818da
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32wsmenus.pp
View File

@ -966,6 +966,7 @@ procedure DrawMenuItemText(const AMenuItem: TMenuItem; const AHDC: HDC;
var
crText: COLORREF;
crBkgnd: COLORREF;
oldBkMode: Longint;
shortCutText: string;
IsRightToLeft: Boolean;
etoFlags: Cardinal;
@ -1027,6 +1028,8 @@ begin
Dec(ARect.Top, 1);
Dec(ARect.Bottom, 1);
oldBkMode := SetBkMode(AHDC, TRANSPARENT);
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS then
begin
@ -1066,6 +1069,8 @@ begin
DrawText(AHDC, PChar(shortCutText), Length(shortCutText), @ARect, dtFlags);
{$endif}
end;
SetBkMode(AHDC, oldBkMode);
end;
procedure DrawMenuItemIcon(const AMenuItem: TMenuItem; const AHDC: HDC;