paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 14:20:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: don't report that shortcut is handled if shortcut menu item is disabled

Browse Source 
git-svn-id: trunk@23604 -
This commit is contained in:
paul 2010-01-30 18:47:58 +00:00
parent f0c2b4ccf2
commit d4aa924e22
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/menu.inc
View File

@ -256,7 +256,9 @@ function TMenu.IsShortcut(var Message: TLMKey): boolean;
begin
Item.InitiateActions;
Item.Click;
end;
end
else
FShortcutHandled := False;
end;
var