rgbgifnt.pas

{RgBGIfnt.PAS}
 
{ Пример программы для 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, 'C:\BP\BGI'); { Путь к 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.