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

SynEdit: Syncron-edit mode, fixed multi-line edit / indent on new-line

Browse Source 
git-svn-id: trunk@20927 -
This commit is contained in:
martin 2009-07-22 22:34:29 +00:00
parent 2112f6e3fa
commit 4c64826e61
1 changed files with 60 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/synedit/synpluginsyncronizededitbase.pp
View File

@ -824,19 +824,24 @@ begin
CurCell := FCells[FCurrentCell]; CurCell := FCells[FCurrentCell];
a := CurCell.Group; a := CurCell.Group;
Pos.Y := Pos.Y - CurCell.LogStart.y; Pos.Y := Pos.Y - CurCell.LogStart.y;
if Pos.y = 0 then if Pos.y = 0
Pos.X := Pos.X - CurCell.LogStart.x; then Pos.X := Pos.X - CurCell.LogStart.x
for i := 0 to FCells.Count - 1 do else dec(Pos.x);
for i := 0 to FCells.Count - 1 do begin
if FCells[i].LogStart.Y = FCells[i].LogEnd.Y
then x2 := FCells[i].LogStart.X + Pos.X
else x2 := 1 + Pos.X;
if (i <> FCurrentCell) and (FCells[i].Group = a) and if (i <> FCurrentCell) and (FCells[i].Group = a) and
( (FCells[i].LogStart.Y + Pos.Y < FCells[i].LogEnd.Y) or ( (FCells[i].LogStart.Y + Pos.Y < FCells[i].LogEnd.Y) or
( (FCells[i].LogStart.Y + Pos.Y = FCells[i].LogEnd.Y) and ( (FCells[i].LogStart.Y + Pos.Y = FCells[i].LogEnd.Y) and
(FCells[i].LogStart.X + Pos.X <= FCells[i].LogEnd.X)) (x2 <= FCells[i].LogEnd.X) )
) )
then begin then begin
Y2 := FCells[i].LogStart.Y + Pos.Y; Y2 := FCells[i].LogStart.Y + Pos.Y;
X2 := Pos.X; X2 := Pos.X;
if Pos.Y = 0 then if Pos.Y = 0
X2 := X2 + FCells[i].LogStart.X; then X2 := X2 + FCells[i].LogStart.X
else inc(X2);
if aLineBrkCnt = -1 then begin if aLineBrkCnt = -1 then begin
ViewedTextBuffer.EditLineJoin(Y2); ViewedTextBuffer.EditLineJoin(Y2);
if (CaretPos.y > Y2) then begin if (CaretPos.y > Y2) then begin
@ -875,6 +880,7 @@ begin
inc(CaretPos.X, aCount); inc(CaretPos.X, aCount);
end; end;
end; end;
end
finally finally
ViewedTextBuffer.EndUpdate; ViewedTextBuffer.EndUpdate;
end; end;