Changeset 23 for trunk/Forms/UNewGameForm.pas

Timestamp:

Sep 28, 2011, 8:34:06 PM (13 years ago)

Author:

george

Message:

• Added: Introduced player pool for selection of players for new game.
• Fixed: Deadlock on program exit during threads termination.

File:

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

trunk/Forms/UNewGameForm.pas

@@ -19 +19 @@
     ListView1: TListView;
     procedure ButtonStartClick(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
     procedure ListView1Change(Sender: TObject; Item: TListItem;
       Change: TItemChange);
@@ -40 +40 @@
 { TNewGameForm }
 
-procedure TNewGameForm.FormCreate(Sender: TObject);
-var
-  NewItem: TListItem;
-  I: Integer;
-begin
-  with ListView1 do try
-    BeginUpdate;
-    Clear;
-    for I := 0 to Engine.Players.Count - 1 do
-    with TPlayer(Engine.Players[I]) do begin
-      NewItem := Items.Add;
-      NewItem.Caption := Name;
-      NewItem.SubItems.Add(IntToStr(Color));
-      NewItem.SubItems.Add('');
-      NewItem.Checked := Enabled;
-      NewItem.Data := Pointer(Engine.Players[I]);
-    end;
-  finally
-    EndUpdate;
-  end;
-end;
-
 procedure TNewGameForm.ListView1Change(Sender: TObject; Item: TListItem;
   Change: TItemChange);
@@ -74 +52 @@
 end;
 
+procedure TNewGameForm.FormShow(Sender: TObject);
+var
+  NewItem: TListItem;
+  I: Integer;
+begin
+  with ListView1 do try
+    BeginUpdate;
+    Clear;
+    for I := 0 to Engine.PlayerPool.Count - 1 do
+    with TPlayer(Engine.PlayerPool[I]) do begin
+      NewItem := Items.Add;
+      NewItem.Caption := Name;
+      NewItem.SubItems.Add(IntToStr(Color));
+      NewItem.SubItems.Add('');
+      NewItem.Checked := Enabled;
+      NewItem.Data := Pointer(Engine.PlayerPool[I]);
+    end;
+  finally
+    EndUpdate;
+  end;
+end;
+
 end.