Changeset 28 for trunk/UFormMain.pas

Timestamp:

Mar 3, 2014, 8:53:04 PM (10 years ago)

Author:

chronos

Message:

• Fixed: Use modified player list from New game. Allow more players then two with different colors.
• Added: Toolbar for quick access to common actions.

File:

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

trunk/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  UGame, LCLType, Menus, ActnList, ComCtrls, types;
+  UGame, LCLType, Menus, ActnList, ComCtrls, types, dateutils;
 
 const
@@ -28 +28 @@
     StatusBar1: TStatusBar;
     Timer1: TTimer;
+    ToolBar1: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
     procedure FormActivate(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -96 +101 @@
 var
   NewCaption: string;
+  DrawStart: TDateTime;
 begin
   if RedrawPending then begin
     RedrawPending := False;
+    DrawStart := Now;
     PaintBox1.Repaint;
+    StatusBar1.Panels[1].Text := IntToStr(Trunc((Now - DrawStart) / OneMillisecond)) + ' ms';
 
     NewCaption := 'xTactics';