Changeset 13 for trunk/Forms/UFormMain.lfm

Timestamp:

Feb 4, 2018, 12:47:01 PM (6 years ago)

Author:

chronos

Message:

• Added: Status bar with number of contacts.

File:

• trunk/Forms/UFormMain.lfm (modified) (7 diffs)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 785
   Caption = 'FormMain'
-  ClientHeight = 506
+  ClientHeight = 497
   ClientWidth = 785
-  DesignTimePPI = 120
   Menu = MainMenu1
   OnClose = FormClose
@@ -13 +12 @@
   OnCreate = FormCreate
   OnShow = FormShow
-  LCLVersion = '1.8.0.6'
+  LCLVersion = '1.8.0.4'
   object CoolBar1: TCoolBar
     Left = 0
@@ -36 +35 @@
       AnchorSideTop.Control = CoolBar1
       Left = 24
-      Height = 22
+      Height = 28
       Top = 5
-      Width = 105
+      Width = 132
       Align = alNone
       AutoSize = True
@@ -56 +55 @@
       end
       object ToolButton2: TToolButton
-        Left = 24
+        Left = 30
         Top = 0
         Action = Core.AFileOpen
@@ -63 +62 @@
       end
       object ToolButton3: TToolButton
-        Left = 59
+        Left = 74
         Top = 0
         Action = Core.AFileSave
       end
       object ToolButton4: TToolButton
-        Left = 82
+        Left = 103
         Top = 0
         Action = Core.AFileClose
@@ -77 +76 @@
       AnchorSideTop.Control = CoolBar1
       Left = 188
-      Height = 22
+      Height = 28
       Top = 5
-      Width = 24
+      Width = 30
       Align = alNone
       AutoSize = True
@@ -97 +96 @@
       end
     end
+  end
+  object StatusBar1: TStatusBar
+    Left = 0
+    Height = 30
+    Top = 467
+    Width = 785
+    Panels = <    
+      item
+        Width = 200
+      end>
+    SimplePanel = False
   end
   object MainMenu1: TMainMenu