Changeset 112 for branches/generator/Forms/UFormRule.lfm

Timestamp:

Aug 9, 2017, 8:47:42 AM (7 years ago)

Author:

chronos

Message:

• Added: Icons for various actions.
• Added: Show rule items in rules list.

File:

• branches/generator/Forms/UFormRule.lfm (modified) (6 diffs)

branches/generator/Forms/UFormRule.lfm

@@ -1 +1 @@
 object FormRule: TFormRule
   Left = 679
-  Height = 398
+  Height = 505
   Top = 620
   Width = 660
   ActiveControl = ButtonOk
   Caption = 'Rule'
-  ClientHeight = 398
+  ClientHeight = 505
   ClientWidth = 660
   OnShow = FormShow
@@ -13 +13 @@
     Left = 376
     Height = 25
-    Top = 360
+    Top = 467
     Width = 75
     Anchors = [akLeft, akBottom]
@@ -23 +23 @@
     Left = 168
     Height = 25
-    Top = 360
+    Top = 467
     Width = 75
     Anchors = [akLeft, akBottom]
@@ -47 +47 @@
   object ListView: TListView
     Left = 16
-    Height = 232
+    Height = 307
     Top = 112
     Width = 624
-    Anchors = [akTop, akLeft, akBottom]
+    Anchors = [akTop, akLeft, akRight, akBottom]
     Columns = <    
       item
@@ -78 +78 @@
   object ComboBox1: TComboBox
     Left = 186
-    Height = 36
+    Height = 34
     Top = 61
     Width = 390
@@ -89 +89 @@
     TabOrder = 4
   end
+  object ToolBar1: TToolBar
+    Left = 16
+    Height = 26
+    Top = 424
+    Width = 624
+    Align = alCustom
+    Anchors = [akLeft, akRight, akBottom]
+    Caption = 'ToolBar1'
+    Images = Core.ImageList1
+    TabOrder = 5
+    object ToolButton1: TToolButton
+      Left = 1
+      Top = 2
+      Action = AAdd
+    end
+    object ToolButton2: TToolButton
+      Left = 24
+      Top = 2
+      Action = AModify
+    end
+    object ToolButton3: TToolButton
+      Left = 47
+      Top = 2
+      Action = ARemove
+    end
+  end
   object ActionList1: TActionList
+    Images = Core.ImageList1
     left = 347
     top = 187
     object AAdd: TAction
       Caption = 'Add'
+      ImageIndex = 0
       OnExecute = AAddExecute
     end
     object AModify: TAction
       Caption = 'Modify'
+      ImageIndex = 3
       OnExecute = AModifyExecute
     end
     object ARemove: TAction
       Caption = 'Remove'
+      ImageIndex = 1
       OnExecute = ARemoveExecute
     end
   end
   object PopupMenu1: TPopupMenu
+    Images = Core.ImageList1
     left = 118
     top = 185