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,15 +431,6 @@ object FormMatrixGame: TFormMatrixGame
431 WantTabs = True 431 WantTabs = True
432 end 432 end
433 end 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 object OpenDialog: TOpenDialog 434 object OpenDialog: TOpenDialog
444 Width = 862 435 Width = 862
445 Height = 434 436 Height = 434
form_matrixgame.pas
  Diff comments   View file @4598d27
@@ -30,7 +30,6 @@ type @@ -30,7 +30,6 @@ type
30 btnConfirmRow: TButton; 30 btnConfirmRow: TButton;
31 ButtonExpStart: TButton; 31 ButtonExpStart: TButton;
32 ButtonExpPause: TButton; 32 ButtonExpPause: TButton;
33 - Button3: TButton;  
34 ButtonExpCancel: TButton; 33 ButtonExpCancel: TButton;
35 GBIndividual: TGroupBox; 34 GBIndividual: TGroupBox;
36 GBLastChoice: TGroupBox; 35 GBLastChoice: TGroupBox;
@@ -66,7 +65,6 @@ type @@ -66,7 +65,6 @@ type
66 StringGridMatrix: TStringGrid; 65 StringGridMatrix: TStringGrid;
67 Timer: TTimer; 66 Timer: TTimer;
68 procedure btnConfirmRowClick(Sender: TObject); 67 procedure btnConfirmRowClick(Sender: TObject);
69 - procedure Button3Click(Sender: TObject);  
70 procedure ButtonExpCancelClick(Sender: TObject); 68 procedure ButtonExpCancelClick(Sender: TObject);
71 procedure ButtonExpPauseClick(Sender: TObject); 69 procedure ButtonExpPauseClick(Sender: TObject);
72 procedure ButtonExpStartClick(Sender: TObject); 70 procedure ButtonExpStartClick(Sender: TObject);
@@ -79,7 +77,6 @@ type @@ -79,7 +77,6 @@ type
79 procedure TimerTimer(Sender: TObject); 77 procedure TimerTimer(Sender: TObject);
80 private 78 private
81 FGameControl : TGameControl; 79 FGameControl : TGameControl;
82 - FAppPath,  
83 FID: string; 80 FID: string;
84 public 81 public
85 procedure SetID(S : string); 82 procedure SetID(S : string);
@@ -312,11 +309,6 @@ begin @@ -312,11 +309,6 @@ begin
312 FGameControl.SendRequest(K_CHOICE); 309 FGameControl.SendRequest(K_CHOICE);
313 end; 310 end;
314 311
315 -procedure TFormMatrixGame.Button3Click(Sender: TObject);  
316 -begin  
317 - FGameControl.Experiment.SaveToFile(OpenDialog.FileName+'.ini');  
318 -end;  
319 -  
320 procedure TFormMatrixGame.ButtonExpCancelClick(Sender: TObject); 312 procedure TFormMatrixGame.ButtonExpCancelClick(Sender: TObject);
321 begin 313 begin
322 ButtonExpStart.Enabled := True; 314 ButtonExpStart.Enabled := True;