refac

Alexey-T · Dec 24, 2023 · 967f2b9 · 967f2b9
1 parent 27f423b
commit 967f2b9
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 7 deletions.
diff --git a/app/formmain_py_api.inc b/app/formmain_py_api.inc
@@ -1796,7 +1796,6 @@ var
   StrText: string;
   Strs: TATStrings;
   bAllText: boolean;
-  ScrollInfo: TATEditorScrollInfo;
 begin
   with AppPython.Engine do
     if Bool(PyArg_ParseTuple(Args, 'Liiiis:replace', @H, @X1, @Y1, @X2, @Y2, @PtrText)) then
@@ -1820,13 +1819,9 @@ begin
         Shift,
         PosAfter);
 
+      //reset ScrollHorz.Max, it's needed because CudaFormatter can replace long one-liner to short lines
       if bAllText then
-      begin
-        //reset ScrollHorz.Max, it's needed because CudaFormatter could replace long one-liner to short lines
-        ScrollInfo:= Ed.ScrollHorz;
-        ScrollInfo.NMax:= 1;
-        Ed.ScrollHorz:= ScrollInfo;
-      end;
+        EditorResetHorizontalScrollbarMax(Ed);
 
       Ed.DoEventChange(Y1);
       Ed.UpdateWrapInfo(true); //fixing #4173

diff --git a/app/proc_editor.pas b/app/proc_editor.pas
@@ -150,6 +150,7 @@ procedure EditorForceUpdateIfWrapped(Ed: TATSynEdit);
 procedure EditorScrollToCaret(Ed: TATSynEdit; ANeedWrapOff, AllowProcessMsg: boolean);
 procedure EditorCaretToView(Ed: TATSynEdit; ANeedWrapOff, AllowProcessMsg: boolean);
 procedure EditorCalcOffsetsForStatusbar(Ed: TATSynEdit; out AOffsetMax, AOffsetCaret: integer);
+procedure EditorResetHorizontalScrollbarMax(Ed: TATSynEdit);
 
 type
   TATEditorTempOptions = record
@@ -3250,6 +3251,15 @@ procedure EditorConvertIndentation(Ed: TATSynEdit; ASpacesToTabs: boolean);
 end;
 
 
+procedure EditorResetHorizontalScrollbarMax(Ed: TATSynEdit);
+var
+  Info: TATEditorScrollInfo;
+begin
+  Info:= Ed.ScrollHorz;
+  Info.NMax:= 1;
+  Ed.ScrollHorz:= Info;
+end;
+
 { TEditorHtmlTagList }
 
 function TEditorHtmlTagList.ItemPtr(AIndex: integer): PEditorHtmlTagRecord;