Почему в программе не меняется цвет фона?
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.
FloodFillтоже не работает...
Зато
setfillstyle(solidfill, white);прекрасно работает...
bar(0, 0, getmaxx, getmaxy);
Кстати первый вар тоже пашет...
У меня TP7.
setfillstyle(solidfill, white);прекрасно работает...
bar(0, 0, getmaxx, getmaxy);
У меня твое работает..Какой у тебя компилятор?А видео драйвер какой?
SetFillStyle(Pattern,Color) где Pattern - орнамент, Color - цвет заполнения фигур
Bar - прямоугольник с заполнением цветом указанном скажем в параметре выше
Добавлено через 46 сек.