Changeset 470 for GraphicTest/UMainForm.pas

Timestamp:

Apr 9, 2015, 8:41:23 PM (9 years ago)

Author:

chronos

Message:

• Modified: Use Graphic32 library only on Windows.
• Fixed: Update correctly test start/stop actions enable state.

File:

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

GraphicTest/UMainForm.pas

@@ -43 +43 @@
     Memo1: TMemo;
     MenuItem1: TMenuItem;
+    MenuItem10: TMenuItem;
+    MenuItem11: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
     MenuItem8: TMenuItem;
+    MenuItem9: TMenuItem;
     MenuItemTest: TMenuItem;
     MenuItem5: TMenuItem;
@@ -53 +56 @@
     PageControl1: TPageControl;
     Panel1: TPanel;
+    PopupMenu1: TPopupMenu;
     SaveDialog1: TSaveDialog;
     SpinEditHeight: TSpinEdit;
@@ -378 +382 @@
 procedure TMainForm.UpdateInterface;
 begin
-  ButtonSingleTest.Enabled := not SingleTestActive and not AllTestActive and Assigned(ListViewMethods.Selected);
-  ButtonBenchmark.Enabled := not AllTestActive and not SingleTestActive;
-  ButtonStop.Enabled := SingleTestActive or AllTestActive;
+  ATestOneMethod.Enabled := not SingleTestActive and not AllTestActive and Assigned(ListViewMethods.Selected);
+  ATestAllMethods.Enabled := not AllTestActive and not SingleTestActive;
+  ATestStop.Enabled := SingleTestActive or AllTestActive;
   SpinEditWidth.MaxValue := Screen.DesktopWidth;
   SpinEditHeight.MaxValue := Screen.DesktopHeight;