Changeset 22 for trunk/Forms/UNewGameForm.pas

Timestamp:

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

Author:

george

Message:

• Added: Definition class for surface matter types.

File:

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

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.