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

Новые книги

Эта книга-шпаргалка для всех рекламщиков и маркетологов на все времена. Основанная на многолетних исследованиях и практическом опыте. Данная книга помогла бесчисленному количеству людей увеличить продажи товаров и услуг, а также оптимизировать рекламный бюджет. В книге вы найдете более 1000 практических советов и рекламных инструментов. После прочтения этой книги: – вы окончательно разберетесь в типах сайтов, их преимуществах и недостатках; – будете иметь огромный список шаблонов продающих заголовков; получите рекомендации касательно написания текстов; – определитесь, какие рекламные инструменты стоит применять в каждой нише. Если вы занимаетесь рекламой, но у вас не получается достичь желаемых результатов, не стоит расстраиваться. Прочтите книгу, она поможет вам понять возможно допущенные ошибки.

Интерактивные доски и их использование в учебном процессе

Раскрыты особенности работы с разными типами интерактивных досок (ACUVboard компании Promethean, SMART Board компании SMART Technologies Inc., Star Board компании Hitachi, InterWrite SchoolBoard компании GTCO CalcComp Inc., Mimio компании Virtual INK, QOMO компании QOMO HiteVision). Даны основные характеристики, описаны установка и настройка доски и ее программного обеспечения, возможности информационных ресурсов их программных комплексов. Особое внимание уделяется организационным и методическим аспектам обучения школьников и использованию интерактивных досок в разных предметных областях. Содержатся материалы по подготовке интегрированных уроков, организации проектной деятельности, созданию дидактических материалов.

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

Для студентов педагогических вузов и колледжей и педагогов начального, среднего и высшего образования всех направлений.

Вопрос и Ответ 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;

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

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