Changeset 36 for trunk/Forms/UFormContacts.pas

Timestamp:

Nov 25, 2021, 3:14:07 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Hints were not shown in contacts toolbar.

File:

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

trunk/Forms/UFormContacts.pas

@@ -259 +259 @@
 
 procedure TFormContacts.FormCreate(Sender: TObject);
+var
+  I: Integer;
 begin
   FContacts := nil;
+  for I := 0 to ToolBar1.ButtonCount - 1 do begin
+    ToolBar1.Buttons[I].ShowHint := True;
+    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
+  end;
 end;