Changeset 27 for trunk/Forms/UFormMain.pas

Timestamp:

Sep 10, 2022, 8:13:14 PM (20 months ago)

Author:

chronos

Message:

• Fixed: Updated Czech translation.
• Fixed: Main tool bar hints.

File:

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

trunk/Forms/UFormMain.pas

@@ -31 +31 @@
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormShow(Sender: TObject);
+  private
+    procedure SetToolbarHints;
   public
     procedure DockInit;
@@ -65 +67 @@
 begin
   Core.PersistentForm1.Load(Self, True);
+  SetToolbarHints;
   DockInit;
 end;
@@ -85 +88 @@
 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;
+
 end.