IPB

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

Язык:
Русский
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.
 
 К началу страницы 
Тэги:
 

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



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