Changeset 5 for trunk/Forms/UMainForm.lfm

Timestamp:

Jun 3, 2010, 6:00:52 PM (14 years ago)

Author:

george

Message:

• Přidáno: Formulář pro vkládání položek.

File:

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

trunk/Forms/UMainForm.lfm

@@ -32 +32 @@
     object TreeView1: TTreeView
       Left = 8
-      Height = 413
+      Height = 421
       Top = 19
       Width = 176
@@ -110 +110 @@
     top = 120
     object AItemDelete: TAction
-      Category = 'Object'
+      Category = 'Item'
       Caption = 'Smazat'
     end
     object AItemAdd: TAction
-      Category = 'Object'
+      Category = 'Item'
       Caption = 'Přidat'
       OnExecute = AItemAddExecute
     end
     object AItemEdit: TAction
+      Category = 'Item'
+      Caption = 'Upravit'
+      OnExecute = AItemEditExecute
+    end
+    object AItemView: TAction
+      Category = 'Item'
+      Caption = 'Zobrazit'
+      OnExecute = AItemViewExecute
+    end
+    object AObjectGroupDelete: TAction
+      Category = 'ObjectGroup'
+      Caption = 'Odebrat'
+    end
+    object AObjectGroupAddGroup: TAction
+      Category = 'ObjectGroup'
+      Caption = 'Přidat skupinu'
+      OnExecute = AObjectGroupAddGroupExecute
+    end
+    object AObjectGroupAddObject: TAction
+      Category = 'ObjectGroup'
+      Caption = 'Přidat objekt'
+    end
+    object AObjectGroupEdit: TAction
+      Category = 'ObjectGroup'
+      Caption = 'Upravit'
+      OnExecute = AObjectGroupEditExecute
+    end
+    object AObjectDelete: TAction
+      Category = 'Object'
+      Caption = 'Odstranit'
+    end
+    object AObjectEdit: TAction
       Category = 'Object'
       Caption = 'Upravit'
-      OnExecute = AItemEditExecute
-    end
-    object AItemView: TAction
-      Category = 'Object'
-      Caption = 'Zobrazit'
-      OnExecute = AItemViewExecute
-    end
-    object AObjectGroupDelete: TAction
-      Category = 'ObjectGroup'
-      Caption = 'Odebrat'
-    end
-    object AObjectGroupAddGroup: TAction
-      Category = 'ObjectGroup'
-      Caption = 'Přidat skupinu'
-      OnExecute = AObjectGroupAddGroupExecute
-    end
-    object AObjectGroupAddObject: TAction
-      Category = 'ObjectGroup'
-      Caption = 'Přidat objekt'
-    end
-    object AObjectGroupEdit: TAction
-      Category = 'ObjectGroup'
-      Caption = 'Upravit'
+      OnExecute = AObjectEditExecute
     end
   end
@@ -170 +180 @@
     left = 72
     top = 136
+    object MenuItem9: TMenuItem
+      Action = AObjectDelete
+    end
+    object MenuItem10: TMenuItem
+      Action = AObjectEdit
+    end
   end
   object PopupMenuObjectGroup: TPopupMenu