Changeset 22 for trunk/Forms/UMainForm.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/UMainForm.pas (modified) (4 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;