Changeset 140 for trunk/Forms

Timestamp:

Dec 2, 2016, 2:08:48 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Show hints also for other toolbar buttons then just for ToolBar1.

File:

• trunk/Forms/UFormMain.pas (modified) (1 diff)

trunk/Forms/UFormMain.pas

@@ -177 +177 @@
   for I := 0 to ToolBar1.ButtonCount - 1 do
     ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
+  for I := 0 to ToolBar2.ButtonCount - 1 do
+    ToolBar2.Buttons[I].Hint := ToolBar2.Buttons[I].Caption;
+  for I := 0 to ToolBar3.ButtonCount - 1 do
+    ToolBar3.Buttons[I].Hint := ToolBar3.Buttons[I].Caption;
+  for I := 0 to ToolBar4.ButtonCount - 1 do
+    ToolBar4.Buttons[I].Hint := ToolBar4.Buttons[I].Caption;
 end;