Changeset 5 for trunk/Forms/UFormField.lfm

Timestamp:

Jan 18, 2015, 11:41:05 PM (9 years ago)

Author:

chronos

Message:

• Added: Support for float type.

File:

• trunk/Forms/UFormField.lfm (modified) (4 diffs)

trunk/Forms/UFormField.lfm

@@ -9 +9 @@
   OnCreate = FormCreate
   OnShow = FormShow
+  Position = poMainFormCenter
   LCLVersion = '1.3'
   object EditName: TEdit
@@ -98 +99 @@
     Top = 184
     Width = 936
-    ActivePage = TabSheetDateTime
+    ActivePage = TabSheetFloat
     Anchors = [akTop, akLeft, akRight, akBottom]
     ShowTabs = False
-    TabIndex = 2
+    TabIndex = 4
     TabOrder = 6
     object TabSheetString: TTabSheet
@@ -125 +126 @@
     object TabSheetInteger: TTabSheet
       Caption = 'TabSheetInteger'
+      ClientHeight = 194
+      ClientWidth = 930
+      object Label10: TLabel
+        Left = 12
+        Height = 25
+        Top = 21
+        Width = 96
+        Caption = 'Minimum:'
+        ParentColor = False
+      end
+      object SpinEditMin: TSpinEdit
+        Left = 153
+        Height = 35
+        Top = 19
+        Width = 255
+        MaxValue = 10000000
+        TabOrder = 0
+      end
+      object SpinEditMax: TSpinEdit
+        Left = 153
+        Height = 35
+        Top = 56
+        Width = 255
+        TabOrder = 1
+      end
+      object Label11: TLabel
+        Left = 12
+        Height = 25
+        Top = 58
+        Width = 100
+        Caption = 'Maximum:'
+        ParentColor = False
+      end
     end
     object TabSheetDateTime: TTabSheet
@@ -178 +212 @@
       Caption = 'TabSheetBoolean'
     end
+    object TabSheetFloat: TTabSheet
+      Caption = 'TabSheetFloat'
+      ClientHeight = 194
+      ClientWidth = 930
+      object FloatSpinEditMin: TFloatSpinEdit
+        Left = 144
+        Height = 35
+        Top = 16
+        Width = 266
+        Increment = 1
+        MaxValue = 100000000
+        MinValue = 0
+        TabOrder = 0
+        Value = 0
+      end
+      object Label8: TLabel
+        Left = 8
+        Height = 25
+        Top = 25
+        Width = 96
+        Caption = 'Minimum:'
+        ParentColor = False
+      end
+      object FloatSpinEditMax: TFloatSpinEdit
+        Left = 144
+        Height = 35
+        Top = 64
+        Width = 266
+        Increment = 1
+        MaxValue = 100
+        MinValue = 0
+        TabOrder = 1
+        Value = 0
+      end
+      object Label9: TLabel
+        Left = 8
+        Height = 25
+        Top = 73
+        Width = 100
+        Caption = 'Maximum:'
+        ParentColor = False
+      end
+    end
   end
 end