paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 19:00:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

SourceEdit: when file changed on disc: keep topline

Browse Source 
git-svn-id: trunk@36226 -
This commit is contained in:
martin 2012-03-22 18:02:24 +00:00
parent 575e24d917
commit 77d9a604b6
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/sourceeditor.pp
View File

@ -2239,6 +2239,8 @@ var
StartPos, EndPos, MoveToPos: TPoint; StartPos, EndPos, MoveToPos: TPoint;
CodeToolsInSync: Boolean; CodeToolsInSync: Boolean;
i: Integer; i: Integer;
CarXY: TPoint;
TopL: Integer;
begin begin
{$IFDEF IDE_DEBUG} {$IFDEF IDE_DEBUG}
debugln(['[TSourceEditor.OnCodeBufferChanged] A ',FIgnoreCodeBufferLock,' ',SrcLogEntry<>nil]); debugln(['[TSourceEditor.OnCodeBufferChanged] A ',FIgnoreCodeBufferLock,' ',SrcLogEntry<>nil]);
@ -2247,6 +2249,8 @@ begin
DebugBoss.LockCommandProcessing; DebugBoss.LockCommandProcessing;
SynEditor.BeginUpdate; SynEditor.BeginUpdate;
try try
CarXY := SynEditor.CaretXY;
TopL := SynEditor.TopLine;
CodeToolsInSync:=not NeedsUpdateCodeBuffer; CodeToolsInSync:=not NeedsUpdateCodeBuffer;
if SrcLogEntry<>nil then begin if SrcLogEntry<>nil then begin
SynEditor.BeginUndoBlock{$IFDEF SynUndoDebugBeginEnd}('TSourceEditorSharedValues.OnCodeBufferChanged'){$ENDIF}; SynEditor.BeginUndoBlock{$IFDEF SynUndoDebugBeginEnd}('TSourceEditorSharedValues.OnCodeBufferChanged'){$ENDIF};
@ -2310,6 +2314,8 @@ begin
FEditorStampCommitedToCodetools:=TSynEditLines(SynEditor.Lines).TextChangeStamp; FEditorStampCommitedToCodetools:=TSynEditLines(SynEditor.Lines).TextChangeStamp;
end; end;
finally finally
SynEditor.CaretXY := CarXY;
SynEditor.TopLine := TopL;
SynEditor.EndUpdate; SynEditor.EndUpdate;
DebugBoss.UnLockCommandProcessing; DebugBoss.UnLockCommandProcessing;
end; end;