Перейти к содержанию
Fire Monkey от А до Я

LookedSoup

Пользователи
  • Постов

    1
  • Зарегистрирован

  • Посещение

Посетители профиля

1 199 просмотров профиля

Достижения LookedSoup

  1. Не могу понять как установить свой шрифт для TLabel. Делаю так. Грузим шрифты ... Path := ExtractFilePath(ParamStr(0)); if LoadUnload then begin AddFontResource(PChar(Path+'sys\font\CASTELAR.TTF')); SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0); AddFontResource(PChar(Path+'sys\font\BOOKOS.TTF')); SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0); end ... Пытаемся установить шрифт для TLabel ... ChildToolBar := tmpToolBar.Children.Items[iChildren]; if (ChildToolBar.Name = 'HTimeNow') OR (ChildToolBar.Name = 'MTimeNow') OR (ChildToolBar.Name = 'TicTimeNow') then begin tmpLabel := ChildToolBar as TLabel; tmpLabel.StyledSettings := tmpLabel.StyledSettings-[TStyledSetting.Family]; tmpLabel.TextSettings.Font.Family := 'Castellar'; end; ... В общем не выходит. Разъясните что делаю не так. Спасибо.
×
×
  • Создать...