Разное
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - База Знаний: Установить в программу свои шрифты
procedure TForm1.FormCreate(Sender: TObject);
begin
//объявляем свой шрифт
AddFontResource('IZHITSA.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
//применяем его
Button1.font.name := 'IZHITSA';
//Button1.font.size := 10;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
//ликвидируем
RemoveFontResource('IZHITSA.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;