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;
try
str.LoadFromFile(fFilename);
ClearAll;
if str.Count > 0 then
begin
DoCopyToClipboard(str.Text);
PasteFromClipboard;
end;
SelectAll;
SelText:= str.Text;
SelStart:=0;
SelEnd:=0;
fModified := true;
finally
str.Free;