Changeset 7 for trunk/Forms/UFormBrowse.lfm

Timestamp:

May 17, 2015, 10:51:50 PM (10 years ago)

Author:

chronos

Message:

• Added: Commit form.

File:

• trunk/Forms/UFormBrowse.lfm (modified) (2 diffs)

trunk/Forms/UFormBrowse.lfm

@@ -14 +14 @@
     Width = 241
     Align = alLeft
-    DefaultItemHeight = 24
+    DefaultItemHeight = 28
     TabOrder = 0
   end
@@ -51 +51 @@
       end>
     OwnerData = True
+    PopupMenu = PopupMenu1
     ReadOnly = True
     RowSelect = True
+    SmallImages = Core.ImageList1
     TabOrder = 2
     ViewStyle = vsReport
     OnData = ListView1Data
+    OnDblClick = AOpenExecute
+  end
+  object PopupMenu1: TPopupMenu
+    Images = Core.ImageList1
+    left = 353
+    top = 131
+    object MenuItem1: TMenuItem
+      Action = AAdd
+    end
+    object MenuItem2: TMenuItem
+      Action = ADelete
+    end
+    object MenuItem3: TMenuItem
+      Action = ARename
+    end
+    object MenuItem4: TMenuItem
+      Action = AUpdate
+    end
+    object MenuItem5: TMenuItem
+      Action = AProperties
+    end
+    object MenuItem6: TMenuItem
+      Action = AOpen
+    end
+  end
+  object ActionList1: TActionList
+    Images = Core.ImageList1
+    left = 352
+    top = 208
+    object AAdd: TAction
+      Caption = 'Add'
+    end
+    object ADelete: TAction
+      Caption = 'Delete'
+      OnExecute = ADeleteExecute
+    end
+    object ARename: TAction
+      Caption = 'Rename'
+    end
+    object AUpdate: TAction
+      Caption = 'Update'
+    end
+    object AProperties: TAction
+      Caption = 'Properties'
+    end
+    object AOpen: TAction
+      Caption = 'Open'
+      OnExecute = AOpenExecute
+    end
   end
 end