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

* allow to open non existant file

Browse Source
This commit is contained in:
pierre 2002-04-10 22:38:11 +00:00
parent 7172866d44
commit 6246cb06f3
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/fpmfile.inc
View File

@ -79,6 +79,7 @@ var D: PFileDialog;
OpenIt: boolean; OpenIt: boolean;
DriveNumber : byte; DriveNumber : byte;
StoreDir,StoreDir2 : DirStr; StoreDir,StoreDir2 : DirStr;
NewPSW : PSourceWindow;
begin begin
OpenIt:=FileName<>''; OpenIt:=FileName<>'';
DriveNumber:=0; DriveNumber:=0;
@ -127,9 +128,16 @@ begin
begin begin
FileName:=FExpand(LocatePasFile(FileName)); FileName:=FExpand(LocatePasFile(FileName));
if ExistsFile(FileName) then if ExistsFile(FileName) then
{ like for BP unexistant files should be created PM }
OpenEditorWindow(nil,FileName,0,0) OpenEditorWindow(nil,FileName,0,0)
else else
ErrorBox(FormatStrStr(msg_cantfindfile,FileName),nil); {ErrorBox(FormatStrStr(msg_cantfindfile,FileName),nil);}
begin
NewPSW:=OpenEditorWindow(nil,'',0,0);
NewPSW^.Editor^.FileName:=FileName;
NewPSW^.SetTitle(FileName);
Message(Application,evBroadcast,cmFileNameChanged,NewPSW^.Editor);
end;
end; end;
end; end;
@ -213,7 +221,10 @@ end;
{ {
$Log$ $Log$
Revision 1.2 2001-09-12 09:49:35 pierre Revision 1.3 2002-04-10 22:38:11 pierre
* allow to open non existant file
Revision 1.2 2001/09/12 09:49:35 pierre
+ Call to TDebugController.SetDirectories when SourceDirs changes + Call to TDebugController.SetDirectories when SourceDirs changes
Revision 1.1 2001/08/04 11:30:23 peter Revision 1.1 2001/08/04 11:30:23 peter