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

* Use Open instead of OpenSearch if OpenFileName is empty

Browse Source
This commit is contained in:
pierre 2000-06-16 21:19:41 +00:00
parent 93df901fb9
commit e7a7ff7cc0
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/text/fpide.pas
View File

@ -559,7 +559,8 @@ begin
cmNewFromTemplate: NewFromTemplate; cmNewFromTemplate: NewFromTemplate;
cmOpen : begin cmOpen : begin
ForceDlg:=false; ForceDlg:=false;
if (DirOf(OpenFileName)='') or (Pos(ListSeparator,OpenFileName)<>0) then if (OpenFileName<>'') and
((DirOf(OpenFileName)='') or (Pos(ListSeparator,OpenFileName)<>0)) then
begin begin
TempS:=LocateFile(OpenFileName); TempS:=LocateFile(OpenFileName);
if TempS='' then if TempS='' then
@ -1060,7 +1061,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.63 2000-06-16 08:50:40 pierre Revision 1.64 2000-06-16 21:19:41 pierre
* Use Open instead of OpenSearch if OpenFileName is empty
Revision 1.63 2000/06/16 08:50:40 pierre
+ new bunch of Gabor's changes + new bunch of Gabor's changes
Revision 1.62 2000/06/11 07:01:33 peter Revision 1.62 2000/06/11 07:01:33 peter