IPB

> StPrnFnt.PAS
Чат
Форум
Загрузка...
 

Language:
Русский
English

   {StPrnFnt.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the SetPrnFonts function}

  program Test;
  uses WinTypes, WinProcs, WinCrt, WinPrn;
   Prn: Text;
   OldFont: HFont;
 begin
   Writeln('Printing...');
   AssignDefPrn(Prn);
   Rewrite(Prn);
   Writeln(Prn, 'Some text');
   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, 'Some text in a new font');
   DeleteObject(SetPrnFont(Prn, OldFont));
   Writeln(Prn, 'Back to the old font');
   Close(Prn);
   Writeln('Done');
 end.

 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"