Changeset 34 for trunk/Forms/UFormContacts.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/UFormContacts.pas (modified) (6 diffs)

trunk/Forms/UFormContacts.pas

@@ -27 +27 @@
     MenuItem4: TMenuItem;
     PopupMenuContact: TPopupMenu;
+    StatusBar1: TStatusBar;
     ToolBar1: TToolBar;
     ToolButton1: TToolButton;
@@ -70 +71 @@
   SRemoveContacts = 'Remove contacts';
   SRemoveContactsQuery = 'Do you want to remove selected contacts?';
+  STotal = 'Total';
+  SFiltered = 'Filtered';
+  SSelected = 'Selected';
 
 { TFormContacts }
@@ -83 +87 @@
     Item.SubItems.Add(Fields[cfTelCell]);
     Item.SubItems.Add(Fields[cfTelHome]);
-    Item.Data := Contacts[Item.Index];
+    Item.Data := ListViewSort1.List[Item.Index];
   end;
 end;
@@ -101 +105 @@
 begin
   ReloadList;
+  UpdateInterface;
 end;
 
@@ -244 +249 @@
 begin
   ListView1.SelectAll;
+  UpdateInterface;
 end;
 
@@ -263 +269 @@
 
 procedure TFormContacts.UpdateInterface;
+var
+  Text: string;
+  SelectedCount: Integer;
 begin
   AAdd.Enabled := Assigned(Contacts);
   AModify.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
   ARemove.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
+
+  Text := '';
+  if Assigned(Contacts) then begin
+    Text := STotal + ': ' + IntToStr(Contacts.Count);
+    if ListView1.Items.Count < Contacts.Count then
+      Text := Text + ', ' + SFiltered + ': ' + IntToStr(ListView1.Items.Count);
+    SelectedCount := ListView1.SelCount;
+    if SelectedCount > 0 then
+      Text := Text + ', ' + SSelected + ': ' + IntToStr(SelectedCount);
+  end;
+  StatusBar1.Panels[0].Text := Text;
 end;