Changeset 2 for trunk/UMainForm.pas

Timestamp:

Mar 5, 2011, 10:16:19 PM (14 years ago)

Author:

george

Message:

• Modified: Used TemplateGenerics package for world surface pixel array.

Location:

trunk

Files:

• . (modified) (1 prop)
• UMainForm.pas (modified) (6 diffs)

trunk/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  ComCtrls, UCore;
+  ComCtrls, Menus, UCore;
 
 type
@@ -15 +15 @@
   TMainForm = class(TForm)
     Image1: TImage;
+    MainMenu1: TMainMenu;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
     StatusBar1: TStatusBar;
     Timer1: TTimer;
@@ -21 +25 @@
     procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure Image1Resize(Sender: TObject);
+    procedure MenuItem2Click(Sender: TObject);
+    procedure MenuItem3Click(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
   private
@@ -39 +45 @@
 procedure TMainForm.Timer1Timer(Sender: TObject);
 begin
-  Engine.Paint;
+  try
+    Timer1.Enabled := False;
+    Engine.Paint;
+    StatusBar1.Panels[1].Text := IntToStr(TPlayer(Engine.Players[0]).Position.X) + ', ' +
+      IntToStr(TPlayer(Engine.Players[0]).Position.Y);
+  finally
+    Timer1.Enabled := True;
+  end;
 end;
 
@@ -46 +59 @@
   Engine.Bitmap := Image1.Picture.Bitmap;
   Image1Resize(Self);
+  with Engine do begin
+    PlayerCount := 2;
+    with TPlayer(Players[0]) do begin
+      Position := Point(25 + Random(World.Surface.Count.X - 50),
+        25 + Random(World.Surface.Count.Y - 50));
+      Color := TColor($00f805);
+      Keys.Left := 65;
+      Keys.Down := 87;
+      Keys.Right := 68;
+      Keys.Up := 83;
+      Keys.Shoot := 69;
+    end;
+    with TPlayer(Players[1]) do begin
+      Position := Point(25 + Random(World.Surface.Count.X - 50),
+        25 + Random(World.Surface.Count.Y - 50));
+      Color := TColor($00f805);
+      Keys.Left := 37;
+      Keys.Down := 38;
+      Keys.Right := 39;
+      Keys.Up := 40;
+      Keys.Shoot := 17;
+    end;
+  end;
 end;
 
@@ -68 +104 @@
 end;
 
+procedure TMainForm.MenuItem2Click(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TMainForm.MenuItem3Click(Sender: TObject);
+begin
+
+end;
+
 end.