Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 100 стр.

    begin
      SetLineStyle(LineStyle, 0, 1);
      Case LineStyle of
        0: Style:='Сплошная';
        1: Style:='Точечная';
        2: Style:='Штрихпунктирная';
        3: Style:='Пунктирная'
      end;
      Line(120, 150+LineStyle*50, 430, 150+LineStyle*50);
      OutTextXY(450, 145+LineStyle*50, Style);
    end;
  Key:=ReadKey; ClearViewPort; {очистка окна}
  {-----------------------------------------------------------}
  OutTextXY(180, 80, 'Меняем толщину рисования линий');
  SetLineStyle(0, 0, 1); {толщина 1 пиксел }
  Line(140, 200, 430, 200); OutTextXY(450, 195, 'Нормальная');
  SetLineStyle(0, 0, 3); {толщина 3 пиксела}
  Line(140, 250, 430, 250); OutTextXY(450, 245, 'Тройная');
  ReadLn; CloseGraph; {закрытие графического режима}
END.
  Пример 8.3. Эта программа демонстрирует возможности изображения
  символов в графическом режиме (требует наличия в текущем каталоге
                        файлов шрифтов *.chr).




  Внимание: будет работать только если Turbo Pascal установлен в каталог
   C:\TP и каталог C:\TP\BGI содержит необходимый файл egavga.bgi.
Program Symbols;
  Uses Graph, Crt; {подключение к программе библиотек Crt и Graph}
  Var
    Key              : Char;
    Font             : String; {названия шрифтов }
    Size, MyFont     : Word;
    GrDriver, GrMode : Integer; {тип и режим работы графического драйвера}
BEGIN
  GrDriver := Detect; {автоопределение типа графического драйвера}
  InitGraph(GrDriver, GrMode, 'C:\TP\BGI'); {установка графического режима }
  If GraphResult <> GrOk then Halt;
  {-----------------------------------------------------------}
  SetTextStyle(DefaultFont, HorizDir, 2);
  OutTextXY(140, 80, 'Меняем размер символов');
  OutTextXY(220, 100, 'и цвет фона');
  For Size := 0 to 13 do {Size - цвет фона и размер символов}
    begin SetBkColor(Size); {изменение цвета фона }
      Rectangle(135, 425, 470, 450); {рисование рамки }
      SetTextStyle(DefaultFont, HorizDir, 1);
      OutTextXY(150, 435, 'Для продолжения нажмите любую клавишу !');
      SetTextStyle(DefaultFont, HorizDir, Size);