Changeset 6 for trunk/Forms/UMainForm.lfm

Timestamp:

Dec 25, 2010, 9:31:21 PM (14 years ago)

Author:

george

Message:

• Activated generation of language files.
• Added: Full screen mode.

File:

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

trunk/Forms/UMainForm.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 317
+  Left = 332
   Height = 445
-  Top = 97
+  Top = 106
   Width = 649
+  ActiveControl = Panel1
   Caption = 'ChronIS'
-  ClientHeight = 445
+  ClientHeight = 422
   ClientWidth = 649
+  Menu = MainMenu1
   OnClose = FormClose
   OnCreate = FormCreate
@@ -14 +16 @@
   object Panel1: TPanel
     Left = 0
-    Height = 445
+    Height = 422
     Top = 0
     Width = 184
     Align = alLeft
     BevelOuter = bvNone
-    ClientHeight = 445
+    ClientHeight = 422
     ClientWidth = 184
     TabOrder = 0
@@ -26 +28 @@
       Height = 14
       Top = 4
-      Width = 47
+      Width = 46
       Caption = 'Skupiny:'
       ParentColor = False
@@ -32 +34 @@
     object TreeView1: TTreeView
       Left = 8
-      Height = 421
+      Height = 398
       Top = 19
       Width = 176
@@ -46 +48 @@
   object Panel2: TPanel
     Left = 189
-    Height = 445
+    Height = 422
     Top = 0
     Width = 460
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 445
+    ClientHeight = 422
     ClientWidth = 460
     TabOrder = 1
@@ -64 +66 @@
     object ListView1: TListView
       Left = 3
-      Height = 389
+      Height = 366
       Top = 19
       Width = 450
       Anchors = [akTop, akLeft, akRight, akBottom]
       Columns = <>
-      ItemIndex = -1
       PopupMenu = PopupMenuItem
       ReadOnly = True
@@ -83 +84 @@
       Left = 3
       Height = 25
-      Top = 416
+      Top = 393
       Width = 75
       Action = AItemAdd
@@ -92 +93 @@
       Left = 83
       Height = 25
-      Top = 416
+      Top = 393
       Width = 75
       Action = AItemDelete
@@ -101 +102 @@
   object Splitter1: TSplitter
     Left = 184
-    Height = 445
+    Height = 422
     Top = 0
     Width = 5
@@ -154 +155 @@
       Caption = 'Upravit'
       OnExecute = AObjectEditExecute
+    end
+    object AExit: TAction
+      Caption = 'Exit'
+      OnExecute = AExitExecute
+    end
+    object AToggleFullscreen: TAction
+      Caption = 'Fullscreen mode F11'
+      OnExecute = AToggleFullscreenExecute
+      ShortCut = 122
     end
   end
@@ -174 +184 @@
     object MenuItem2: TMenuItem
       Action = AItemAdd
+      OnClick = AItemAddExecute
     end
   end
@@ -185 +196 @@
     object MenuItem10: TMenuItem
       Action = AObjectEdit
+      OnClick = AObjectEditExecute
     end
   end
@@ -193 +205 @@
     object MenuItem5: TMenuItem
       Action = AObjectGroupAddGroup
+      OnClick = AObjectGroupAddGroupExecute
     end
     object MenuItem7: TMenuItem
@@ -199 +212 @@
     object MenuItem8: TMenuItem
       Action = AObjectGroupEdit
+      OnClick = AObjectGroupEditExecute
     end
     object MenuItem6: TMenuItem
@@ -275 +289 @@
     }
   end
+  object MainMenu1: TMainMenu
+    left = 456
+    top = 120
+    object MenuItem13: TMenuItem
+      Caption = 'Server'
+      object MenuItem14: TMenuItem
+        Action = AExit
+      end
+    end
+    object MenuItem11: TMenuItem
+      Caption = 'View'
+      object MenuItem15: TMenuItem
+        Action = AToggleFullscreen
+      end
+    end
+    object MenuItem12: TMenuItem
+      Caption = 'Help'
+    end
+  end
 end