Changeset 201 for GraphicTest/UMainForm.lfm

Timestamp:

Mar 17, 2011, 7:40:35 AM (13 years ago)

Author:

george

Message:

• Modified: TFastBitmap class moved to separated unit.
• Modified: Draw method transformed to individual classes in separated unit.

Location:

GraphicTest

Files:

• . (modified) (1 prop)
• UMainForm.lfm (modified) (11 diffs)

GraphicTest

@@ -1 +1 @@
 lib
 GraphicTest
+GraphicTest.exe

@@ -1 +1 @@
 lib
 GraphicTest
+GraphicTest.exe

GraphicTest/UMainForm.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 357
+  Left = 291
   Height = 452
   Top = 127
-  Width = 627
+  Width = 731
   Caption = 'Graphic test'
   ClientHeight = 452
-  ClientWidth = 627
+  ClientWidth = 731
+  OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   LCLVersion = '0.9.31'
   object PageControl1: TPageControl
-    Left = 248
+    Left = 312
     Height = 432
     Top = 16
-    Width = 376
+    Width = 416
     ActivePage = TabSheet1
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -21 +22 @@
     object TabSheet1: TTabSheet
       Caption = 'TImage'
-      ClientHeight = 405
-      ClientWidth = 372
+      ClientHeight = 406
+      ClientWidth = 408
       object Image1: TImage
         Left = 6
-        Height = 392
+        Height = 393
         Top = 7
-        Width = 362
+        Width = 398
         Anchors = [akTop, akLeft, akRight, akBottom]
       end
@@ -57 +58 @@
     Height = 14
     Top = 95
-    Width = 24
+    Width = 23
     Caption = 'FPS:'
     ParentColor = False
@@ -65 +66 @@
     Height = 14
     Top = 95
-    Width = 38
-    Caption = 'Label2'
+    Width = 10
+    Caption = '   '
     ParentColor = False
   end
@@ -83 +84 @@
     Height = 14
     Top = 112
-    Width = 83
+    Width = 74
     Caption = 'Frame duration'
     ParentColor = False
@@ -91 +92 @@
     Height = 14
     Top = 112
-    Width = 38
-    Caption = 'Label4'
+    Width = 10
+    Caption = '   '
     ParentColor = False
   end
@@ -99 +100 @@
     Height = 240
     Top = 208
-    Width = 232
+    Width = 296
+    Anchors = [akTop, akLeft, akBottom]
     Columns = <    
       item
@@ -107 +109 @@
       item
         Caption = 'Duration'
-        Width = 111
+        Width = 60
+      end    
+      item
+        Caption = 'FPS'
+        Width = 60
       end>
     TabOrder = 3
     ViewStyle = vsReport
   end
-  object Button1: TButton
+  object ButtonBenchmark: TButton
     Left = 11
     Height = 25
@@ -118 +124 @@
     Width = 75
     Caption = 'Benchmark'
-    OnClick = Button1Click
+    OnClick = ButtonBenchmarkClick
     TabOrder = 4
   end
   object ComboBox1: TComboBox
     Left = 7
-    Height = 25
+    Height = 21
     Top = 64
     Width = 233
-    ItemHeight = 0
+    ItemHeight = 13
     Items.Strings = (
       'TBitmap.Canvas.Pixels'
@@ -142 +148 @@
     Height = 14
     Top = 47
-    Width = 46
+    Width = 41
     Caption = 'Method:'
     ParentColor = False
@@ -149 +155 @@
     OnTimer = Timer1Timer
     left = 209
-    top = 37
+    top = 16
   end
 end

@@ -1 +1 @@
 lib
 GraphicTest
+GraphicTest.exe