+ Command-line filenames support

This commit is contained in:
michael 2004-08-04 21:05:14 +00:00
parent 67779d5035
commit 865131946b

View File

@ -81,6 +81,7 @@ Type
Procedure SaveEditorAs(E : TEditorPage);
Procedure SaveEditor(E : TEditorPage);
Function CloseEditor(E : TEditorPage) : Boolean;
Procedure LoadCommandLine;
Procedure LoadRecent;
Procedure SaveRecent;
Procedure CreateForm;
@ -322,6 +323,7 @@ begin
FRecent:=TStringList.Create;
Inherited Create(gtk_window_dialog);
CreateForm;
LoadCommandLine;
LoadOptions;
LoadRecent;
end;
@ -334,6 +336,21 @@ begin
Inherited;
end;
Procedure TMainForm.LoadCommandLine;
Var
I : Integer;
begin
I:=1;
While I<=ParamCount do
begin
If FileExists(ParamStr(i)) then
OpenFile(Paramstr(I));
Inc(I);
end;
end;
Procedure TMainForm.LoadRecent;