IPB

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

Язык:
Русский
English


 { Пример программы для RegisterBGIFont }

uses Graph;
var
  Driver, Mode : Integer;
  FontF        : File;
  FontP        : Pointer;
begin
 { Открываем файл шрифта, регистрируем }
  Assign(FontF, 'TRIP.CHR');
 Reset(FontF, 1);
 GetMem(FontP, FileSize(FontF));
 BlockRead(FontF, FontP^, FileSize(FontF));
 if RegisterBGIFont(FontP) < 0 then
 begin
   WriteLn('Ошибка регистрации шрифта: ', GraphErrorMsg(GraphResult));
   Halt(1);
 end;
 { Инициализируем графику }
  Driver := Detect;
  InitGraph(Driver, Mode, 'X:\BP'); { Путь к BGI драйверам }
 if GraphResult < 0 then
   Halt(1);
 ReadLn;
 { Выбираем установленый шрифт }
  SetTextStyle(TriplexFont, HorizDir, 4);
  OutText('Triplex loaded by user program');
  MoveTo(0, TextHeight('a'));
 ReadLn;
 { Выбираем шрифт, загружаемый с диска }
  SetTextStyle(SansSerifFont, HorizDir, 4);
  OutText('Your disk should be spinning..');
  MoveTo(0, GetY + TextHeight('a'));
 ReadLn;
 { Перевыбираем фонт, уже находящийся в памяти }
  SetTextStyle(TriplexFont, HorizDir, 4);
  OutText('Back To Triplex');
 ReadLn;
  CloseGraph;
end.
 
 К началу страницы 
Тэги:
 

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



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