X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Feditor%2Ff_maptest.pas;h=ed08dc7f3f514b9ef3a95baca2657e927f9a19ac;hb=1ec6c5d2252441662f455c88e8b777fac19b024c;hp=69f7f40f0568c338ddfee771a442719314fac0e8;hpb=3dc2fe6b3d29cd54425db8f590e922f2dce50e99;p=d2df-editor.git diff --git a/src/editor/f_maptest.pas b/src/editor/f_maptest.pas index 69f7f40..ed08dc7 100644 --- a/src/editor/f_maptest.pas +++ b/src/editor/f_maptest.pas @@ -10,10 +10,14 @@ uses ComCtrls; type + + { TMapTestForm } + TMapTestForm = class (TForm) bOK: TButton; bCancel: TButton; GroupBox1: TGroupBox; + LabelArgs: TLabel; // Режим игры: rbDM: TRadioButton; rbTDM: TRadioButton; @@ -38,6 +42,7 @@ type // Путь: LabelPath: TLabel; edD2dexe: TEdit; + edD2DArgs: TEdit; bChooseD2d: TButton; FindD2dDialog: TOpenDialog; @@ -113,6 +118,8 @@ begin config.WriteStr('TestRun', 'Exe', edD2dExe.Text); TestD2dExe := edD2dExe.Text; + config.WriteStr('TestRun', 'Args', edD2DArgs.Text); + TestD2DArgs := edD2DArgs.Text; config.SaveFile(EditorDir+'Editor.cfg'); config.Free(); @@ -146,6 +153,7 @@ begin cbMonstersDM.Checked := TestOptionsMonstersDM; cbMapOnce.Checked := TestMapOnce; edD2dExe.Text := TestD2dExe; + edD2DArgs.Text := TestD2DArgs; end; procedure TMapTestForm.FormCreate(Sender: TObject); @@ -165,6 +173,7 @@ begin TestOptionsMonstersDM := config.ReadBool('TestRun', 'MonstersDM', False); TestMapOnce := config.ReadBool('TestRun', 'MapOnce', False); TestD2dExe := config.ReadStr('TestRun', 'Exe', EditorDir+'Doom2DF.exe'); + TestD2DArgs := config.ReadStr('TestRun', 'Args', ''); config.Free();