From a452a818dab64178855226e8d9e77d2f28e9b989 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Tue, 13 Mar 2012 00:58:52 +0000
Subject: [PATCH] win32: paint menu text with a transparent text background (by
 cobines, issue #0018424)

git-svn-id: trunk@35911 -
---
 lcl/interfaces/win32/win32wsmenus.pp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lcl/interfaces/win32/win32wsmenus.pp b/lcl/interfaces/win32/win32wsmenus.pp
index 94e77c4104..c0a607a49b 100644
--- a/lcl/interfaces/win32/win32wsmenus.pp
+++ b/lcl/interfaces/win32/win32wsmenus.pp
@@ -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;