Changeset 30 for trunk/Forms/UMainForm.lfm

Timestamp:

Nov 24, 2011, 8:35:25 AM (13 years ago)

Author:

chronos

Message:

• Added: TabControl in ItemEditForm for edit of OneToMany relations.

File:

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

trunk/Forms/UMainForm.lfm

@@ -6 +6 @@
   ActiveControl = Panel1
   Caption = 'ChronIS'
-  ClientHeight = 421
+  ClientHeight = 427
   ClientWidth = 640
   Icon.Data = {
@@ -153 +153 @@
   object Panel1: TPanel
     Left = 0
-    Height = 421
+    Height = 427
     Top = 0
     Width = 184
     Align = alLeft
     BevelOuter = bvNone
-    ClientHeight = 421
+    ClientHeight = 427
     ClientWidth = 184
     TabOrder = 0
     object Label1: TLabel
       Left = 7
-      Height = 18
+      Height = 14
       Top = 4
-      Width = 51
+      Width = 39
       Caption = 'Groups:'
       ParentColor = False
@@ -171 +171 @@
     object TreeView1: TTreeView
       Left = 4
-      Height = 397
+      Height = 403
       Top = 19
       Width = 180
       Anchors = [akTop, akLeft, akRight, akBottom]
+      DefaultItemHeight = 16
       Images = ImageListActions
       ReadOnly = True
@@ -184 +185 @@
   object Panel2: TPanel
     Left = 189
-    Height = 421
+    Height = 427
     Top = 0
     Width = 451
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 421
+    ClientHeight = 427
     ClientWidth = 451
     TabOrder = 1
     object Label2: TLabel
       Left = 2
-      Height = 18
+      Height = 14
       Top = 4
-      Width = 54
+      Width = 43
       Caption = 'Reports:'
       ParentColor = False
@@ -202 +203 @@
     object ListView1: TListView
       Left = 2
-      Height = 365
+      Height = 371
       Top = 19
       Width = 447
@@ -222 +223 @@
       Left = 3
       Height = 25
-      Top = 392
+      Top = 398
       Width = 75
       Action = AItemAdd
@@ -228 +229 @@
       TabOrder = 1
     end
-    object ButtonRemove: TButton
+    object ButtonDelete: TButton
       Left = 83
       Height = 25
-      Top = 392
+      Top = 398
       Width = 75
       Action = AItemDelete
@@ -237 +238 @@
       TabOrder = 2
     end
+    object ButtonView: TButton
+      Left = 163
+      Height = 25
+      Top = 398
+      Width = 75
+      Action = AItemView
+      Anchors = [akLeft, akBottom]
+      TabOrder = 3
+    end
+    object ButtonEdit: TButton
+      Left = 243
+      Height = 25
+      Top = 398
+      Width = 75
+      Action = AItemEdit
+      Anchors = [akLeft, akBottom]
+      TabOrder = 4
+    end
   end
   object Splitter1: TSplitter
     Left = 184
-    Height = 421
+    Height = 427
     Top = 0
     Width = 5
@@ -252 +271 @@
       Caption = 'Delete'
       OnExecute = AItemDeleteExecute
+      ShortCut = 16452
     end
     object AItemAdd: TAction
@@ -257 +277 @@
       Caption = 'Add'
       OnExecute = AItemAddExecute
+      ShortCut = 16449
     end
     object AItemEdit: TAction
@@ -262 +283 @@
       Caption = 'Edit'
       OnExecute = AItemEditExecute
+      ShortCut = 16453
     end
     object AItemView: TAction
@@ -267 +289 @@
       Caption = 'View'
       OnExecute = AItemViewExecute
+      ShortCut = 16470
     end
     object AObjectGroupDelete: TAction
@@ -298 +321 @@
       Caption = 'Exit'
       OnExecute = AExitExecute
+      ShortCut = 32883
     end
     object AToggleFullscreen: TAction