Changeset 4 for trunk/Forms/UFormFields.lfm

Timestamp:

Jan 18, 2015, 11:29:26 PM (10 years ago)

Author:

chronos

Message:

• Moved: Field and value data type declaration moved to separate unit.
• Modified: Fields edit form is now modal and made need changes need to be accepted.
• Added: 32x32 icons to actions.
• Fixed: If fileds count or type changed then table values are updated.

File:

• trunk/Forms/UFormFields.lfm (modified) (3 diffs)

trunk/Forms/UFormFields.lfm

@@ -11 +11 @@
   object ToolBar1: TToolBar
     Left = 0
-    Height = 26
-    Top = 446
+    Height = 36
+    Top = 436
     Width = 940
     Align = alBottom
+    ButtonHeight = 32
+    ButtonWidth = 32
     Caption = 'ToolBar1'
     Images = Core.ImageList1
-    ShowCaptions = True
     TabOrder = 0
     object ToolButton1: TToolButton
@@ -25 +26 @@
     end
     object ToolButton2: TToolButton
-      Left = 46
+      Left = 37
       Top = 2
       Action = AModify
     end
     object ToolButton3: TToolButton
-      Left = 118
+      Left = 73
       Top = 2
       Action = ARemove
+    end
+    object ToolButton4: TToolButton
+      Left = 109
+      Top = 2
+      Action = AOk
+    end
+    object ToolButton5: TToolButton
+      Left = 145
+      Top = 2
+      Action = ACancel
     end
   end
   object ListView1: TListView
     Left = 4
-    Height = 438
+    Height = 428
     Top = 4
     Width = 932
@@ -79 +90 @@
     object AAdd: TAction
       Caption = 'Add'
+      ImageIndex = 5
       OnExecute = AAddExecute
     end
     object AModify: TAction
       Caption = 'Modify'
+      ImageIndex = 3
       OnExecute = AModifyExecute
     end
     object ARemove: TAction
       Caption = 'Remove'
+      ImageIndex = 4
       OnExecute = ARemoveExecute
+    end
+    object AOk: TAction
+      Caption = 'Ok'
+      ImageIndex = 0
+      OnExecute = AOkExecute
+    end
+    object ACancel: TAction
+      Caption = 'Cancel'
+      ImageIndex = 1
+      OnExecute = ACancelExecute
     end
   end