Changeset 43 for trunk/Forms/UNewGameForm.pas

Timestamp:

Apr 19, 2019, 11:25:56 AM (5 years ago)

Author:

chronos

Message:

• Fixed: Configurable player tank colors in New game dialog.

File:

• trunk/Forms/UNewGameForm.pas (modified) (13 diffs)

trunk/Forms/UNewGameForm.pas

@@ -17 +17 @@
     ButtonCancel: TButton;
     ColorButton1: TColorButton;
+    ColorButton2: TColorButton;
     EditUp: TEdit;
     EditDown: TEdit;
@@ -32 +33 @@
     Label7: TLabel;
     Label8: TLabel;
+    Label9: TLabel;
     ListView1: TListView;
     procedure ColorButton1ColorChanged(Sender: TObject);
+    procedure ColorButton2ColorChanged(Sender: TObject);
     procedure EditDownChange(Sender: TObject);
     procedure EditDownKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
@@ -54 +57 @@
     procedure ListView1Change(Sender: TObject; Item: TListItem;
       Change: TItemChange);
+    procedure ListView1CustomDrawSubItem(Sender: TCustomListView;
+      Item: TListItem; SubItem: Integer; State: TCustomDrawState;
+      var DefaultDraw: Boolean);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
     procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
@@ -61 +67 @@
     procedure ReloadList;
   public
+    procedure UpdateInterface;
     procedure LoadData(Engine: TEngine);
     procedure SaveData(Engine: TEngine);
@@ -73 +80 @@
 {$R *.lfm}
 
+uses
+  UMainForm;
+
 { TNewGameForm }
 
@@ -80 +90 @@
   if Change = ctState then
     TPlayer(Item.Data).Enabled := Item.Checked;
+end;
+
+procedure TNewGameForm.ListView1CustomDrawSubItem(Sender: TCustomListView;
+  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
+  var DefaultDraw: Boolean);
+begin
+  if SubItem = 1 then
+  with ListView1.Canvas do begin
+    Brush.Color := TPlayer(Item.Data).Color1;
+    Brush.Style := bsSolid;
+    FillRect(Item.DisplayRectSubItem(1, drBounds));
+  end;
 end;
 
@@ -87 +109 @@
   with TPlayer(Players[Item.Index]) do begin
     Item.Caption := Name;
-    Item.SubItems.Add(IntToHex(Color, 6));
+    Item.SubItems.Add('');
     Item.SubItems.Add('');
     Item.Checked := Enabled;
@@ -100 +122 @@
   with TPlayer(Item.Data) do begin
     EditName.Text := Name;
-    ColorButton1.ButtonColor := Color;
+    ColorButton1.ButtonColor := Color1;
+    ColorButton2.ButtonColor := Color2;
     EditDown.Text := IntToStr(Keys.Down);
     EditUp.Text := IntToStr(Keys.Up);
@@ -107 +130 @@
     EditShoot.Text := IntToStr(Keys.Shoot);
   end;
+  UpdateInterface;
 end;
 
@@ -115 +139 @@
 end;
 
+procedure TNewGameForm.UpdateInterface;
+begin
+  EditUp.Enabled := Assigned(ListView1.Selected);
+  EditDown.Enabled := Assigned(ListView1.Selected);
+  EditLeft.Enabled := Assigned(ListView1.Selected);
+  EditRight.Enabled := Assigned(ListView1.Selected);
+  EditShoot.Enabled := Assigned(ListView1.Selected);
+  EditName.Enabled := Assigned(ListView1.Selected);
+  ColorButton1.Enabled := Assigned(ListView1.Selected);
+  ColorButton2.Enabled := Assigned(ListView1.Selected);
+end;
+
 procedure TNewGameForm.LoadData(Engine: TEngine);
 begin
@@ -129 +165 @@
   if Assigned(ListView1.Selected) then
   with TPlayer(ListView1.Selected.Data) do begin
-    Color := ColorButton1.ButtonColor;
+    Color1 := ColorButton1.ButtonColor;
+    ReloadList;
+  end;
+end;
+
+procedure TNewGameForm.ColorButton2ColorChanged(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then
+  with TPlayer(ListView1.Selected.Data) do begin
+    Color2 := ColorButton2.ButtonColor;
     ReloadList;
   end;
@@ -230 +275 @@
 procedure TNewGameForm.FormCreate(Sender: TObject);
 begin
-  Players := TPlayers.Create
+  MainForm.CoolTranslator1.TranslateComponentRecursive(Self);
+  Players := TPlayers.Create;
 end;
 
@@ -241 +287 @@
 begin
   ReloadList;
+  UpdateInterface;
 end;