Changeset 10 for trunk/Forms/UMainForm.lfm

Timestamp:

Jun 9, 2011, 9:33:21 AM (13 years ago)

Author:

george

Message:

• Added: Application meta information.
• Added: Empty settings form.
• Modified: Server connect configuration is now stored in system registry.

Location:

trunk

Files:

• . (modified) (1 prop)
• Forms/UMainForm.lfm (modified) (11 diffs)

trunk

@@ -3 +3 @@
 chronis
 heaptrclog.trc
+chronis.exe

@@ -3 +3 @@
 chronis
 heaptrclog.trc
+chronis.exe

trunk/Forms/UMainForm.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 255
-  Height = 445
-  Top = 75
-  Width = 649
+  Left = 268
+  Height = 451
+  Top = 156
+  Width = 646
   ActiveControl = Panel1
   Caption = 'ChronIS'
-  ClientHeight = 418
-  ClientWidth = 649
+  ClientHeight = 432
+  ClientWidth = 646
   Menu = MainMenu1
   OnClose = FormClose
@@ -13 +13 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '0.9.29'
+  LCLVersion = '0.9.31'
   object Panel1: TPanel
     Left = 0
-    Height = 418
+    Height = 432
     Top = 0
     Width = 184
     Align = alLeft
     BevelOuter = bvNone
-    ClientHeight = 418
+    ClientHeight = 432
     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 = 394
+      Height = 408
       Top = 19
       Width = 180
       Anchors = [akTop, akLeft, akRight, akBottom]
-      DefaultItemHeight = 19
+      DefaultItemHeight = 16
       Images = ImageListActions
       ReadOnly = True
@@ -48 +48 @@
   object Panel2: TPanel
     Left = 189
-    Height = 418
+    Height = 432
     Top = 0
-    Width = 460
+    Width = 457
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 418
-    ClientWidth = 460
+    ClientHeight = 432
+    ClientWidth = 457
     TabOrder = 1
     object Label2: TLabel
       Left = 2
-      Height = 18
+      Height = 14
       Top = 4
-      Width = 54
+      Width = 43
       Caption = 'Reports:'
       ParentColor = False
@@ -66 +66 @@
     object ListView1: TListView
       Left = 2
-      Height = 362
+      Height = 376
       Top = 19
-      Width = 456
+      Width = 453
       Anchors = [akTop, akLeft, akRight, akBottom]
       Columns = <>
@@ -86 +86 @@
       Left = 3
       Height = 25
-      Top = 389
+      Top = 403
       Width = 75
       Action = AItemAdd
@@ -95 +95 @@
       Left = 83
       Height = 25
-      Top = 389
+      Top = 403
       Width = 75
       Action = AItemDelete
@@ -104 +104 @@
   object Splitter1: TSplitter
     Left = 184
-    Height = 418
+    Height = 432
     Top = 0
     Width = 5
@@ -166 +166 @@
       OnExecute = AToggleFullscreenExecute
       ShortCut = 122
+    end
+    object AConnect: TAction
+      Caption = 'Connect'
+      Hint = 'Connect'
+      OnExecute = AConnectExecute
+    end
+    object ASettings: TAction
+      Caption = 'Settings'
+      Hint = 'Settings'
+      OnExecute = ASettingsExecute
     end
   end
@@ -296 +306 @@
     object MenuItem13: TMenuItem
       Caption = 'Server'
+      object MenuItem17: TMenuItem
+        Action = AConnect
+      end
       object MenuItem14: TMenuItem
         Action = AExit
@@ -305 +318 @@
         Action = AToggleFullscreen
       end
+      object MenuItem16: TMenuItem
+        Action = ASettings
+      end
     end
     object MenuItem12: TMenuItem

@@ -3 +3 @@
 chronis
 heaptrclog.trc
+chronis.exe