Версия для печати темы

Автор: -=АнЮтА=- 30.10.2006 15:56

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

Автор: volvo 30.10.2006 16:21

А 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 - см. здесь: http://forum.pascal.net.ru/index.php?s=&showtopic=3895&view=findpost&p=34541 (тебе нужна {$L ...})