графика, не меняется фон Опции

[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]

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

не-а...(твой коипилятор?)

[-=Считывающий=-]

У меня TP7.

[compiler]

Зато

        setfillstyle(solidfill, white);
        bar(0, 0, getmaxx, getmaxy);

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

а почему моё не работает...
откуда твои строчки?

[Артемий]

У меня твое работает..Какой у тебя компилятор?А видео драйвер какой?

[compiler]

У меня TP7.

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

[-=Считывающий=-]

SetFillStyle(Pattern,Color) где Pattern - орнамент, Color - цвет заполнения фигур
Bar - прямоугольник с заполнением цветом указанном скажем в параметре выше

Добавлено через 46 сек.

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

Вполне)

[compiler]

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

TP 7 & FP 2.0.4

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

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

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

SetFillStyle

не работает...