Перейти к содержанию
  • Регистрация
  • 0
Авторизация  
LookedSoup

Как установить свой шрифт

Вопрос

Не могу понять как установить свой шрифт для 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;
...

В общем не выходит.

Разъясните что делаю не так.

Спасибо.

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Рекомендуемые сообщения

Ответы на этот вопрос пока отсутствуют

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

Авторизация  

  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...