Changeset 3 for trunk/Forms/UFormField.lfm

Timestamp:

Jan 18, 2015, 5:25:37 PM (9 years ago)

Author:

chronos

Message:

• Added: Support for editing String and DateTime value types in record edit form.

Location:

trunk

Files:

• . (modified) (1 prop)
• Forms/UFormField.lfm (modified) (3 diffs)

trunk

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml

trunk/Forms/UFormField.lfm

@@ -26 +26 @@
   end
   object ButtonOk: TButton
-    Left = 624
+    Left = 880
     Height = 25
-    Top = 312
+    Top = 400
     Width = 75
+    Anchors = [akRight, akBottom]
     Caption = 'Ok'
     ModalResult = 1
@@ -59 +60 @@
     Left = 16
     Height = 25
-    Top = 146
+    Top = 144
     Width = 93
     Caption = 'Text after:'
@@ -74 +75 @@
   object ComboBoxType: TComboBox
     Left = 167
-    Height = 35
+    Height = 37
     Top = 48
     Width = 265
     ItemHeight = 0
+    OnChange = ComboBoxTypeChange
     Style = csDropDownList
     TabOrder = 4
   end
   object ButtonCancel: TButton
-    Left = 528
+    Left = 784
     Height = 25
-    Top = 312
+    Top = 400
     Width = 75
+    Anchors = [akRight, akBottom]
     Caption = 'Cancel'
     ModalResult = 2
     TabOrder = 5
   end
+  object PageControl1: TPageControl
+    Left = 16
+    Height = 200
+    Top = 184
+    Width = 936
+    ActivePage = TabSheetDateTime
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    ShowTabs = False
+    TabIndex = 2
+    TabOrder = 6
+    object TabSheetString: TTabSheet
+      Caption = 'TabSheetString'
+      ClientHeight = 194
+      ClientWidth = 930
+      object EditStringDefault: TEdit
+        Left = 160
+        Height = 35
+        Top = 8
+        Width = 265
+        TabOrder = 0
+      end
+      object Label5: TLabel
+        Left = 16
+        Height = 25
+        Top = 8
+        Width = 127
+        Caption = 'Default value:'
+        ParentColor = False
+      end
+    end
+    object TabSheetInteger: TTabSheet
+      Caption = 'TabSheetInteger'
+    end
+    object TabSheetDateTime: TTabSheet
+      Caption = 'TabSheetDateTime'
+      ClientHeight = 194
+      ClientWidth = 930
+      object DateEditMin: TDateEdit
+        Left = 136
+        Height = 35
+        Top = 24
+        Width = 216
+        CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
+        OKCaption = 'OK'
+        CancelCaption = 'Cancel'
+        DateOrder = doNone
+        ButtonWidth = 23
+        NumGlyphs = 1
+        MaxLength = 0
+        TabOrder = 0
+      end
+      object Label6: TLabel
+        Left = 16
+        Height = 25
+        Top = 32
+        Width = 96
+        Caption = 'Minimum:'
+        ParentColor = False
+      end
+      object DateEditMax: TDateEdit
+        Left = 136
+        Height = 35
+        Top = 72
+        Width = 216
+        CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
+        OKCaption = 'OK'
+        CancelCaption = 'Cancel'
+        DateOrder = doNone
+        ButtonWidth = 23
+        NumGlyphs = 1
+        MaxLength = 0
+        TabOrder = 1
+      end
+      object Label7: TLabel
+        Left = 16
+        Height = 25
+        Top = 80
+        Width = 100
+        Caption = 'Maximum:'
+        ParentColor = False
+      end
+    end
+    object TabSheetBoolean: TTabSheet
+      Caption = 'TabSheetBoolean'
+    end
+  end
 end

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml