Menubar alt keybinds, dont listen to AltGr

Villavu · Oct 15, 2023 · 4d1d106 · 4d1d106
1 parent 25af4be
commit 4d1d106
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Source/components/simba.component_menubar.pas b/Source/components/simba.component_menubar.pas
@@ -238,7 +238,7 @@ procedure TSimbaMainMenuBar.KeyDown(var Key: Word; Shift: TShiftState);
 begin
   if Focused then
   begin
-    if (Key = VK_MENU) then
+    if (Key = VK_MENU) and (not (ssAltGr in Shift)) then
     begin
       Key := VK_RIGHT;
     end;

diff --git a/Source/forms/simba.main.pas b/Source/forms/simba.main.pas
@@ -722,7 +722,7 @@ procedure TSimbaForm.FormDestroy(Sender: TObject);
 
 procedure TSimbaForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
-  if (Key = VK_MENU) and MenuBar.CanSetFocus() then
+  if (Key = VK_MENU) and (not (ssAltGr in Shift)) and MenuBar.CanSetFocus() then
     MenuBar.SetFocus();
 end;