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

SynEdit SynEdit, Block/Selection: Clean-up/Refactor

Browse Source 
git-svn-id: trunk@17832 -
This commit is contained in:
martin 2008-12-14 14:07:34 +00:00
parent d635b8fb66
commit e522240764
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/synedit/syneditpointclasses.pas
View File

@ -605,7 +605,6 @@ var
FCaret.BytePos := 1 + Length(FLines[FCaret.LinePos - 1]) - Length(sRightSide);
Inc(Result);
end;
// StatusChanged([scCaretX]);
end;
function InsertColumn: Integer;
@ -696,7 +695,6 @@ var
Start := P;
end;
until P^ = #0;
// StatusChanged([scCaretX]);
end;
var
@ -733,8 +731,6 @@ var
// Update marks
if InsertedLines > 0 then
FLinesInsertedMethod(StartLine, InsertedLines);
// Force caret reset
// CaretXY := CaretXY;
end;
var
@ -758,8 +754,7 @@ begin
EndLineBytePos := BB; // deletes selection // calls selection changed
end;
if (Value <> nil) and (Value[0] <> #0) then begin
if AddToUndoList then
StartInsert := FCaret.LineBytePos;
StartInsert := FCaret.LineBytePos;
InsertText;
if AddToUndoList then begin
EndInsert := FCaret.LineBytePos;
@ -770,9 +765,9 @@ begin
EndInsert.x := Length(FLines[EndInsert.y - 1]);
end;
end;
if length(Value) > 0 then
fUndoList.AddChange(ChangeReason, StartInsert, EndInsert, '', PasteMode);
fUndoList.AddChange(ChangeReason, StartInsert, EndInsert, '', PasteMode);
end;
StartLineBytePos := FCaret.LineBytePos; // reset selection
end;
finally
FLines.EndUpdate; // May reset Block Begin