Changeset 4 for trunk/Forms/UFormTables.lfm

Timestamp:

Jan 18, 2015, 11:29:26 PM (9 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/UFormTables.lfm (modified) (4 diffs)

trunk/Forms/UFormTables.lfm

@@ -13 +13 @@
   object ListView1: TListView
     Left = 4
-    Height = 626
+    Height = 616
     Top = 4
     Width = 970
@@ -39 +39 @@
   object ToolBar1: TToolBar
     Left = 0
-    Height = 26
-    Top = 634
+    Height = 36
+    Top = 624
     Width = 978
     Align = alBottom
+    ButtonHeight = 32
+    ButtonWidth = 32
     Caption = 'ToolBar1'
     Images = Core.ImageList1
-    ShowCaptions = True
     TabOrder = 1
     object ToolButton1: TToolButton
@@ -53 +54 @@
     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 = 201
+      Left = 109
       Top = 2
       Action = AShowRecords
     end
     object ToolButton5: TToolButton
-      Left = 283
+      Left = 145
       Top = 2
       Action = AShowFields
@@ -79 +80 @@
     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 AShowRecords: TAction
       Caption = 'Records'
+      ImageIndex = 7
       OnExecute = AShowRecordsExecute
     end
     object AShowFields: TAction
       Caption = 'Design'
+      ImageIndex = 6
       OnExecute = AShowFieldsExecute
     end