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

* fix bug #1632

Browse Source
This commit is contained in:
pierre 2001-10-10 23:34:54 +00:00
parent 2fc53dd015
commit bd69204343
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/wcedit.pas
View File

@ -1831,15 +1831,29 @@ begin
end;
function TFileEditor.SaveAs: Boolean;
var
SavedName : String;
SavedDiskLoadTime : longint;
begin
SaveAs := False;
SavedName:=FileName;
SavedDiskLoadTime:=OnDiskLoadTime;
if EditorDialog(edSaveAs, @FileName) <> cmCancel then
begin
FileName := FExpand(FileName);
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 SaveFile then
begin
SaveAs := true;
end
else
begin
FileName:=SavedName;
OnDiskLoadTime:=SavedDiskLoadTime;
Message(Owner, evBroadcast, cmUpdateTitle, @Self);
end;
if IsClipboard then FileName := '';
Message(Application,evBroadcast,cmFileNameChanged,@Self);
end;
@ -1992,7 +2006,10 @@ end;
END.
{
$Log$
Revision 1.5 2001-09-27 22:32:24 pierre
Revision 1.6 2001-10-10 23:34:54 pierre
* fix bug 1632
Revision 1.5 2001/09/27 22:32:24 pierre
* avoid to get unnecessary warnings about modified files if file already open
Revision 1.4 2001/09/14 23:47:08 pierre