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