Changeset 16 for trunk/Forms/UFormMain.pas

Timestamp:

Feb 28, 2018, 9:44:51 AM (7 years ago)

Author:

chronos

Message:

• Added: New Tools action Find duplicates.

File:

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

trunk/Forms/UFormMain.pas

@@ -18 +18 @@
     MenuItem1: TMenuItem;
     MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
     MenuItemToolbar: TMenuItem;
     MenuItemView: TMenuItem;
@@ -43 +44 @@
     ToolButton4: TToolButton;
     ToolButton5: TToolButton;
+    ToolButton6: TToolButton;
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
@@ -49 +51 @@
     procedure MenuItemToolbarClick(Sender: TObject);
   private
+    procedure SetToolbarHints;
     procedure UpdateFormTitle;
   public
@@ -83 +86 @@
 
 procedure TFormMain.FormCreate(Sender: TObject);
-var
-  I: Integer;
 begin
-  for I := 0 to ToolBarFile.ButtonCount - 1 do
-    ToolBarFile.Buttons[I].Hint := ToolBarFile.Buttons[I].Caption;
 end;
 
 procedure TFormMain.FormShow(Sender: TObject);
 begin
+  SetToolbarHints;
   Core.Initialize;
   Core.ThemeManager1.UseTheme(Self);
@@ -103 +103 @@
 begin
   UpdateInterface;
+end;
+
+procedure TFormMain.SetToolbarHints;
+var
+  I: Integer;
+  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;