Changeset 22 for trunk/Forms

Timestamp:

Sep 28, 2011, 3:10:01 PM (13 years ago)

Author:

george

Message:

• Added: Definition class for surface matter types.

Location:

trunk/Forms

Files:

• UMainForm.pas (modified) (4 diffs)
• UNewGameForm.lfm (modified) (2 diffs)
• UNewGameForm.pas (modified) (3 diffs)

trunk/Forms/UMainForm.pas

@@ -115 +115 @@
     PlayerCount := 4;
     with TPlayer(Players[0]) do begin
+      Name := 'Player 1';
       Keys.Left := 65;
       Keys.Down := 83;
@@ -122 +123 @@
     end;
     with TPlayer(Players[1]) do begin
+      Name := 'Player 2';
       Keys.Left := 37;
       Keys.Down := 40;
@@ -129 +131 @@
     end;
     with TPlayer(Players[2]) do begin
+      Name := 'Player 3';
       Keys.Left := 76;
       Keys.Down := 186;
@@ -136 +139 @@
     end;
     with TPlayer(Players[3]) do begin
+      Name := 'Player 4';
       Keys.Left := 100;
       Keys.Down := 98;

trunk/Forms/UNewGameForm.lfm

@@ -17 +17 @@
     Caption = 'Start'
     ModalResult = 1
+    OnClick = ButtonStartClick
     TabOrder = 0
   end
@@ -59 +60 @@
     TabOrder = 2
     ViewStyle = vsReport
+    OnChange = ListView1Change
   end
 end

trunk/Forms/UNewGameForm.pas

@@ -18 +18 @@
     Label1: TLabel;
     ListView1: TListView;
+    procedure ButtonStartClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure ListView1Change(Sender: TObject; Item: TListItem;
+      Change: TItemChange);
   private
     { private declarations }
@@ -52 +55 @@
       NewItem.SubItems.Add('');
       NewItem.Checked := Enabled;
+      NewItem.Data := Pointer(Engine.Players[I]);
     end;
   finally
@@ -58 +62 @@
 end;
 
+procedure TNewGameForm.ListView1Change(Sender: TObject; Item: TListItem;
+  Change: TItemChange);
+begin
+  if Change = ctState then
+    TPlayer(Item.Data).Enabled := Item.Checked;
+end;
+
+procedure TNewGameForm.ButtonStartClick(Sender: TObject);
+begin
+
+end;
+
 end.