Не могу понять как установить свой шрифт для 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;
...
Вопрос
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; ...В общем не выходит.
Разъясните что делаю не так.
Спасибо.
Ссылка на комментарий
0 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.