Add shortcuts to fold and unfold.

These shortcuts add more VK_OEM stuff. See https://code.visualstudio.com/docs/getstarted/keybindings?_lrsc=8254b004-5a2b-48ad-af57-5634a3ef99c2#_keyboard-layouts for some info about that.

Components/ScintEdit.pas

@@ -251,6 +251,7 @@   TScintEdit = class(TWinControl)
       const Options: TScintFindOptions; out MatchRange: TScintRange): Boolean;
     function FindText(const StartPos, EndPos: Integer; const S: String;
       const Options: TScintFindOptions; out MatchRange: TScintRange): Boolean;
+    procedure FoldLine(const Line: Integer; const Fold: Boolean);
     function FormatRange(const Draw: Boolean;
       const RangeToFormat: PScintRangeToFormat): Integer;
     procedure ForceModifiedState;
@@ -849,6 +850,19 @@ function TScintEdit.FindText(const StartPos, EndPos: Integer; const S: String;
     Options, MatchRange);
 end;
 
+procedure TScintEdit.FoldLine(const Line: Integer; const Fold: Boolean);
+begin
+  FLines.CheckIndexRange(Line);
+  { If the line is not part of a fold the following will return False }
+  var Folded := Call(SCI_GETFOLDEXPANDED, Line, 0) = 0;
+  if Fold <> Folded then begin
+    { If the line is not part of a fold the following will do nothing
+      and else if the line is not the header Scintilla will lookup the
+      header for us }
+    Call(SCI_TOGGLEFOLD, Line, 0);
+  end;
+end;
+
 procedure TScintEdit.ForceModifiedState;
 begin
   if not FForceModified then begin

ISHelp/isetup.xml

@@ -3269,6 +3269,12 @@ Filename: "{win}\MYPROG.INI"; Section: "InstallSettings"; Key: "InstallPath"; St
 <tr>
   <td>Select all.</td><td>Ctrl+A or Ctrl+Click on line number</td>
 </tr>
+<tr>
+  <td>Fold line.</td><td>Ctrl+Shift+[</td>
+</tr>
+<tr>
+  <td>Unfold line.</td><td>Ctrl+Shift+]</td>
+</tr>
 <tr>
   <td>Complete word.</td><td>Ctrl+Space or Ctrl+I or<br />Alt+Right if the Visual Studio menu key map is active</td>
 </tr>

Projects/Src/CompForm.pas

@@ -1154,6 +1154,8 @@ procedure TCompileForm.MemoKeyDown(Sender: TObject; var Key: Word;
         ESelectAllOccurrencesClick(Self);
       ccSelectAllFindMatches:
         ESelectAllFindMatchesClick(Self);
+      ccUnfoldLine, ccFoldLine:
+        FActiveMemo.FoldLine(FActiveMemo.CaretLine, ComplexCommand = ccFoldLine);
       ccSimplifySelection:
         begin
           { The built in Esc (SCI_CANCEL) simply drops all additional selections

Projects/Src/CompScintEdit.pas

@@ -64,7 +64,8 @@ interface
    { Commands which require more than 1 parameterless SCI_XXXXX and need help
      from the container }
   TCompScintComplexCommand = (ccNone, ccSelectNextOccurrence,
-    ccSelectAllOccurrences, ccSelectAllFindMatches, ccSimplifySelection);
+    ccSelectAllOccurrences, ccSelectAllFindMatches, ccSimplifySelection,
+    ccUnfoldLine, ccFoldLine);
 
   TCompScintEdit = class(TScintEdit)
   private
@@ -415,6 +416,8 @@ procedure TCompScintEdit.UpdateComplexCommands;
 
   AddComplexCommand(ShortCut(VK_RETURN, [ssAlt]), ccSelectAllFindMatches);
   AddComplexCommand(ShortCut(VK_ESCAPE, []), ccSimplifySelection);
+  AddComplexCommand(ShortCut(VK_OEM_6, [ssShift, ssCtrl]), ccUnfoldLine);
+  AddComplexCommand(ShortCut(VK_OEM_4, [ssShift, ssCtrl]), ccFoldLine);
 end;
 
 procedure TCompScintEdit.SetUseFolding(const Value: Boolean);

whatsnew.htm

@@ -47,7 +47,7 @@
 </ul>
 <p>Other editor changes:</p>
 <ul>
-  <li>Added new <i>Enable section folding</i> option which allows you to temporarily hide sections while editing. Enabled by default.</li>
+  <li>Added new <i>Enable section folding</i> option which allows you to temporarily hide sections while editing by clicking the new minus or plus icons in the editor's gutter or by using the new keyboard shortcuts (Ctrl+Shift+[ to fold and Ctrl+Shift+] to unfold). Enabled by default.</li>
   <li>The editor's gutter now shows change history to keep track of saved and unsaved modifications.</li>
   <li>The editor's font now defaults to Consolas if available, consistent with most other modern editors.</li>
   <li>The editor can now be scrolled horizontally instead of vertically by holding the Shift key while rotating the mouse wheel. Horizontal scroll wheels are now also supported.</li>
@@ -61,7 +61,7 @@
   <li>Added shortcuts to select a tab (Ctrl+1 through Ctrl+9).</li>
   <li>Added new <i>Word Wrap</i> menu item to the <i>View</i> menu (Alt+Z).</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>
+  <li>Minor tweaks and documentation improvements, including an update of the <a href="https://jrsoftware.org/ishelp/index.php?topic=compformshortcuts">Compiler IDE Keyboard And Mouse Commands</a> help topic.</li>
 </ul>
 
 <p>Contributions via <a href="https://github.com/jrsoftware/issrc" target="_blank">GitHub</a>: Thanks to Sergii Leonov for their contributions.</p>