diff --git a/form_matrixgame.lfm b/form_matrixgame.lfm index d711e70..bdd398e 100644 --- a/form_matrixgame.lfm +++ b/form_matrixgame.lfm @@ -431,15 +431,6 @@ object FormMatrixGame: TFormMatrixGame WantTabs = True end end - object Button3: TButton - Left = 568 - Height = 91 - Top = 352 - Width = 141 - Caption = 'Button3' - OnClick = Button3Click - TabOrder = 8 - end object OpenDialog: TOpenDialog Width = 862 Height = 434 diff --git a/form_matrixgame.pas b/form_matrixgame.pas index 47c93b4..d18cda3 100644 --- a/form_matrixgame.pas +++ b/form_matrixgame.pas @@ -30,7 +30,6 @@ type btnConfirmRow: TButton; ButtonExpStart: TButton; ButtonExpPause: TButton; - Button3: TButton; ButtonExpCancel: TButton; GBIndividual: TGroupBox; GBLastChoice: TGroupBox; @@ -66,7 +65,6 @@ type StringGridMatrix: TStringGrid; Timer: TTimer; procedure btnConfirmRowClick(Sender: TObject); - procedure Button3Click(Sender: TObject); procedure ButtonExpCancelClick(Sender: TObject); procedure ButtonExpPauseClick(Sender: TObject); procedure ButtonExpStartClick(Sender: TObject); @@ -79,7 +77,6 @@ type procedure TimerTimer(Sender: TObject); private FGameControl : TGameControl; - FAppPath, FID: string; public procedure SetID(S : string); @@ -312,11 +309,6 @@ begin FGameControl.SendRequest(K_CHOICE); end; -procedure TFormMatrixGame.Button3Click(Sender: TObject); -begin - FGameControl.Experiment.SaveToFile(OpenDialog.FileName+'.ini'); -end; - procedure TFormMatrixGame.ButtonExpCancelClick(Sender: TObject); begin ButtonExpStart.Enabled := True; -- libgit2 0.21.2