Changeset 31 for trunk/Forms/UMainForm.lfm

Timestamp:

Nov 24, 2011, 10:03:48 AM (13 years ago)

Author:

chronos

Message:

• Modified: Item list is separated from MainForm as ItemListForm.
• Modified: Now it is possible to open multiple forms for same operation as View, Edit, Add, List. Open forms are listed in main windows tab list.

File:

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

trunk/Forms/UMainForm.lfm

@@ -180 +180 @@
       TabOrder = 0
       OnChange = TreeView1Change
+      OnDblClick = TreeView1DblClick
       Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
     end
@@ -193 +194 @@
     ClientWidth = 451
     TabOrder = 1
-    object Label2: TLabel
-      Left = 2
-      Height = 14
-      Top = 4
-      Width = 43
-      Caption = 'Reports:'
-      ParentColor = False
-    end
-    object ListView1: TListView
-      Left = 2
-      Height = 371
-      Top = 19
-      Width = 447
-      Anchors = [akTop, akLeft, akRight, akBottom]
-      Columns = <>
-      OwnerData = True
-      PopupMenu = PopupMenuItem
-      ReadOnly = True
-      RowSelect = True
+    object PageControl1: TPageControl
+      Left = 0
+      Height = 427
+      Top = 0
+      Width = 451
+      Align = alClient
       TabOrder = 0
-      ViewStyle = vsReport
-      OnData = ListView1Data
-      OnDblClick = ListView1DblClick
-      OnKeyPress = ListView1KeyPress
-      OnResize = ListView1Resize
-      OnSelectItem = ListView1SelectItem
-    end
-    object ButtonAdd: TButton
-      Left = 3
-      Height = 25
-      Top = 398
-      Width = 75
-      Action = AItemAdd
-      Anchors = [akLeft, akBottom]
-      TabOrder = 1
-    end
-    object ButtonDelete: TButton
-      Left = 83
-      Height = 25
-      Top = 398
-      Width = 75
-      Action = AItemDelete
-      Anchors = [akLeft, akBottom]
-      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
@@ -267 +213 @@
     left = 360
     top = 120
-    object AItemDelete: TAction
-      Category = 'Item'
-      Caption = 'Delete'
-      OnExecute = AItemDeleteExecute
-      ShortCut = 16452
-    end
-    object AItemAdd: TAction
-      Category = 'Item'
-      Caption = 'Add'
-      OnExecute = AItemAddExecute
-      ShortCut = 16449
-    end
-    object AItemEdit: TAction
-      Category = 'Item'
-      Caption = 'Edit'
-      OnExecute = AItemEditExecute
-      ShortCut = 16453
-    end
-    object AItemView: TAction
-      Category = 'Item'
-      Caption = 'View'
-      OnExecute = AItemViewExecute
-      ShortCut = 16470
-    end
     object AObjectGroupDelete: TAction
       Category = 'ObjectGroup'
@@ -356 +278 @@
     top = 120
     object MenuItem1: TMenuItem
-      Action = AItemView
+      Caption = 'View'
       Default = True
-      OnClick = AItemViewExecute
+      ShortCut = 16470
     end
     object MenuItem4: TMenuItem
-      Action = AItemEdit
-      OnClick = AItemEditExecute
+      Caption = 'Edit'
+      ShortCut = 16453
     end
     object MenuItem3: TMenuItem
-      Action = AItemDelete
+      Caption = 'Delete'
+      ShortCut = 16452
     end
     object MenuItem2: TMenuItem
-      Action = AItemAdd
-      OnClick = AItemAddExecute
+      Caption = 'Add'
+      ShortCut = 16449
     end
   end