SynEdit auto End of line in text add

[eldonfsr]

Hi using synedit i have the problem when do something like this
 MSyn.Text := MSyn.Text + s;
auto add end of line
modem still sending all text show on 100 lines...
 

Code: Pascal  [Select][+][-]

1. procedure TFormMain.AppendToTerminal(const s: string);
2. begin
3.   if( Not AppendHidenTerm(s)) then begin
4.     MTerminal.Lines.BeginUpdate();
5.     MTerminal.Text := MTerminal.Text + s; // this auto add  endline and start a new line
6.   end;
7.   if MTerminal.Lines.Count > 1200 then
8.   begin
9.     while MTerminal.Lines.Count > 1000 do
10.       MTerminal.Lines.Delete(0);
11.   end;
12.   MTerminal.SelStart := MaxInt;
13.   MTerminal.Lines.EndUpdate();
14.   MTerminal.ScrollBy(0, -100000);
15. end;
16.  
17.  
18.  

[Martin_fr]

There is no setting for that.

SynEdit currently does not store line endings. It stores each line as a string in a list. The line ending is implicitly assumed.
When you retrieve the "text" then it adds the line endings after each line, including the last line.

So SynEdit.Text in your code always ends with a line ending.


You can add text to the last line:

Code: Pascal  [Select][+][-]

1. SynEdit.Lines[Max(0, SynEdit.Lines.Count-1)] := SynEdit.Lines[Max(0, SynEdit.Lines.Count-1)] + newtext;

This is on the list of "maybe one day it will be added/changed". But that someday may still be rather far away.


Note that using SynEdit.Text or SynEdit.Lines is only recommended for read-only text.

Changing text this way will reset SynEdits undo buffer. So if the user can also edit the text, then the user looses the ability to undo.
If undo is needed then there is SynEdit.TextBetweenPoints

[eldonfsr]

Thanks for you help i change the to MTerminal.InsertTextAtCaret(s) and is working fine

Thanks so much