editor, does not replace clipboard to reload newer doc version

This commit is contained in:
Basile Burg 2015-12-16 08:30:57 +01:00
parent 85448a52f5
commit 7e09355a22
1 changed files with 4 additions and 6 deletions

View File

@ -1025,12 +1025,10 @@ begin
str := TStringList.Create; str := TStringList.Create;
try try
str.LoadFromFile(fFilename); str.LoadFromFile(fFilename);
ClearAll; SelectAll;
if str.Count > 0 then SelText:= str.Text;
begin SelStart:=0;
DoCopyToClipboard(str.Text); SelEnd:=0;
PasteFromClipboard;
end;
fModified := true; fModified := true;
finally finally
str.Free; str.Free;