Подписаться на RSS рассылку
Главная » Статьи по Delphi » Шрифты » Использовать не установленный в системе шрифт

Использовать не установленный в системе шрифт

Автор: Борисов Сергей

procedure TForm1.FormCreate(Sender: TObject);
begin
  if AddFontResource('ogilvie_c.ttf')<>0 Then
    SendMessage($FFFF, wm_FontChange, 0, 0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if RemoveFontResource('ogilvie_c.ttf') Then
    SendMessage($FFFF, wm_FontChange, 0, 0);
end;

Просмотров: 4406

Обсудить на форуме

0   Спам
(31.08.2010)
1. Programer_S
А воспользоватся им как ? (CreateFont По какому имени)


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта