Changeset 73 for trunk/Forms/UFormMain.pas

Timestamp:

Oct 4, 2014, 9:05:59 PM (10 years ago)

Author:

chronos

Message:

• Modified: Show draw time in ms smoothed.

File:

• trunk/Forms/UFormMain.pas (modified) (5 diffs)

trunk/Forms/UFormMain.pas

@@ -95 +95 @@
     RedrawPending: Boolean;
     DrawDuration: TDateTime;
+    LastTimerTime: TDateTime;
+    TimerPeriod: TDateTime;
   public
     procedure LoadConfig(Config: TXmlConfig; Path: string);
@@ -122 +124 @@
 begin
   DrawStart := Now;
-  //if Core.Game.Running then
   if Assigned(Core.Game.CurrentPlayer) then
   with Core.Game.CurrentPlayer do begin
@@ -132 +133 @@
       Paint(TempBitmap.Canvas);
       PaintBox1.Canvas.Draw(0, 0, TempBitmap);
-    end else Paint(PaintBox1.Canvas);
-  end;
-  DrawDuration := Now - DrawStart;
+    end else begin
+      Paint(PaintBox1.Canvas);
+    end;
+  end;
+  DrawDuration := (9 * DrawDuration + (Now - DrawStart)) / 10;
 end;
 
@@ -153 +156 @@
 var
   NewCaption: string;
-  DrawStart: TDateTime;
 begin
   if RedrawPending then begin
     RedrawPending := False;
+    TimerPeriod := (9 * TimerPeriod + (Now - LastTimerTime)) / 10;
+    LastTimerTime := Now;
     PaintBox1.Repaint;
-    StatusBar1.Panels[1].Text := IntToStr(Trunc(DrawDuration / OneMillisecond)) + ' ms';
+    StatusBar1.Panels[1].Text := IntToStr(Trunc(DrawDuration / OneMillisecond)) + ' / ' +
+      IntToStr(Trunc(TimerPeriod / OneMillisecond)) + ' ms';
     NewCaption := 'xTactics';
     if Assigned(Core.Game.CurrentPlayer) then
@@ -213 +218 @@
   //DoubleBuffered := True;
   TempBitmap := TBitmap.Create;
+  TimerPeriod := 0;
+  LastTimerTime := Now;
 end;