Changeset 28 for trunk/Forms

Timestamp:

Oct 3, 2011, 8:17:16 PM (13 years ago)

Author:

george

Message:

 

Location:

trunk/Forms

Files:

• UDebugForm.lrt (added)
• UMainForm.pas (modified) (4 diffs)

trunk/Forms/UMainForm.pas

@@ -72 +72 @@
 
 uses
-  UMapForm, UNewGameForm;
+  UMapForm, UNewGameForm, UDebugForm;
+
+resourcestring
+  SRound = '%0:s of %1:s';
 
 { TMainForm }
@@ -91 +94 @@
       //  IntToStr(TPlayer(Engine.Players[0]).Direction);
       StatusBar1.Panels[2].Text := FloatToStr(RoundTo(DrawDuration / OneMillisecond, -2));
-      //StatusBar1.Panels[3].Text := IntToStr(TPlayer(Engine.Players[0]).Bullets.Count);
+      StatusBar1.Panels[3].Text := Format(SRound, [IntToStr(Engine.CurrentRound),
+        IntToStr(Engine.MaxRound)]);
     finally
       Engine.Lock.Release;
@@ -200 +204 @@
   PersistentForm.Load(Self);
   CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('cs');
+  DebugForm.Show;
 end;
 
@@ -209 +214 @@
 procedure TMainForm.Image1Resize(Sender: TObject);
 begin
-  Image1.Picture.Bitmap.SetSize(Image1.Width, Image1.Height);
-  Engine.ResizePlayerFrames;
+  try
+    Engine.Lock.Acquire;
+    Image1.Picture.Bitmap.SetSize(Image1.Width, Image1.Height);
+    Engine.ResizePlayerFrames;
+  finally
+    Engine.Lock.Release;
+  end;
 end;