enhance: reduce width of left gutter in popup text editor

ansgarbecker · ansgarbecker · commit 4215aeeaaf34 · 2025-12-18T17:14:22.000+01:00
diff --git a/source/texteditor.lfm b/source/texteditor.lfm
@@ -10,11 +10,11 @@ object frmTextEditor: TfrmTextEditor
   Constraints.MinHeight = 125
   Constraints.MinWidth = 375
   DesignTimePPI = 120
+  Position = poMainFormCenter
   OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnShow = FormShow
-  Position = poMainFormCenter
   object Panel1: TPanel
     Left = 0
     Height = 40
@@ -138,8 +138,8 @@ object frmTextEditor: TfrmTextEditor
         Caption = 'Customize highlighter'
         DropdownMenu = popupHighlighter
         ImageIndex = 39
-        OnClick = btnCustomizeHighlighterClick
         Style = tbsDropDown
+        OnClick = btnCustomizeHighlighterClick
       end
     end
     object comboHighlighter: TComboBox
@@ -182,7 +182,7 @@ object frmTextEditor: TfrmTextEditor
     TabOrder = 1
     OnClick = MemoTextClick
     OnKeyDown = MemoTextKeyDown
-    Gutter.Width = 72
+    Gutter.Width = 71
     Gutter.MouseActions = <>
     RightGutter.Width = 0
     RightGutter.MouseActions = <>
@@ -223,9 +223,10 @@ object frmTextEditor: TfrmTextEditor
       end
       object SynGutterLineNumber1: TSynGutterLineNumber
         Width = 21
+        LeftOffset = 2
         MouseActions = <>
         MarkupInfo.Background = clBtnFace
-        MarkupInfo.Foreground = clNone
+        MarkupInfo.Foreground = clGrayText
         DigitCount = 2
         ShowOnlyLineNumbersMultiplesOf = 1
         ZeroStart = False
@@ -237,12 +238,6 @@ object frmTextEditor: TfrmTextEditor
         ModifiedColor = 59900
         SavedColor = clGreen
       end
-      object SynGutterSeparator1: TSynGutterSeparator
-        Width = 3
-        MouseActions = <>
-        MarkupInfo.Background = clWhite
-        MarkupInfo.Foreground = clGray
-      end
       object SynGutterCodeFolding1: TSynGutterCodeFolding
         Width = 13
         MouseActions = <>
diff --git a/source/texteditor.pas b/source/texteditor.pas
@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, Graphics, Forms, Controls, StdCtrls, laz.VirtualTrees,
-  ComCtrls, Dialogs, SysUtils, Menus, LCLType,
+  ComCtrls, Dialogs, SysUtils, Menus, LCLType, SynGutterCodeFolding,
   apphelpers, ActnList, extra_controls,
   ExtCtrls, dbconnection, SynEdit, SynEditHighlighter, customize_highlighter,
   Laz2_DOM, Laz2_XMLRead, Laz2_XMLWrite,
@@ -240,6 +240,7 @@ procedure TfrmTextEditor.FormCreate(Sender: TObject);
 var
   Highlighters: TSynHighlighterList;
   i: Integer;
+  CodeFoldingPart: TSynGutterCodeFolding;
 begin
   HasSizeGrip := True;
   FClosingByApplyButton := False;
@@ -272,6 +273,10 @@ procedure TfrmTextEditor.FormCreate(Sender: TObject);
   MemoText.Options := MainForm.SynMemoQuery.Options;
   MemoText.Options2 := MainForm.SynMemoQuery.Options2;
   MemoText.Keystrokes := MainForm.SynMemoQuery.Keystrokes;
+  CodeFoldingPart := MemoText.Gutter.CodeFoldPart(0);
+  if Assigned(CodeFoldingPart) then begin
+    CodeFoldingPart.Visible := MainForm.actCodeFolding.Checked;
+  end;
   if AppSettings.ReadBool(asMemoEditorMaximized) then
     WindowState := wsMaximized;
   // Restore form dimensions
