Работа с текстом, графическом режиме Опции

[-=АнЮтА=-]

Подскажите, как уменьшить размер текста при выводе его на экран в гафическом режиме. Размер SmallFont - все равно очень большой. Нашла UserCharSize, но не знаю как применить(.
Заранее спасибо)

[volvo]

Размер SmallFont

А SmallFont - это не размер... Это тип шрифта... Ты должна установить текущим шрифт из LITT.CHR, тогда получишь уменьшение размера... Вот так примерно:

{$L LITT.OBJ}
Procedure LittFontProc; External;
...
    { Регистрируешь шрифт в программе перед InitGraph: }
    If RegisterBGIFont( @LittFontProc ) < 0 Then
      Begin
        WriteLn( 'Error registering font : ',
                 GraphErrorMsg(GraphResult) );
        Halt( 100 )
      End;

    grDriver := VGA; grMode := VGAHi;
    InitGraph( grDriver, grMode, '' );

    ...

   { Перед выводом текста: }
    SetTextStyle( SmallFont, HorizDir, 4 ); { <--- Вот тут уже можно играться с размером... }
    OutTextXY(...);

Как преобразовать CHR файл в OBJ - см. здесь: Директивы компилятора (тебе нужна {$L ...})