Changeset 47 for trunk/Forms/UFormNewGame.pas

Timestamp:

Apr 24, 2019, 11:41:52 AM (5 years ago)

Author:

chronos

Message:

• Added: Enable player checkbox.

File:

• trunk/Forms/UFormNewGame.pas (moved) (moved from trunk/Forms/UNewGameForm.pas ) (25 diffs)

trunk/Forms/UFormNewGame.pas

@@ -1 @@
-unit UNewGameForm;
+unit UFormNewGame;
 
 {$mode delphi}{$H+}
@@ -11 +11 @@
 type
 
-  { TNewGameForm }
-
-  TNewGameForm = class(TForm)
+  { TFormNewGame }
+
+  TFormNewGame = class(TForm)
     ButtonStart: TButton;
     ButtonCancel: TButton;
+    CheckBoxEnabled: TCheckBox;
     ColorButton1: TColorButton;
     ColorButton2: TColorButton;
@@ -35 +36 @@
     Label9: TLabel;
     ListView1: TListView;
+    procedure CheckBoxEnabledChange(Sender: TObject);
     procedure ColorButton1ColorChanged(Sender: TObject);
     procedure ColorButton2ColorChanged(Sender: TObject);
@@ -73 +75 @@
 
 var
-  NewGameForm: TNewGameForm;
+  FormNewGame: TFormNewGame;
 
 
@@ -83 +85 @@
   UCore;
 
-{ TNewGameForm }
-
-procedure TNewGameForm.ListView1Change(Sender: TObject; Item: TListItem;
+{ TFormNewGame }
+
+procedure TFormNewGame.ListView1Change(Sender: TObject; Item: TListItem;
   Change: TItemChange);
 begin
@@ -92 +94 @@
 end;
 
-procedure TNewGameForm.ListView1CustomDrawSubItem(Sender: TCustomListView;
+procedure TFormNewGame.ListView1CustomDrawSubItem(Sender: TCustomListView;
   Item: TListItem; SubItem: Integer; State: TCustomDrawState;
   var DefaultDraw: Boolean);
@@ -104 +106 @@
 end;
 
-procedure TNewGameForm.ListView1Data(Sender: TObject; Item: TListItem);
+procedure TFormNewGame.ListView1Data(Sender: TObject; Item: TListItem);
 begin
   if Item.Index < Players.Count then
@@ -116 +118 @@
 end;
 
-procedure TNewGameForm.ListView1SelectItem(Sender: TObject; Item: TListItem;
+procedure TFormNewGame.ListView1SelectItem(Sender: TObject; Item: TListItem;
   Selected: Boolean);
 begin
@@ -129 +131 @@
     EditRight.Text := IntToStr(Keys.Right);
     EditShoot.Text := IntToStr(Keys.Shoot);
+    CheckBoxEnabled.Checked := Enabled;
   end;
   UpdateInterface;
 end;
 
-procedure TNewGameForm.ReloadList;
+procedure TFormNewGame.ReloadList;
 begin
   ListView1.Items.Count := Players.Count;
@@ -139 +142 @@
 end;
 
-procedure TNewGameForm.UpdateInterface;
+procedure TFormNewGame.UpdateInterface;
 begin
   EditUp.Enabled := Assigned(ListView1.Selected);
@@ -149 +152 @@
   ColorButton1.Enabled := Assigned(ListView1.Selected);
   ColorButton2.Enabled := Assigned(ListView1.Selected);
-end;
-
-procedure TNewGameForm.LoadData(Engine: TEngine);
+  CheckBoxEnabled.Enabled := Assigned(ListView1.Selected);
+end;
+
+procedure TFormNewGame.LoadData(Engine: TEngine);
 begin
   Players.Assign(Engine.PlayerPool);
 end;
 
-procedure TNewGameForm.SaveData(Engine: TEngine);
+procedure TFormNewGame.SaveData(Engine: TEngine);
 begin
   Engine.PlayerPool.Assign(Players);
 end;
 
-procedure TNewGameForm.ColorButton1ColorChanged(Sender: TObject);
+procedure TFormNewGame.ColorButton1ColorChanged(Sender: TObject);
 begin
   if Assigned(ListView1.Selected) then
@@ -170 +174 @@
 end;
 
-procedure TNewGameForm.ColorButton2ColorChanged(Sender: TObject);
+procedure TFormNewGame.CheckBoxEnabledChange(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then
+  with TPlayer(ListView1.Selected.Data) do begin
+    Enabled := CheckBoxEnabled.Checked;
+    ReloadList;
+  end;
+end;
+
+procedure TFormNewGame.ColorButton2ColorChanged(Sender: TObject);
 begin
   if Assigned(ListView1.Selected) then
@@ -179 +192 @@
 end;
 
-procedure TNewGameForm.EditDownChange(Sender: TObject);
+procedure TFormNewGame.EditDownChange(Sender: TObject);
 var
   Value: Integer;
@@ -190 +203 @@
 end;
 
-procedure TNewGameForm.EditDownKeyDown(Sender: TObject; var Key: Word;
+procedure TFormNewGame.EditDownKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
@@ -196 +209 @@
 end;
 
-procedure TNewGameForm.EditLeftChange(Sender: TObject);
+procedure TFormNewGame.EditLeftChange(Sender: TObject);
 var
   Value: Integer;
@@ -207 +220 @@
 end;
 
-procedure TNewGameForm.EditLeftKeyDown(Sender: TObject; var Key: Word;
+procedure TFormNewGame.EditLeftKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
@@ -213 +226 @@
 end;
 
-procedure TNewGameForm.EditNameChange(Sender: TObject);
+procedure TFormNewGame.EditNameChange(Sender: TObject);
 begin
   if Assigned(ListView1.Selected) then
@@ -222 +235 @@
 end;
 
-procedure TNewGameForm.EditRightChange(Sender: TObject);
+procedure TFormNewGame.EditRightChange(Sender: TObject);
 var
   Value: Integer;
@@ -233 +246 @@
 end;
 
-procedure TNewGameForm.EditRightKeyDown(Sender: TObject; var Key: Word;
+procedure TFormNewGame.EditRightKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
@@ -239 +252 @@
 end;
 
-procedure TNewGameForm.EditShootChange(Sender: TObject);
+procedure TFormNewGame.EditShootChange(Sender: TObject);
 var
   Value: Integer;
@@ -250 +263 @@
 end;
 
-procedure TNewGameForm.EditShootKeyDown(Sender: TObject; var Key: Word;
+procedure TFormNewGame.EditShootKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
@@ -256 +269 @@
 end;
 
-procedure TNewGameForm.EditUpChange(Sender: TObject);
+procedure TFormNewGame.EditUpChange(Sender: TObject);
 var
   Value: Integer;
@@ -267 +280 @@
 end;
 
-procedure TNewGameForm.EditUpKeyDown(Sender: TObject; var Key: Word;
+procedure TFormNewGame.EditUpKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
@@ -273 +286 @@
 end;
 
-procedure TNewGameForm.FormCreate(Sender: TObject);
+procedure TFormNewGame.FormCreate(Sender: TObject);
 begin
   Core.CoolTranslator1.TranslateComponentRecursive(Self);
@@ -279 +292 @@
 end;
 
-procedure TNewGameForm.FormDestroy(Sender: TObject);
+procedure TFormNewGame.FormDestroy(Sender: TObject);
 begin
   FreeAndNil(Players);
 end;
 
-procedure TNewGameForm.FormShow(Sender: TObject);
+procedure TFormNewGame.FormShow(Sender: TObject);
 begin
   ReloadList;