Вопрос и Ответ 32 < Вопросы и Ответы по Delphi < Delphi

Новые книги

Собственник и менеджер: строим эффективный бизнес

Сборник статей «Собственник и менеджер: строим эффективный бизнес», выходящий в рамках серии «Практика корпоративного управления», призван обобщить опыт российских предпринимателей, дать ответы на вопросы корпоративного управления, актуальные для российских предпринимателей.

На страницах издания владельцы и топ-менеджеры российских компаний представляют свой опыт, эксперты-практики отвечают на вопросы, важные для собственников и руководителей средних и малых компаний.

Первый раздел посвящен рассмотрению тенденций и перспектив развития корпоративного управления в России. Второй раздел включает статьи, рассматривающие вопросы организации эффективного взаимодействия собственника и наемного менеджера, роли владельца в управлении компанией, формирования системы владельческого контроля и внедрения практики корпоративного управления в компании. Третий раздел объединяет статьи, затрагивающие тему «от рождения бизнес-идеи к разработке стратегии и развитию бизнеса», а также бизнес-кейсы, описывающие период рождения и становления компаний. В четвертом разделе представлены истории развития российских компаний.

Издание ориентировано на владельцев и топ-менеджеров предпринимательских компаний.

Как стать первым на YouTube. Секреты взрывной раскрутки

Мы расскажем вам, как привлечь огромный поток клиентов с помощью простых видеороликов, снятых на камеру компьютера или мобильного телефона. Эта книга представляет собой практическое пошаговое руководство к тому, как создать видеоролик и вывести его в топы YouTube и Google.

Вопрос и Ответ 32

Версия для печати

Вопросы и Ответы

32. Как во время работы приложения загружать новый шрифт?

Большое количество одновременно установленных шрифтов замедляет работу Windows. Поэтому, при использовании специфических шрифтов, бывает полезно загружать их только на время работы приложения, а после работы удалять их из памяти. Для этого используются две функции:

function AddFontResource(Filename: PChar): Integer; и

function RemoveFontResource(Filename: PChar): Bool;

единственным параметром им необходимо передавать имя файла шрифта. Первая функция возвращает количество, действительно, загруженных шрифтов. Фирма Microsoft рекомендует после загрузки или удаления шрифта посылать всем открытым окнам сообщение, об изменении списка доступных шрифтов.

Пример:

Использование гипотетического шрифта "newfont.ttf" с именем "New Font Name".

............

{Загрузка нового шрифта}
procedure TForm1.FormCreate(Sender: TObject);
begin

IF AddFontResource('newfont.ttf') <> 0 THEN

SendMessage($FFFF, wm_FontChange, 0, 0);

end;

............

{Использование нового шрифта}
procedure TForm1.FormPaint(Sender: TObject);
begin

Canvas.Font.Name := 'New Font Name';
Canvas.TextOut(10, 10, 'Привет!');

end;

............

{Удаление нового шрифта из памяти}
procedure TForm1.FormClose(Sender: TObject);
begin

IF RemoveFontResource('newfont.ttf') THEN

SendMessage($FFFF, wm_FontChange, 0, 0);

end;

............

...предыдущая страница следующая...
оглавление