Changeset 13 for trunk/Forms/UFormMain.pas

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.pas (modified) (3 diffs)

trunk/Forms/UFormMain.pas

@@ -33 +33 @@
     MenuItemFile: TMenuItem;
     PopupMenuOpenRecent: TPopupMenu;
+    StatusBar1: TStatusBar;
     ToolBarOther: TToolBar;
     ToolBarFile: TToolBar;
@@ -60 +61 @@
 
 uses
-  UCore, UFormContacts;
+  UCore, UFormContacts, UContact;
 
 resourcestring
+  SCount = 'Count:';
   SModified = 'Modified';
 
@@ -120 +122 @@
   UpdateFormTitle;
   CoolBar1.Visible := MenuItemToolbar.Checked;
+  if Assigned(Core.DataFile) then
+    StatusBar1.Panels[0].Text := SCount + ' ' + IntToStr(TcontactsFile(Core.DataFile).Contacts.Count)
+    else StatusBar1.Panels[0].Text := '';
 end;