forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

external mod. tracking, undo is possible after reloading

This commit is contained in:
Basile Burg 2015-03-11 01:06:31 +01:00
parent 413e4496b2
commit 8bd2898b75
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ce_synmemo.pas
View File

@ -546,6 +546,7 @@ end;
procedure TCESynMemo.checkFileDate;
var
newDate: double;
str: TStringList;
begin
if fFilename = fTempFileName then exit;
if not FileAge(fFilename, newDate) then exit;
@ -555,8 +556,16 @@ begin
if dlgOkCancel(format('"%s" has been modified by another program, load the new version ?',
[shortenPath(fFilename, 25)])) = mrOk then
begin
Lines.LoadFromFile(fFilename);
fModified := false;
str := TStringList.Create;
try
str.LoadFromFile(fFilename);
DoCopyToClipboard(str.Text);
ClearAll;
PasteFromClipboard;
fModified := true;
finally
str.Free;
end;
end;
end;
fFileDate := newDate;