Code: Select all
procedure TCustomSynEdit.ExecuteCommand(Command: TSynEditorCommand; AChar: WideChar; Data: pointer);
:
ecLineBreak:
:
if Command = ecLineBreak then
begin
InternalCaretXY := BufferCoord(1, CaretY +1); // <-- is new
if SpaceCount2 > 0 then
begin
SpaceBuffer := Copy(Lines[BackCounter], 1, SpaceCount2);
// InternalCaretXY := BufferCoord(1, CaretY +1); // <-- kill this
for i := 1 to Length(SpaceBuffer) do
if SpaceBuffer[i] = #9 then
CommandProcessor(ecTab, #0, nil)
else
CommandProcessor(ecChar, SpaceBuffer[i], nil);
end;
end;