Changeset 34 for trunk/Forms/UFormMain.pas

Timestamp:

Nov 25, 2021, 1:51:20 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Memory allocation during files merge.
• Fixed: Select all context menu action was not selecting all items.
• Modified: Statusbar moved into contacts form and it is now showin total, filtered and selected number of items.

File:

• trunk/Forms/UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.pas

@@ -37 +37 @@
     MenuItemFile: TMenuItem;
     PopupMenuOpenRecent: TPopupMenu;
-    StatusBar1: TStatusBar;
     ToolBarOther: TToolBar;
     ToolBarFile: TToolBar;
@@ -71 +70 @@
 
 resourcestring
-  SCount = 'Count:';
   SModified = 'Modified';
 
@@ -153 +151 @@
   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;