SetPrnFont функция (Модуль WinPrn)

Язык:
Русский
English

 SetPrnFont функция  (Модуль WinPrn)


Начинает печать, используя выбранный шрифт.

Объявление

 Function SetPrnFont(Var F : Text; Font : HFont) : HFont;

Режим

Windows

Замечания

Функция SetPrnFont начинает печать заданного файла используя данный шрифт. При вызове функции возвращается дескриптор текущего шрифта. Если возвращенный дескриптор шрифта не будет использоваться программой в дальнейшем, нужно освободить память, занятую этим шрифтом, вызывая DeleteObject. Дескриптор шрифта может быть создан с использованием функции API Windows CreateFont или CreateFontIndirect.

Смотри также

Язык:
Русский
English


 { Пример программы для функции SetPrnFont }

program Test;

uses WinTypes, WinProcs, WinCrt, WinPrn;

var
  Prn     : Text;
  OldFont : HFont;

begin
 WriteLn('Печать...');
  AssignDefPrn(Prn);
 ReWrite(Prn);
 WriteLn(Prn, 'Это просто текст');
  OldFont := SetPrnFont(Prn, CreateFont(100, 0, 0, 0, 0, 0, 0, 0, 1,
    Out_Default_Precis, Clip_Default_Precis,
    Default_Quality, ff_Roman, Nil);
 WriteLn(Prn, 'Это тоже текст, но другим шрифтом');
  DeleteObject(SetPrnFont(Prn, OldFont));
 WriteLn(Prn, 'Назад к старому шрифту');
 Close(Prn);
 WriteLn('Закончена!');
end.
Тэги: SetPrnFont
| G+
Код для вставки: :: :: :: ::
Поделиться: // //