enhance: move RightEdge on SQL editors out of sight

ansgarbecker · ansgarbecker · commit 2a23e26f8101 · 2025-12-08T18:53:17.000+01:00
diff --git a/source/main.lfm b/source/main.lfm
@@ -3413,6 +3413,7 @@ object MainForm: TMainForm
               Options = [eoAutoIndent, eoBracketHighlight, eoGroupUndo, eoKeepCaretX, eoPersistentCaret, eoShowScrollHint, eoTabIndent]
               Options2 = [eoFoldedCopyPaste, eoOverwriteBlock, eoPersistentCaretStopBlink, eoAcceptDragDropEditing]
               VisibleSpecialChars = [vscSpace, vscTabAtLast]
+              RightEdge = 800
               SelectedColor.BackPriority = 50
               SelectedColor.ForePriority = 50
               SelectedColor.FramePriority = 50
diff --git a/source/main.pas b/source/main.pas
@@ -13419,6 +13419,7 @@ procedure TMainForm.SetupSynEditor(Editor: TSynMemo);
   if Editor = SynMemoSQLLog then
     Editor.Options := Editor.Options + [eoRightMouseMovesCursor];
   Editor.TabWidth := AppSettings.ReadInt(asTabWidth);
+  Editor.RightEdge := BaseEditor.RightEdge;
   //Editor.MaxScrollWidth := BaseEditor.MaxScrollWidth;
   Editor.WantTabs := BaseEditor.WantTabs;
   //Editor.HintMode := BaseEditor.HintMode;
