Помощь - Поиск - Пользователи - Календарь
Полная версия: графика
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
compiler
Почему в программе не меняется цвет фона?
Uses Graph;
VAR
x1, y1, x2, y2:integer;
GraphDriver,GraphMode:integer;
procedure L(x1, y1, x2, y2:word);
begin
SetColor(red);
Line (x1, y1, x2, y2);
end;
Begin
GraphDriver:=detect;
InitGraph(GraphDriver, GraphMode, '');
SetBkColor(white); {<------------------вот строчка которая должна менять цвет фона}
x1:=150; y1:=450; x2:=100; y2:=350; L (x1, y1, x2, y2);
x1:=100; y1:=350; x2:=350; y2:=350; L (x1, y1, x2, y2);
x1:=350; y1:=350; x2:=300; y2:=450; L (x1, y1, x2, y2);
x1:=150; y1:=450; x2:=300; y2:=450; L (x1, y1, x2, y2);
x1:=200; y1:=350; x2:=200; y2:=20; L (x1, y1, x2, y2);
x1:=200; y1:=20; x2:=250; y2:=40; L (x1, y1, x2, y2);
x1:=250; y1:=40; x2:=200; y2:=40; L (x1, y1, x2, y2);
x1:=200; y1:=50; x2:=300; y2:=250; L (x1, y1, x2, y2);
x1:=300; y1:=250; x2:=200; y2:=350; L (x1, y1, x2, y2);
read(x1);
CloseGraph;
End.

заранее благодарен.

Добавлено через 7 мин.
FloodFill 
тоже не работает...
volvo
Зато
        setfillstyle(solidfill, white);
bar(0, 0, getmaxx, getmaxy);

прекрасно работает...
-=Считывающий=-
Кстати первый вар тоже пашет...
compiler
Цитата(-=Считывающий=- @ 23.02.2007 16:33) *

Кстати первый вар тоже пашет...

не-а...(твой коипилятор?)
-=Считывающий=-
У меня TP7.
compiler
Цитата(volvo @ 23.02.2007 16:25) *

Зато
        setfillstyle(solidfill, white);
bar(0, 0, getmaxx, getmaxy);

прекрасно работает...

а почему моё не работает...
откуда твои строчки?
Артемий
У меня твое работает..Какой у тебя компилятор?А видео драйвер какой?
compiler
Цитата(-=Считывающий=- @ 23.02.2007 16:42) *

У меня TP7.

И у тебя работает!?
-=Считывающий=-
SetFillStyle(Pattern,Color) где Pattern - орнамент, Color - цвет заполнения фигур
Bar - прямоугольник с заполнением цветом указанном скажем в параметре выше

Добавлено через 46 сек.
Цитата(compiler @ 23.02.2007 17:47) *

И у тебя работает!?


Вполне)
compiler
Цитата(Артемий2 @ 23.02.2007 16:47) *

Какой у тебя компилятор?

TP 7 & FP 2.0.4
Цитата(Артемий2 @ 23.02.2007 16:47) *

А видео драйвер какой?

какой тут видео драйвер незнаю...

Добавлено через 4 мин.
SetFillStyle

не работает...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.