Changeset 36 for trunk/Forms
- Timestamp:
- Nov 25, 2021, 3:14:07 PM (3 years ago)
- Location:
- trunk/Forms
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormContacts.lfm
r34 r36 63 63 Images = Core.ImageList1 64 64 ParentFont = False 65 ParentShowHint = False 66 ShowHint = True 65 67 TabOrder = 1 66 68 object ToolButton1: TToolButton -
trunk/Forms/UFormContacts.pas
r34 r36 259 259 260 260 procedure TFormContacts.FormCreate(Sender: TObject); 261 var 262 I: Integer; 261 263 begin 262 264 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; 263 269 end; 264 270
Note:
See TracChangeset
for help on using the changeset viewer.