add param AKeepScroll to LoadFromFile

Alexey-T · Oct 2, 2019 · 5660b07 · 5660b07
1 parent 4cc486b
commit 5660b07
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/atsynedit/atsynedit.pas b/atsynedit/atsynedit.pas
@@ -1134,7 +1134,7 @@   TATSynEdit = class(TCustomControl)
     property GutterBandEmpty: integer read FGutterBandEmpty write FGutterBandEmpty;
     property GutterBandDecor: integer read FGutterBandDecor write FGutterBandDecor;
     //files
-    procedure LoadFromFile(const AFilename: string); virtual;
+    procedure LoadFromFile(const AFilename: string; AKeepScroll: boolean=false); virtual;
     procedure SaveToFile(const AFilename: string); virtual;
     //cmd
     procedure TextInsertAtCarets(const AText: atString; AKeepCaret,
@@ -3720,7 +3720,7 @@ function TATSynEdit.ClientHeight: integer;
   if Result<1 then Result:= 1;
 end;
 
-procedure TATSynEdit.LoadFromFile(const AFilename: string);
+procedure TATSynEdit.LoadFromFile(const AFilename: string; AKeepScroll: boolean=false);
 begin
   DoPaintModeStatic;
 
@@ -3731,8 +3731,11 @@ procedure TATSynEdit.LoadFromFile(const AFilename: string);
   FWrapInfo.Clear;
   FWrapUpdateNeeded:= true;
 
-  FScrollHorz.Clear;
-  FScrollVert.Clear;
+  if not AKeepScroll then
+  begin
+    FScrollHorz.Clear;
+    FScrollVert.Clear;
+  end;
 
   BeginUpdate;
   try