Download as
Browse Code »

Commit 4598d27cbac08c27b7b47e00e809d771824ea5e3

Authored by Carlos Picanco
1 parent 14577bee
Exists in master

cleaning

Showing 2 changed files with 0 additions and 17 deletions   Show diff stats
form_matrixgame.lfm
  Diff comments   View file @4598d27
... ... @@ -431,15 +431,6 @@ object FormMatrixGame: TFormMatrixGame
431 431 WantTabs = True
432 432 end
433 433 end
434   - object Button3: TButton
435   - Left = 568
436   - Height = 91
437   - Top = 352
438   - Width = 141
439   - Caption = 'Button3'
440   - OnClick = Button3Click
441   - TabOrder = 8
442   - end
443 434 object OpenDialog: TOpenDialog
444 435 Width = 862
445 436 Height = 434
... ...
form_matrixgame.pas
  Diff comments   View file @4598d27
... ... @@ -30,7 +30,6 @@ type
30 30 btnConfirmRow: TButton;
31 31 ButtonExpStart: TButton;
32 32 ButtonExpPause: TButton;
33   - Button3: TButton;
34 33 ButtonExpCancel: TButton;
35 34 GBIndividual: TGroupBox;
36 35 GBLastChoice: TGroupBox;
... ... @@ -66,7 +65,6 @@ type
66 65 StringGridMatrix: TStringGrid;
67 66 Timer: TTimer;
68 67 procedure btnConfirmRowClick(Sender: TObject);
69   - procedure Button3Click(Sender: TObject);
70 68 procedure ButtonExpCancelClick(Sender: TObject);
71 69 procedure ButtonExpPauseClick(Sender: TObject);
72 70 procedure ButtonExpStartClick(Sender: TObject);
... ... @@ -79,7 +77,6 @@ type
79 77 procedure TimerTimer(Sender: TObject);
80 78 private
81 79 FGameControl : TGameControl;
82   - FAppPath,
83 80 FID: string;
84 81 public
85 82 procedure SetID(S : string);
... ... @@ -312,11 +309,6 @@ begin
312 309 FGameControl.SendRequest(K_CHOICE);
313 310 end;
314 311  
315   -procedure TFormMatrixGame.Button3Click(Sender: TObject);
316   -begin
317   - FGameControl.Experiment.SaveToFile(OpenDialog.FileName+'.ini');
318   -end;
319   -
320 312 procedure TFormMatrixGame.ButtonExpCancelClick(Sender: TObject);
321 313 begin
322 314 ButtonExpStart.Enabled := True;
... ...