paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 16:50:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid wrong warning for renamed files

Browse Source
This commit is contained in:
pierre 1999-12-23 23:32:49 +00:00
parent 6ddd9dab16
commit f9384ea9b4
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/text/weditor.pas
View File

@ -4658,7 +4658,7 @@ end;
function TFileEditor.IsChangedOnDisk : boolean;
begin
IsChangedOnDisk:=OnDiskLoadTime<>GetFileTime(FileName);
IsChangedOnDisk:=(OnDiskLoadTime<>GetFileTime(FileName)) and (OnDiskLoadTime<>-1);
end;
function TFileEditor.SaveFile: boolean;
@ -4715,6 +4715,8 @@ begin
begin
FileName := FExpand(FileName);
Message(Owner, evBroadcast, cmUpdateTitle, @Self);
{ if we rename the file the OnDiskLoadTime is wrong so we reset it }
OnDiskLoadTime:=-1;
SaveAs := SaveFile;
if IsClipboard then FileName := '';
Message(Application,evBroadcast,cmFileNameChanged,@Self);
@ -5152,7 +5154,10 @@ end;
END.
{
$Log$
Revision 1.65 1999-12-08 16:02:46 pierre
Revision 1.66 1999-12-23 23:32:49 pierre
* avoid wrong warning for renamed files
Revision 1.65 1999/12/08 16:02:46 pierre
* fix for bugs 746,748 and 750
Revision 1.64 1999/12/01 17:25:00 pierre