Изменение шрифтов
WinPrn использует назначенный по умолчанию шрифт, который возвращается драйвером устройства. Чтобы изменить шрифт, вызовите функцию SetPrnFont, передав ей описатель используемого шрифта. SetPrnFont возвращает текущий используемый шрифт. Возвращаемый шрифт можно использовать для будущего вызова SetPrnFont или для передачи его DeleteObject. Приведем пример программы, демонстри- рующей изменение шрифта:;
program Test;
uses WinTypes, WinProcs, WinCrt, WinPrn;
var Prn: Text; OldFont: HFont;
begin Writeln('Печать...'); AssingDefPrn(Prn); Rewrite(Prn);
Rewrite(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.
