Changeset 453 for GraphicTest/UMainForm.pas

Timestamp:

Nov 25, 2012, 5:04:36 PM (12 years ago)

Author:

chronos

Message:

• Added: Export results to text file in mediawiki format.

File:

• GraphicTest/UMainForm.pas (modified) (6 diffs)

GraphicTest/UMainForm.pas

@@ -9 +9 @@
   Graphics, Dialogs, ComCtrls, ExtCtrls, StdCtrls, DateUtils, UPlatform,
   LCLType, IntfGraphics, fpImage, Math, GraphType, Contnrs, LclIntf, Spin,
-  UFastBitmap, UDrawMethod;
+  ActnList, Menus, StdActns, UFastBitmap, UDrawMethod;
 
 const
@@ -19 +19 @@
 
   TMainForm = class(TForm)
+    Action1: TAction;
+    AExportAsWikiText: TAction;
+    ActionList1: TActionList;
     ButtonBenchmark: TButton;
     ButtonSingleTest: TButton;
@@ -25 +28 @@
     CheckBoxDoubleBuffered: TCheckBox;
     CheckBoxEraseBackground: TCheckBox;
+    FileExit1: TFileExit;
     FloatSpinEdit1: TFloatSpinEdit;
     Label1: TLabel;
@@ -31 +35 @@
     Label4: TLabel;
     ListViewMethods: TListView;
+    MainMenu1: TMainMenu;
     Memo1: TMemo;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
     PageControl1: TPageControl;
     Panel1: TPanel;
+    SaveDialog1: TSaveDialog;
     SpinEditHeight: TSpinEdit;
     SpinEditWidth: TSpinEdit;
@@ -42 +51 @@
     TabSheet2: TTabSheet;
     TimerUpdateList: TTimer;
+    procedure AExportAsWikiTextExecute(Sender: TObject);
     procedure ButtonBenchmarkClick(Sender: TObject);
     procedure ButtonSingleTestClick(Sender: TObject);
@@ -187 +197 @@
 end;
 
+procedure TMainForm.AExportAsWikiTextExecute(Sender: TObject);
+var
+  Output: TStringList;
+  I: Integer;
+  Duration: Real;
+begin
+  SaveDialog1.FileName := 'GraphicsTest results.txt';
+  if SaveDialog1.Execute then
+  try
+    Output := TStringList.Create;
+    Output.Add('{| class="wikitable sortable"');
+    Output.Add('|-');
+    Output.Add('! Method !! FPS !! Frame duration [ms]');
+    for I := 0 to DrawMethods.Count - 1 do
+    with TDrawMethod(DrawMethods[I]) do begin
+      Output.Add('|-');
+      if FPS <> 0 then Duration := 1 / FPS * 1000
+        else Duration := 0;
+      Output.Add('|' + Caption + ' || ' + FloatToStr(RoundTo(FPS, -1)) +
+        ' || ' + FloatToStr(RoundTo(Duration, -1)));
+    end;
+    Output.Add('|}');
+    Output.SaveToFile(SaveDialog1.FileName);
+  finally
+    Output.Free;
+  end;
+end;
+
 procedure TMainForm.ButtonStopClick(Sender: TObject);
 begin