TMemo.SelText does not work correctly
Original Reporter info from Mantis: Handoko
-
Reporter name: Handoko
Original Reporter info from Mantis: Handoko
- Reporter name: Handoko
Description:
"TMemo.SelText := something" does not work correctly on my tests on Lazarus 1.8.0RC5 Linux 64 Gtk2. Some said it works correctly on Windows but I haven't tested it on Windows.
Please visit this discussion for more information:
http://forum.lazarus.freepascal.org/index.php/topic,38661.msg263329.html#msg263329
Steps to reproduce:
Use the code below the reproduce the issue:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
Memo1.Text := 'abcdefg';
for i := 1 to 5 do begin
Memo1.SelStart := 1;
Memo1.SelLength := 2;
Memo1.SelText := 'a';
end;
end;
Mantis conversion info:
- Mantis ID: 32583
- OS: Ubuntu Mate
- OS Build: 17.04
- Platform: Linux
- Version: 1.8RC5
- Fixed in revision: r56138 (#cf9ad3cd)