Понедельник, 29.04.2024, 05:35

Delphi

Главная | Регистрация | Вход | RSS
Приветствую Вас Гость

Поиск
Друзья сайта
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0

Сегодня были:
Самые активные пользователи
Меню сайта
Категории каталога
Звук и музыка [1]
Графика и игры [6]
Базы данных [1]
Стандартные компоненты [0]
3D графика [4]
Исходники [10]
DirectX и OpenGL [5]
Разное [1]
Интернет и сети [7]
Наш опрос
Вы программируете на Delphi
Результаты | Архив опросов
Всего ответов: 180
Главная » Статьи » Delphi » Исходники
Использовать незарегистрированные типы шрифтов
procedure TForm1.FormCreate(Sender: TObject);
begin
AddFontResource(PChar(ExtractFilePath(ParamStr(0) + 'YourFont.TTF')));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
RemoveFontResource(PChar(ExtractFilePath(ParamStr(0) + 'YourFont.TTF')));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
Категория: Исходники | Добавил: Ivin (23.03.2008)
Просмотров: 1669 | Рейтинг: 0.0/0 |