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

win32: draw menubar with COLOR_MENU in case of non flat menus (bug #0017867)

Browse Source 
git-svn-id: trunk@28270 -
This commit is contained in:
paul 2010-11-16 13:25:54 +00:00
parent 650a8ad5d0
commit f5461a5c18
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -841,7 +841,7 @@ begin
begin begin
// 3d menu bar always have standard color // 3d menu bar always have standard color
if aIsInMenuBar then if aIsInMenuBar then
Result := GetSysColor(COLOR_3DFACE) Result := GetSysColor(COLOR_MENU)
else else
if (ItemState and ODS_SELECTED) <> 0 then if (ItemState and ODS_SELECTED) <> 0 then
Result := GetSysColor(COLOR_HIGHLIGHT) Result := GetSysColor(COLOR_HIGHLIGHT)