index 69f7f40f0568c338ddfee771a442719314fac0e8..ed08dc7f3f514b9ef3a95baca2657e927f9a19ac 100644 (file)
--- a/src/editor/f_maptest.pas
+++ b/src/editor/f_maptest.pas
ComCtrls;
type
ComCtrls;
type
+
+ { TMapTestForm }
+
TMapTestForm = class (TForm)
bOK: TButton;
bCancel: TButton;
GroupBox1: TGroupBox;
TMapTestForm = class (TForm)
bOK: TButton;
bCancel: TButton;
GroupBox1: TGroupBox;
+ LabelArgs: TLabel;
// Режим игры:
rbDM: TRadioButton;
rbTDM: TRadioButton;
// Режим игры:
rbDM: TRadioButton;
rbTDM: TRadioButton;
// Путь:
LabelPath: TLabel;
edD2dexe: TEdit;
// Путь:
LabelPath: TLabel;
edD2dexe: TEdit;
+ edD2DArgs: TEdit;
bChooseD2d: TButton;
FindD2dDialog: TOpenDialog;
bChooseD2d: TButton;
FindD2dDialog: TOpenDialog;
config.WriteStr('TestRun', 'Exe', edD2dExe.Text);
TestD2dExe := edD2dExe.Text;
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();
config.SaveFile(EditorDir+'Editor.cfg');
config.Free();
cbMonstersDM.Checked := TestOptionsMonstersDM;
cbMapOnce.Checked := TestMapOnce;
edD2dExe.Text := TestD2dExe;
cbMonstersDM.Checked := TestOptionsMonstersDM;
cbMapOnce.Checked := TestMapOnce;
edD2dExe.Text := TestD2dExe;
+ edD2DArgs.Text := TestD2DArgs;
end;
procedure TMapTestForm.FormCreate(Sender: TObject);
end;
procedure TMapTestForm.FormCreate(Sender: TObject);
TestOptionsMonstersDM := config.ReadBool('TestRun', 'MonstersDM', False);
TestMapOnce := config.ReadBool('TestRun', 'MapOnce', False);
TestD2dExe := config.ReadStr('TestRun', 'Exe', EditorDir+'Doom2DF.exe');
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();
config.Free();