paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 14:36:09 +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
// 3d menu bar always have standard color
if aIsInMenuBar then
Result := GetSysColor(COLOR_3DFACE)
Result := GetSysColor(COLOR_MENU)
else
if (ItemState and ODS_SELECTED) <> 0 then
Result := GetSysColor(COLOR_HIGHLIGHT)