Changeset 211 for GraphicTest/UMainForm.lfm

Timestamp:

Mar 20, 2011, 12:23:08 PM (13 years ago)

Author:

george

Message:

• Added: OpenGL method to display bitmap as texture on top of 2D rectangle.

File:

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

GraphicTest/UMainForm.lfm

@@ -16 +16 @@
     Top = 16
     Width = 365
-    ActivePage = TabSheet1
+    ActivePage = TabSheet3
     Anchors = [akTop, akLeft, akRight, akBottom]
-    TabIndex = 0
+    TabIndex = 2
     TabOrder = 0
     object TabSheet1: TTabSheet
       Caption = 'TImage'
-      ClientHeight = 292
-      ClientWidth = 357
+      ClientHeight = 291
+      ClientWidth = 361
       object Image1: TImage
         Left = 6
-        Height = 279
+        Height = 278
         Top = 7
-        Width = 347
+        Width = 351
         Anchors = [akTop, akLeft, akRight, akBottom]
       end
@@ -34 +34 @@
     object TabSheet2: TTabSheet
       Caption = 'TPaintBox'
-      ClientHeight = 406
-      ClientWidth = 408
+      ClientHeight = 291
+      ClientWidth = 361
       object PaintBox1: TPaintBox
         Left = 6
-        Height = 394
+        Height = 279
         Top = 7
-        Width = 397
+        Width = 350
         Anchors = [akTop, akLeft, akRight, akBottom]
       end
+    end
+    object TabSheet3: TTabSheet
+      Caption = 'OpenGL'
     end
   end
@@ -58 +61 @@
     Height = 14
     Top = 95
-    Width = 23
+    Width = 24
     Caption = 'FPS:'
     ParentColor = False
@@ -84 +87 @@
     Height = 14
     Top = 112
-    Width = 74
+    Width = 83
     Caption = 'Frame duration'
     ParentColor = False
@@ -113 +116 @@
       item
         Caption = 'FPS'
-        Width = 60
+        Width = 75
       end>
     TabOrder = 3
@@ -129 +132 @@
   object ComboBox1: TComboBox
     Left = 7
-    Height = 21
+    Height = 25
     Top = 64
     Width = 297
-    ItemHeight = 13
+    ItemHeight = 0
     Style = csDropDownList
     TabOrder = 5
@@ -140 +143 @@
     Height = 14
     Top = 47
-    Width = 41
+    Width = 46
     Caption = 'Method:'
     ParentColor = False