Problem z SynEditem

0

Jak wstawiam do SynEdita jaki? tekst, np.

procedure TMainForm.Button1Click(Sender: TObject);
var
  S: String;
  I: Integer;
begin
  S := SynEdit.LineText;
  I := SynEdit.CaretX;
  Insert(Edit.Text, S, I);
  SynEdit.LineText := S;
  SynEdit.CaretX := I + Length(Edit.Text);
  Windows.SetFocus(SynEdit.Handle);
end;

,
to SynEdit uwa?a, ?e tekst nie zosta? zmodyfikowany, a co za tym idzie nie mozna cofn?? operacji. W takim razie jak zrobi?, aby mo?na by?oby cofn?? takie wstawianie tekstu?

0

Synedit ma to do siebie, że nie najlepiej idzie mu cofanie niektórych operacji np.

SynEdit.Seltext := s - cofa normalnie
SynEdit.Text := s - nie da się cofnąć.

Nie wiem czy SynEdit.LineText := s da się cofnąć - może nie ? - proponowałbym ściągnięcie najnowszego CVSa.. może tam już się da to zrobić...

0

SynEdit.Seltext := s - cofa normalnie

Sprobuje w ten sposob. I moze w nowszych SynEditach bedzie wszystko jak sie nalezy...

1 użytkowników online, w tym zalogowanych: 0, gości: 1