Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 46 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

46
46
Size = от 1 до 32 для стандартного (0) шрифта и от 1 до 32 - для всех
остальных. Если значение Size превышает максимально возможное, то Size
устанавливается равным максимуму.
Следующая программа демонстрирует вывод текста всеми шрифтами со
сменой величины size от 1 до 5.
Uses crt,graph;
var s,ss:string; i,j,size:word;
{ Сюда поместить процедуру инициализации графического режима}
begin Init_graph_Mode;
{ Вывод текста в горизонтальном направлении}
size:=0;
for j:=1 to 5 do begin
size:=size+1; { Смена размера шрифта}
str(size,ss);
For i:=0 to 10 do
Begin str(i,s);
settextstyle(i,0,size); { Установка стиля шрифта}
outtextxy(10,10+i*35,'This is Font:' + s +' size='+ss );
end; readkey; cleardevice;
end;
{ Вывод текста в вертикальном направлении}
size:=0;
for j:=1 to 5 do begin
size:=size+1;
str(size,ss);
For i:=0 to 10 do
begin
str(i,s);
settextstyle(i,1,size);
outtextxy(10+i*45,10,'This is Font:' + s + 'size='+ss );
end; readkey; cleardevice;
end;
closegraph;
end.
Кроме описанных основных процедур для вывода текста разработаны еще
несколько вспомогательных процедур и функций. Желающие могут ознакомиться
с ними в [1, 2].
2.2.11 Окна и страницы в графическом режиме
В графическом режиме, подобно текстовому
, на экране можно открывать
(устанавливать) прямоугольные окна. Для этого используется процедура
SetViewPort(X1, Y1, X2, Y2, Clip);
X1, Y1, X2, Y2 - координаты верхнего левого и правого нижнего углов;
переменная Clip может принимать одно из двух значений: ClipOn = True или 
                                                                          46




       Size = от 1 до 32 для стандартного (0) шрифта и от 1 до 32 - для всех
остальных. Если значение Size превышает максимально возможное, то Size
устанавливается равным максимуму.
       Следующая программа демонстрирует вывод текста всеми шрифтами со
сменой величины size от 1 до 5.
       Uses crt,graph;
       var s,ss:string; i,j,size:word;
       { Сюда поместить процедуру инициализации графического режима}
 begin         Init_graph_Mode;
       { Вывод текста в горизонтальном направлении}
    size:=0;
    for j:=1 to 5 do begin
    size:=size+1; { Смена размера шрифта}
    str(size,ss);
    For i:=0 to 10 do
    Begin            str(i,s);
    settextstyle(i,0,size); { Установка стиля шрифта}
    outtextxy(10,10+i*35,'This is Font:' + s +' size='+ss );
    end;      readkey;       cleardevice;
    end;
       { Вывод текста в вертикальном направлении}
    size:=0;
    for j:=1 to 5 do begin
    size:=size+1;
    str(size,ss);
    For i:=0 to 10 do
    begin
       str(i,s);
    settextstyle(i,1,size);
    outtextxy(10+i*45,10,'This is Font:' + s + 'size='+ss );
    end;      readkey;      cleardevice;
    end;
    closegraph;
  end.
       Кроме описанных основных процедур для вывода текста разработаны еще
несколько вспомогательных процедур и функций. Желающие могут ознакомиться
с ними в [1, 2].

                 2.2.11 Окна и страницы в графическом режиме

      В графическом режиме, подобно текстовому, на экране можно открывать
(устанавливать) прямоугольные окна. Для этого используется процедура
      SetViewPort(X1, Y1, X2, Y2, Clip);
      X1, Y1, X2, Y2 - координаты верхнего левого и правого нижнего углов;
переменная Clip может принимать одно из двух значений: ClipOn = True или
                                                                          46

Страницы