Changeset 36

Timestamp:

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

Author:

chronos

Message:

• Fixed: Hints were not shown in contacts toolbar.

Location:

trunk/Forms

Files:

• UFormContacts.lfm (modified) (1 diff)
• UFormContacts.pas (modified) (1 diff)

trunk/Forms/UFormContacts.lfm

@@ -63 +63 @@
     Images = Core.ImageList1
     ParentFont = False
+    ParentShowHint = False
+    ShowHint = True
     TabOrder = 1
     object ToolButton1: TToolButton

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;