Add shortcut to TOptions.

jrsoftware · Jun 17, 2024 · 7db7186 · 7db7186
1 parent 60ccc49
commit 7db7186
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/Projects/Src/CompForm.pas b/Projects/Src/CompForm.pas
@@ -864,6 +864,8 @@ constructor TCompileForm.Create(AOwner: TComponent);
     don't conflict with the editor which also uses fake shortcuts for these }
   SetFakeShortCut(POutputListCopy, Ord('C'), [ssCtrl]);
   SetFakeShortCut(POutputListSelectAll, Ord('A'), [ssCtrl]);
+  { Set real shortcut on TOptions which can't be set at design time }
+  TOptions.ShortCut := ShortCut(VK_OEM_COMMA, [ssCtrl]);
 
   PopupMenu := TCompileFormPopupMenu.Create(Self, EMenu);
 

diff --git a/whatsnew.htm b/whatsnew.htm
@@ -56,6 +56,7 @@
 <p>Other changes:</p>
 <ul>
   <li>Moved the list of recently opened files into a new <i>Open Recent</i> submenu of the <i>Files</i> menu.</li>
+  <li>Added shortcut to the <i>Options</i> menu item in the <i>Tools</i> menu (Ctrl+,).</li>
   <li>Minor tweaks and documentation improvements.</li>
 </ul>