Changeset 28 for trunk/UFormMain.pas
- Timestamp:
- Mar 3, 2014, 8:53:04 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UFormMain.pas
r25 r28 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, 9 UGame, LCLType, Menus, ActnList, ComCtrls, types ;9 UGame, LCLType, Menus, ActnList, ComCtrls, types, dateutils; 10 10 11 11 const … … 28 28 StatusBar1: TStatusBar; 29 29 Timer1: TTimer; 30 ToolBar1: TToolBar; 31 ToolButton1: TToolButton; 32 ToolButton2: TToolButton; 33 ToolButton3: TToolButton; 34 ToolButton4: TToolButton; 30 35 procedure FormActivate(Sender: TObject); 31 36 procedure FormCreate(Sender: TObject); … … 96 101 var 97 102 NewCaption: string; 103 DrawStart: TDateTime; 98 104 begin 99 105 if RedrawPending then begin 100 106 RedrawPending := False; 107 DrawStart := Now; 101 108 PaintBox1.Repaint; 109 StatusBar1.Panels[1].Text := IntToStr(Trunc((Now - DrawStart) / OneMillisecond)) + ' ms'; 102 110 103 111 NewCaption := 'xTactics';
Note:
See TracChangeset
for help on using the changeset viewer.