Changeset 25 for trunk/Forms/UMainForm.lfm

Timestamp:

Nov 9, 2011, 1:58:00 PM (13 years ago)

Author:

george

Message:

• Modified: Login form now use connection profile form for selecting connection parameters.
• Added: About application dialog.

File:

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

trunk/Forms/UMainForm.lfm

@@ -6 +6 @@
   ActiveControl = Panel1
   Caption = 'ChronIS'
-  ClientHeight = 422
+  ClientHeight = 427
   ClientWidth = 640
   Menu = MainMenu1
@@ -16 +16 @@
   object Panel1: TPanel
     Left = 0
-    Height = 422
+    Height = 427
     Top = 0
     Width = 184
     Align = alLeft
     BevelOuter = bvNone
-    ClientHeight = 422
+    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
@@ -34 +34 @@
     object TreeView1: TTreeView
       Left = 4
-      Height = 398
+      Height = 403
       Top = 19
       Width = 180
       Anchors = [akTop, akLeft, akRight, akBottom]
+      DefaultItemHeight = 16
       Images = ImageListActions
       ReadOnly = True
@@ -47 +48 @@
   object Panel2: TPanel
     Left = 189
-    Height = 422
+    Height = 427
     Top = 0
     Width = 451
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 422
+    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
@@ -65 +66 @@
     object ListView1: TListView
       Left = 2
-      Height = 366
+      Height = 371
       Top = 19
       Width = 447
@@ -85 +86 @@
       Left = 3
       Height = 25
-      Top = 393
+      Top = 398
       Width = 75
       Action = AItemAdd
@@ -94 +95 @@
       Left = 83
       Height = 25
-      Top = 393
+      Top = 398
       Width = 75
       Action = AItemDelete
@@ -103 +104 @@
   object Splitter1: TSplitter
     Left = 184
-    Height = 422
+    Height = 427
     Top = 0
     Width = 5
@@ -184 +185 @@
       Caption = 'Import structure...'
       OnExecute = AImportStructureExecute
+    end
+    object AAbout: TAction
+      Caption = 'About'
+      OnExecute = AAboutExecute
     end
   end
@@ -316 +321 @@
       object MenuItem17: TMenuItem
         Action = AConnect
+        OnClick = MenuItem17Click
       end
       object MenuItem14: TMenuItem
@@ -341 +347 @@
     object MenuItem12: TMenuItem
       Caption = 'Help'
+      object MenuItem21: TMenuItem
+        Action = AAbout
+      end
     end
   end