paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 19:29:25 +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
This commit is contained in:
wp_xyz 2023-01-14 16:10:11 +01:00
parent 408f319004
commit 45e80c9d97
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

@ -1212,13 +1212,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