Changeset 180 for trunk/Forms/UFormMain.pas

Timestamp:

Apr 5, 2018, 10:23:46 AM (7 years ago)

Author:

chronos

Message:

• Fixed: Remember visibility setting of StatusBar.
• Modified: Set toolbars hints in separate method.

File:

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

trunk/Forms/UFormMain.pas

@@ -148 +148 @@
     procedure FilterList(List: TListObject);
     procedure OpenRecentClick(Sender: TObject);
+    procedure SetToolbarHints;
   public
     procedure LoadConfig;
@@ -188 +189 @@
 { TFormMain }
 
-procedure TFormMain.FormCreate(Sender: TObject);
+procedure TFormMain.SetToolbarHints;
 var
   I: Integer;
-begin
-  for I := 0 to ToolBarFile.ButtonCount - 1 do
-    ToolBarFile.Buttons[I].Hint := ToolBarFile.Buttons[I].Caption;
-  for I := 0 to ToolBarManage.ButtonCount - 1 do
-    ToolBarManage.Buttons[I].Hint := ToolBarManage.Buttons[I].Caption;
-  for I := 0 to ToolBarOther.ButtonCount - 1 do
-    ToolBarOther.Buttons[I].Hint := ToolBarOther.Buttons[I].Caption;
-  for I := 0 to ToolBarFilter.ButtonCount - 1 do
-    ToolBarFilter.Buttons[I].Hint := ToolBarFilter.Buttons[I].Caption;
+  J: Integer;
+  Control: TControl;
+begin
+ for J := 0 to CoolBar1.ControlCount - 1 do begin
+    Control := CoolBar1.Controls[J];
+    if Control is TToolBar then begin
+      for I := 0 to TToolBar(Control).ButtonCount - 1 do begin
+        TToolBar(Control).Buttons[I].ShowHint := True;
+        TToolBar(Control).Buttons[I].Hint := TToolBar(Control).Buttons[I].Caption;
+      end;
+    end;
+  end;
+end;
+
+procedure TFormMain.FormCreate(Sender: TObject);
+begin
+  SetToolbarHints;
   PanelMain.ControlStyle := PanelMain.ControlStyle + [csOpaque];
   PanelParam.ControlStyle := PanelParam.ControlStyle + [csOpaque];
@@ -736 +745 @@
     AFilterEnabledCategories.Checked := ReadBoolWithDefault('EnabledCategories', False);
     MenuItemToolbar.Checked := ReadBoolWithDefault('ToolBarVisible', True);
-    MenuItemStatusBar.Checked := ReadBoolWithDefault('StatuslBarVisible', True);
+    MenuItemStatusBar.Checked := ReadBoolWithDefault('StatusBarVisible', True);
     MenuItemParam.Checked := ReadBoolWithDefault('FilterParamVisible', True);
     MenuItemShowItemsWithoutFilter.Checked :=