Hi, I put some text in the TMemo, and then select some text then drag and drop, repeat this operation, and then the data will be loss.
Test Code:
procedure TForm1.Memo1Change(Sender: TObject);
begin
Caption := IntToStr(Length(Memo1.Text));
end;
There is another problem, when I drag and drop the text, I can not get the current
SelStart in the
OnChange event.
Test Code:
procedure TForm1.Memo1Change(Sender: TObject);
begin
writeln(Format('%d, %d %s', [Memo1.SelStart, Memo1.SelLength, Memo1.SelText]));
end;
Lazarus 1.8.0RC4 GTK2
OS: Linux Mint MATE 64-bit