Changeset 24 for trunk/Forms

Timestamp:

Sep 28, 2011, 9:14:55 PM (13 years ago)

Author:

george

Message:

• Fixed: Up to eight possible players with different colors.
• Fixed: Damage done to correct player shield.

Location:

trunk/Forms

Files:

• UMainForm.lfm (modified) (1 diff)
• UMainForm.pas (modified) (2 diffs)
• UMapForm.pas (modified) (2 diffs)
• UNewGameForm.pas (modified) (2 diffs)

trunk/Forms/UMainForm.lfm

@@ -51 +51 @@
     Width = 514
     Align = alClient
+    OnMouseLeave = Image1MouseLeave
     OnResize = Image1Resize
   end

trunk/Forms/UMainForm.pas

@@ -48 +48 @@
     procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormShow(Sender: TObject);
+    procedure Image1MouseLeave(Sender: TObject);
     procedure Image1Resize(Sender: TObject);
     procedure TimerDrawTimer(Sender: TObject);
@@ -201 +202 @@
 end;
 
+procedure TMainForm.Image1MouseLeave(Sender: TObject);
+begin
+
+end;
+
 procedure TMainForm.Image1Resize(Sender: TObject);
 begin

trunk/Forms/UMapForm.pas

@@ -30 +30 @@
 
 uses
-  UCore;
+  UCore, UMainForm;
 
 { TMapForm }
@@ -37 +37 @@
 begin
   Image1.Picture.Bitmap.SetSize(Image1.Width, Image1.Height);
-  Engine.World.DrawToBitmap(Image1.Picture.Bitmap);
+  MainForm.Engine.World.DrawToBitmap(Image1.Picture.Bitmap);
 end;
 

trunk/Forms/UNewGameForm.pas

@@ -34 +34 @@
 
 uses
-  UCore;
+  UCore, UMainForm;
 
 {$R *.lfm}
@@ -60 +60 @@
     BeginUpdate;
     Clear;
-    for I := 0 to Engine.PlayerPool.Count - 1 do
-    with TPlayer(Engine.PlayerPool[I]) do begin
+    for I := 0 to MainForm.Engine.PlayerPool.Count - 1 do
+    with TPlayer(MainForm.Engine.PlayerPool[I]) do begin
       NewItem := Items.Add;
       NewItem.Caption := Name;