Changeset 29 for trunk/Forms/UMainForm.lfm

Timestamp:

Nov 23, 2011, 8:24:07 PM (13 years ago)

Author:

chronos

Message:

• Added: Preliminary support for modules.
• Modified: Database initialization moved to module System.

File:

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

trunk/Forms/UMainForm.lfm

@@ -6 +6 @@
   ActiveControl = Panel1
   Caption = 'ChronIS'
-  ClientHeight = 427
+  ClientHeight = 421
   ClientWidth = 640
   Icon.Data = {
@@ -153 +153 @@
   object Panel1: TPanel
     Left = 0
-    Height = 427
+    Height = 421
     Top = 0
     Width = 184
     Align = alLeft
     BevelOuter = bvNone
-    ClientHeight = 427
+    ClientHeight = 421
     ClientWidth = 184
     TabOrder = 0
     object Label1: TLabel
       Left = 7
-      Height = 14
+      Height = 18
       Top = 4
-      Width = 39
+      Width = 51
       Caption = 'Groups:'
       ParentColor = False
@@ -171 +171 @@
     object TreeView1: TTreeView
       Left = 4
-      Height = 403
+      Height = 397
       Top = 19
       Width = 180
       Anchors = [akTop, akLeft, akRight, akBottom]
-      DefaultItemHeight = 16
       Images = ImageListActions
       ReadOnly = True
@@ -185 +184 @@
   object Panel2: TPanel
     Left = 189
-    Height = 427
+    Height = 421
     Top = 0
     Width = 451
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 427
+    ClientHeight = 421
     ClientWidth = 451
     TabOrder = 1
     object Label2: TLabel
       Left = 2
-      Height = 14
+      Height = 18
       Top = 4
-      Width = 43
+      Width = 54
       Caption = 'Reports:'
       ParentColor = False
@@ -203 +202 @@
     object ListView1: TListView
       Left = 2
-      Height = 371
+      Height = 365
       Top = 19
       Width = 447
@@ -223 +222 @@
       Left = 3
       Height = 25
-      Top = 398
+      Top = 392
       Width = 75
       Action = AItemAdd
@@ -232 +231 @@
       Left = 83
       Height = 25
-      Top = 398
+      Top = 392
       Width = 75
       Action = AItemDelete
@@ -241 +240 @@
   object Splitter1: TSplitter
     Left = 184
-    Height = 427
+    Height = 421
     Top = 0
     Width = 5
@@ -314 +313 @@
       Hint = 'Settings'
       OnExecute = ASettingsExecute
-    end
-    object AInitSystemValues: TAction
-      Caption = 'Init system values'
-      OnExecute = AInitSystemValuesExecute
     end
     object AImportStructure: TAction
@@ -482 +477 @@
     object MenuItem18: TMenuItem
       Caption = 'Admin'
-      object MenuItem19: TMenuItem
-        Action = AInitSystemValues
-      end
       object MenuItem20: TMenuItem
         Action = AImportStructure