Changeset 152 for trunk/Forms/UFormMain.pas

Timestamp:

Oct 16, 2017, 3:05:22 PM (7 years ago)

Author:

chronos

Message:

• Added: Status bar to show total number of acronyms and their meanings. Status bar can be hidden.

File:

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

trunk/Forms/UFormMain.pas

@@ -48 +48 @@
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
+    MenuItemStatusBar: TMenuItem;
     MenuItemParam: TMenuItem;
     MenuItem10: TMenuItem;
@@ -73 +74 @@
     MenuItem9: TMenuItem;
     OpenDialog1: TOpenDialog;
+    Panel1: TPanel;
     PanelParam: TPanel;
     PanelMain: TPanel;
@@ -78 +80 @@
     PopupMenuOpenRecent: TPopupMenu;
     SaveDialog1: TSaveDialog;
+    StatusBar1: TStatusBar;
     ToolBar1: TToolBar;
     ToolBar2: TToolBar;
@@ -133 +136 @@
     procedure ListViewSort1Filter(ListViewSort: TListViewSort);
     procedure MenuItemParamClick(Sender: TObject);
+    procedure MenuItemStatusBarClick(Sender: TObject);
     procedure MenuItemToolbarClick(Sender: TObject);
   private
@@ -535 +539 @@
 begin
   MenuItemParam.Checked := not MenuItemParam.Checked;
+  UpdateInterface;
+end;
+
+procedure TFormMain.MenuItemStatusBarClick(Sender: TObject);
+begin
+  MenuItemStatusBar.Checked := not MenuItemStatusBar.Checked;
   UpdateInterface;
 end;
@@ -660 +670 @@
   AHide.Enabled := FormMain.Visible;
   AManageAcronym.Enabled := Assigned(ListViewAcronyms.Selected);
+  StatusBar1.Visible := MenuItemStatusBar.Checked;
 
   Title := '';
@@ -670 +681 @@
   Application.Title := Title;
   Caption := Title;
+  if Assigned(Core.AcronymDb) then begin
+    StatusBar1.Panels[0].Text := 'Acronyms count: ' +
+      IntToStr(Core.AcronymDb.Acronyms.Count);
+    StatusBar1.Panels[1].Text := 'Meanings count: ' +
+      IntToStr(Core.AcronymDb.GetMeaningsCount);
+  end else begin
+    StatusBar1.Panels[0].Text := '';
+    StatusBar1.Panels[1].Text := '';
+  end;
 end;
 
@@ -693 +713 @@
     AFilterEnabledCategories.Checked := ReadBoolWithDefault('EnabledCategories', False);
     MenuItemToolbar.Checked := ReadBoolWithDefault('ToolBarVisible', True);
+    MenuItemStatusBar.Checked := ReadBoolWithDefault('StatuslBarVisible', True);
     MenuItemParam.Checked := ReadBoolWithDefault('FilterParamVisible', True);
   finally
@@ -721 +742 @@
     WriteBool('EnabledCategories', AFilterEnabledCategories.Checked);
     WriteBool('ToolBarVisible', MenuItemToolbar.Checked);
+    WriteBool('StatusBarVisible', MenuItemStatusBar.Checked);
     WriteBool('FilterParamVisible', MenuItemParam.Checked);
   finally