BreakLine on an End of a Line

[omata]

File: SynEdit.pas

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;

[Maël]

This forum is not the place to talk about SynEdit. Please use the bug-tracker. SynEdit isn't my personal, but a community project.

[omata]

I'm sorry.

Please delete my account.

[arcostasi]

thanks omata, your code works fine! Please continues in the forum, you helped a lot!