paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-12 01:59:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* use TryToOpen() with parameter files to overcome double opened files

Browse Source 
at startup
This commit is contained in:
peter 1999-03-12 01:13:01 +00:00
parent ed4fdd2e0b
commit a0c648d7aa
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/text/fp.pas
View File

@ -64,7 +64,7 @@ begin
end end
else else
if not BeforeINI then if not BeforeINI then
MyApp.Open(Param); TryToOpenFile(nil,Param,0,0,true);
end; end;
end; end;
@ -91,6 +91,9 @@ BEGIN
MyApp.Init; MyApp.Init;
{ load all options after init because of open files } { load all options after init because of open files }
ReadINIFile; ReadINIFile;
{ Update IDE }
if PrimaryFile<>'' then
MyApp.UpdatePrimaryFile;
ProcessParams(false); ProcessParams(false);
@ -115,7 +118,11 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.15 1999-03-08 14:58:08 peter Revision 1.16 1999-03-12 01:13:01 peter
* use TryToOpen() with parameter files to overcome double opened files
at startup
Revision 1.15 1999/03/08 14:58:08 peter
+ prompt with dialogs for tools + prompt with dialogs for tools
Revision 1.14 1999/03/05 17:53:00 pierre Revision 1.14 1999/03/05 17:53:00 pierre