Changeset 10 for trunk/UMainForm.pas

Timestamp:

Mar 19, 2011, 4:30:27 PM (13 years ago)

Author:

george

Message:

• Modified: Optimized resampling of bitmap to higher resolution.

File:

• trunk/UMainForm.pas (modified) (3 diffs)

trunk/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  ComCtrls, Menus, ActnList, UCore;
+  ComCtrls, Menus, ActnList, UCore, UPlatform, Math, DateUtils;
 
 type
@@ -45 +45 @@
     OriginalWindowState: TWindowState;
     ScreenBounds: TRect;
+    StartTime: TDateTime;
+    DrawDuration: TDateTime;
+    Drawing: Boolean;
   public
     { public declarations }
@@ -63 +66 @@
 procedure TMainForm.TimerDrawTimer(Sender: TObject);
 begin
+  if not Drawing then
   try
-    TimerDraw.Enabled := False;
+    Drawing := True;
+    StartTime := NowPrecise;
     Engine.Draw;
+    DrawDuration := NowPrecise - StartTime;
     StatusBar1.Panels[1].Text := IntToStr(TPlayer(Engine.Players[0]).Position.X) + ', ' +
       IntToStr(TPlayer(Engine.Players[0]).Position.Y) + ' ' +
       IntToStr(TPlayer(Engine.Players[0]).Direction);
+    StatusBar1.Panels[2].Text := FloatToStr(RoundTo(DrawDuration / OneMillisecond, -2));
   finally
-    TimerDraw.Enabled := True;
+    Drawing := False;
   end;
 end;