made line number be same width in all tabs

FRex · Dec 19, 2019 · 62f5fa7 · 62f5fa7
1 parent 627455d
commit 62f5fa7
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/mainunit.pas b/mainunit.pas
@@ -103,7 +103,7 @@ implementation
 
 uses
   StrUtils, dateutils, Math, LCLIntf, SynEditMarkupHighAll, SysUtils,
-  SynHighlighterAny, FileUtil;
+  SynHighlighterAny, FileUtil, SynGutterLineNumber;
 
 const
   LineCountPanel = 0;
@@ -231,6 +231,10 @@ procedure TForm1.FormCreate(Sender: TObject);
     FAllLines.LoadFromFile(allnotespath);
     notespanelstr := allnotespath + ' - ' + PrettyPrintFileSize(FileSize(allnotespath));
     StatusBar.Panels[NotesPathSizePanel].Text := notespanelstr;
+    if TextEditor.Gutter.Parts.Part[1] is TSynGutterLineNumber then
+      (TextEditor.Gutter.Parts.Part[1] as TSynGutterLineNumber).DigitCount :=
+        Length(IntToStr(FAllLines.Count));
+
   except
     on EFOpenError do
       MessageDlg('File not found', Format('Failed to open file: %s', [allnotespath]),