paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 19:52:26 +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; AImageIndex := AMenuItem.ImageIndex;
end; end;
if not AMenuItem.Enabled then if AMenuItem.Enabled then
AEffect := gdeDisabled AEffect := gdeNormal
else else
if ASelected then AEffect := gdeDisabled;
AEffect := gdeHighlighted
else
AEffect := gdeNormal;
if AImageIndex < AImageList.Count then if AImageIndex < AImageList.Count then
begin begin