ВУЗ:
Составители:
Рубрика:
44
44
Здесь Color - переменная, задающая номер цвета (для адаптера VGA от 0 до
15); RedVal, GreenVal, BlueVal - выражения типа Integer, устанавливающие
интенсивность соответственно красной, зеленой и синей составляющих цвета (в
диапазоне от 0 до 256).
Программа, демонстрирующая действие процедуры SetRGBPalette выводит
на экран два залитых прямоугольник (синего и белого цвета), а затем, после
нажатия любой клавиши, синий прямоугольник меняет окраску.
Uses crt,graph;
var grDriver,i: Integer;
{ Здесь
должна быть процедура инициализация графического режима}
begin
Init_Graph_Mode;
if grDriver in [IBM8514, VGA] then begin
setfillstyle(1,1); {Установка сплошной заливки цветом 1 - синим}
bar(100,100,200,400);{Рисование залитого синим, прямоугольника}
setfillstyle(1,2); {Установка сплошной заливки цветом 2 - зеленым}
bar(300,100,400,400);{Рисование залитого зеленым, прямоугольника}
readkey;
for i:=1 to 100 do
begin
{Выбор интенсивности составляющих -действует на синии фигуры}
SetRGBPalette(1,Random(255),Random(255),Random(255));
end;
closegraph;
end
else
begin
outtextxy(300,20,'Адаптер не тот');
readkey;
end;
end.
2.2.10 Вывод
текста в графическом режиме
В графическом режиме стандартными средствами вывести на экран можно
только строковые константы или переменные. Поэтому при выводе числовых
значений необходимо преобразовать их в строковое с помощью процедуры
преобразования типов STR(chislo, stroka).
Для вывода текстовых изображений (строк) можно использовать одну из
двух процедур модуля Graph:
OutText(Строка) или OutTextXY(X, Y, Строка);
Первая из этих процедур выводит текстовую строку, начиная от текущего
положения графического курсора, а вторая - с позиции, определяемой
координатами (X, Y).
44 Здесь Color - переменная, задающая номер цвета (для адаптера VGA от 0 до 15); RedVal, GreenVal, BlueVal - выражения типа Integer, устанавливающие интенсивность соответственно красной, зеленой и синей составляющих цвета (в диапазоне от 0 до 256). Программа, демонстрирующая действие процедуры SetRGBPalette выводит на экран два залитых прямоугольник (синего и белого цвета), а затем, после нажатия любой клавиши, синий прямоугольник меняет окраску. Uses crt,graph; var grDriver,i: Integer; { Здесь должна быть процедура инициализация графического режима} begin Init_Graph_Mode; if grDriver in [IBM8514, VGA] then begin setfillstyle(1,1); {Установка сплошной заливки цветом 1 - синим} bar(100,100,200,400);{Рисование залитого синим, прямоугольника} setfillstyle(1,2); {Установка сплошной заливки цветом 2 - зеленым} bar(300,100,400,400);{Рисование залитого зеленым, прямоугольника} readkey; for i:=1 to 100 do begin {Выбор интенсивности составляющих -действует на синии фигуры} SetRGBPalette(1,Random(255),Random(255),Random(255)); end; closegraph; end else begin outtextxy(300,20,'Адаптер не тот'); readkey; end; end. 2.2.10 Вывод текста в графическом режиме В графическом режиме стандартными средствами вывести на экран можно только строковые константы или переменные. Поэтому при выводе числовых значений необходимо преобразовать их в строковое с помощью процедуры преобразования типов STR(chislo, stroka). Для вывода текстовых изображений (строк) можно использовать одну из двух процедур модуля Graph: OutText(Строка) или OutTextXY(X, Y, Строка); Первая из этих процедур выводит текстовую строку, начиная от текущего положения графического курсора, а вторая - с позиции, определяемой координатами (X, Y). 44
Страницы
- « первая
- ‹ предыдущая
- …
- 42
- 43
- 44
- 45
- 46
- …
- следующая ›
- последняя »