runner: fix open dialog button

Carlos Picanco
1 parent d741033e
Showing 1 changed file with 3 additions and 1 deletions Show diff stats
experiment_runner/form_matrixgame.pas
@@ -337,11 +337,13 @@ begin
   if ButtonExpStart.Caption = CAPTION_START then
     if OpenDialog.Execute then
       begin
+        if not FGameControl.Experiment.LoadFromFile(OpenDialog.FileName) then
+          Exit;
         ButtonExpStart.Enabled := False;
         ButtonExpStart.Caption := CAPTION_RUNNING;
         ButtonExpCancel.Enabled := not ButtonExpStart.Enabled;
         ButtonExpPause.Enabled := not ButtonExpStart.Enabled;
-        FGameControl.Experiment.LoadFromFile(OpenDialog.FileName);
+
       end;
  
   if ButtonExpStart.Caption = CAPTION_RESUME then
...	...	@@ -337,11 +337,13 @@ begin
337	337	if ButtonExpStart.Caption = CAPTION_START then
338	338	if OpenDialog.Execute then
339	339	begin
	340	+ if not FGameControl.Experiment.LoadFromFile(OpenDialog.FileName) then
	341	+ Exit;
340	342	ButtonExpStart.Enabled := False;
341	343	ButtonExpStart.Caption := CAPTION_RUNNING;
342	344	ButtonExpCancel.Enabled := not ButtonExpStart.Enabled;
343	345	ButtonExpPause.Enabled := not ButtonExpStart.Enabled;
344		- FGameControl.Experiment.LoadFromFile(OpenDialog.FileName);
	346	+
345	347	end;
346	348
347	349	if ButtonExpStart.Caption = CAPTION_RESUME then
...	...