Changeset 454 for GraphicTest/UMainForm.lfm

Timestamp:

Nov 26, 2012, 7:38:56 AM (12 years ago)

Author:

chronos

Message:

• Added: Now PixelFormat for tests where TBitmap is used can be changed.
• Fixed: Stopping of test of all methods.

File:

• GraphicTest/UMainForm.lfm (modified) (17 diffs)

GraphicTest/UMainForm.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 165
+  Left = 258
   Height = 444
-  Top = 117
+  Top = 176
   Width = 857
   Caption = 'Graphic test'
@@ -24 +24 @@
     object TabSheet1: TTabSheet
       Caption = 'Description'
-      ClientHeight = 388
+      ClientHeight = 399
       ClientWidth = 390
       object Memo1: TMemo
         Left = 0
-        Height = 388
+        Height = 399
         Top = 0
         Width = 390
@@ -534 +534 @@
     TabOrder = 1
     object ListViewMethods: TListView
-      Left = 9
-      Height = 349
-      Top = 8
-      Width = 443
+      Left = 4
+      Height = 324
+      Top = 4
+      Width = 448
       Anchors = [akTop, akLeft, akRight, akBottom]
       Columns = <      
@@ -579 +579 @@
       Left = 8
       Height = 25
-      Top = 364
+      Top = 336
       Width = 115
-      Anchors = [akLeft, akBottom]
-      Caption = 'Test one method'
-      OnClick = ButtonSingleTestClick
+      Action = ATestOneMethod
+      Anchors = [akLeft, akBottom]
       TabOrder = 1
     end
@@ -589 +588 @@
       Left = 136
       Height = 25
-      Top = 364
+      Top = 336
       Width = 112
-      Anchors = [akLeft, akBottom]
-      Caption = 'Test all methods'
-      OnClick = ButtonBenchmarkClick
+      Action = ATestAllMethods
+      Anchors = [akLeft, akBottom]
       TabOrder = 2
     end
     object FloatSpinEdit1: TFloatSpinEdit
       Left = 88
-      Height = 23
-      Top = 394
+      Height = 21
+      Top = 368
       Width = 58
       Anchors = [akLeft, akBottom]
@@ -611 +609 @@
       Left = 256
       Height = 25
-      Top = 364
+      Top = 336
       Width = 75
-      Anchors = [akLeft, akBottom]
-      Caption = 'Stop'
-      OnClick = ButtonStopClick
+      Action = ATestStop
+      Anchors = [akLeft, akBottom]
       TabOrder = 4
     end
     object Label1: TLabel
       Left = 8
-      Height = 15
-      Top = 398
-      Width = 78
+      Height = 13
+      Top = 372
+      Width = 69
       Anchors = [akLeft, akBottom]
       Caption = 'Step duration:'
@@ -629 +626 @@
     object Label2: TLabel
       Left = 152
-      Height = 15
-      Top = 398
+      Height = 13
+      Top = 372
       Width = 5
       Anchors = [akLeft, akBottom]
@@ -638 +635 @@
     object SpinEditWidth: TSpinEdit
       Left = 204
-      Height = 23
-      Top = 394
+      Height = 21
+      Top = 368
       Width = 58
       Anchors = [akLeft, akBottom]
@@ -649 +646 @@
     object SpinEditHeight: TSpinEdit
       Left = 273
-      Height = 23
-      Top = 394
+      Height = 21
+      Top = 368
       Width = 58
       Anchors = [akLeft, akBottom]
@@ -660 +657 @@
     object Label3: TLabel
       Left = 169
-      Height = 15
-      Top = 399
-      Width = 25
+      Height = 13
+      Top = 373
+      Width = 23
       Anchors = [akLeft, akBottom]
       Caption = 'Size:'
@@ -669 +666 @@
     object Label4: TLabel
       Left = 265
-      Height = 15
-      Top = 398
+      Height = 13
+      Top = 372
       Width = 6
       Anchors = [akLeft, akBottom]
@@ -678 +675 @@
     object CheckBoxDoubleBuffered: TCheckBox
       Left = 336
-      Height = 24
-      Top = 357
-      Width = 118
+      Height = 17
+      Top = 336
+      Width = 98
       Anchors = [akLeft, akBottom]
       Caption = 'Double buffered'
@@ -688 +685 @@
     object CheckBoxEraseBackground: TCheckBox
       Left = 336
-      Height = 24
-      Top = 374
-      Width = 124
+      Height = 17
+      Top = 353
+      Width = 106
       Anchors = [akLeft, akBottom]
       Caption = 'Erase background'
@@ -698 +695 @@
     object CheckBox1: TCheckBox
       Left = 336
-      Height = 24
-      Top = 394
-      Width = 69
+      Height = 17
+      Top = 369
+      Width = 58
       Anchors = [akLeft, akBottom]
       Caption = 'Opaque'
       OnChange = CheckBox1Change
       TabOrder = 9
+    end
+    object Label5: TLabel
+      Left = 8
+      Height = 13
+      Top = 399
+      Width = 61
+      Anchors = [akLeft, akBottom]
+      Caption = 'Pixel format:'
+      ParentColor = False
+    end
+    object ComboBox1: TComboBox
+      Left = 89
+      Height = 21
+      Top = 394
+      Width = 100
+      Anchors = [akLeft, akBottom]
+      ItemHeight = 13
+      OnChange = ComboBox1Change
+      Style = csDropDownList
+      TabOrder = 10
     end
   end
@@ -747 +764 @@
       OnExecute = AExportAsWikiTextExecute
     end
-    object Action1: TAction
-      Caption = 'Action1'
+    object ATestOneMethod: TAction
+      Caption = 'Test one method'
+      OnExecute = ATestOneMethodExecute
+      ShortCut = 113
     end
     object FileExit1: TFileExit
@@ -755 +774 @@
       Hint = 'Exit'
       ShortCut = 32883
+    end
+    object ATestStop: TAction
+      Caption = 'Stop'
+      Hint = 'Stop'
+      OnExecute = ATestStopExecute
+      ShortCut = 114
+    end
+    object ATestAllMethods: TAction
+      Caption = 'Test all methods'
+      Hint = 'Test all methods'
+      OnExecute = ATestAllMethodsExecute
+      ShortCut = 114
+    end
+    object AShowDrawForm: TAction
+      Caption = 'Draw form'
+      OnExecute = AShowDrawFormExecute
     end
   end
@@ -769 +804 @@
       end
     end
+    object MenuItemTest: TMenuItem
+      Caption = 'Test'
+      object MenuItem5: TMenuItem
+        Action = ATestOneMethod
+      end
+      object MenuItem6: TMenuItem
+        Action = ATestAllMethods
+      end
+      object MenuItem7: TMenuItem
+        Action = ATestStop
+      end
+    end
+    object MenuItem4: TMenuItem
+      Caption = 'View'
+      object MenuItem8: TMenuItem
+        Action = AShowDrawForm
+      end
+    end
   end
   object SaveDialog1: TSaveDialog