Изменение шрифтов
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.
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий