Changeset 36 for trunk/Forms


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormContacts.lfm

    r34 r36  
    6363    Images = Core.ImageList1
    6464    ParentFont = False
     65    ParentShowHint = False
     66    ShowHint = True
    6567    TabOrder = 1
    6668    object ToolButton1: TToolButton
  • trunk/Forms/UFormContacts.pas

    r34 r36  
    259259
    260260procedure TFormContacts.FormCreate(Sender: TObject);
     261var
     262  I: Integer;
    261263begin
    262264  FContacts := nil;
     265  for I := 0 to ToolBar1.ButtonCount - 1 do begin
     266    ToolBar1.Buttons[I].ShowHint := True;
     267    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
     268  end;
    263269end;
    264270
Note: See TracChangeset for help on using the changeset viewer.