Правила форума
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.
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.
::
::
::
