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

SynEdit: Adjust TopLine and Caret in other view editor

Browse Source 
git-svn-id: trunk@24518 -
This commit is contained in:
martin 2010-04-08 16:32:15 +00:00
parent c78ba4235d
commit 2446e9898d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedit.pp
View File

@ -1728,7 +1728,7 @@ begin
if FPaintLock = 0 then begin
FOldTopLine := FTopLine;
FOldTopView := TopView;
if FPaintLockOwner > 0 then begin
if FPaintLockOwner = 0 then begin
// Paintlock increased by sharing editor
FStoredCaredAutoAdjust := FCaret.AutoMoveOnEdit;
FCaret.AutoMoveOnEdit := True;
@ -1771,7 +1771,7 @@ begin
end;
if (FPaintLock = 0) then begin
FBlockSelection.AutoExtend := False;
if FPaintLockOwner > 0 then begin
if FPaintLockOwner = 0 then begin
// Paintlock increased by sharing editor
FCaret.AutoMoveOnEdit := FStoredCaredAutoAdjust;
end;