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

LCL/Menu: Do not draw mouse-over menu items with effect gdeHighlighted on Windows. Issue #40092.

Browse Source 
(cherry picked from commit 45e80c9d97)
This commit is contained in:
wp_xyz 2023-01-14 16:10:11 +01:00 committed by Maxim Ganetsky
parent 35d60a2bb6
commit 153f8b932c
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1166,13 +1166,10 @@ begin
AImageIndex := AMenuItem.ImageIndex;
end;
if not AMenuItem.Enabled then
AEffect := gdeDisabled
if AMenuItem.Enabled then
AEffect := gdeNormal
else
if ASelected then
AEffect := gdeHighlighted
else
AEffect := gdeNormal;
AEffect := gdeDisabled;
if AImageIndex < AImageList.Count then
begin