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

[RathaR]

Не выходит сменить цвет фона в графическом режиме, процедура SetBkColor не меняет ничего... экран остается черный. Я порылся в поиске, пару прецендентов нашёл, но подходящих решений, и внятного ответа не попалось. В графике пока понимаю немного, никаких видео-режимов, или еще чегот подобного не менял и не использую. Как решить подобную проблему?

[Unconnected]

Мой FreePascal заболел, поэтому компилировал в обычном TP7, изменённые строки отмечены, цвет фона меняется.

program  pole2;

uses
		Crt,Graph;
var
		Gdriver,Gmod:integer;
		x,y,x1,y1:integer;
procedure Fon;
const
		H_size = 1000;

		V_size = 600;

		Gora:array[1..8] of integer = (H_size div 3, 600,

									   H_size div 2, 2 * V_size div 3,

									   2 * H_size div 3, 600,

									   H_size div 3, 600);
		Z1 = 500;

		Z2 = 500;
begin
setbkcolor(blue);   //<== поставил символьное обозначение цвета вместо числового, иногда помогает
setfillstyle(10,8);
setlinestyle(0,0,3);
setcolor(8);
drawpoly(4,Gora);
floodfill(Z1,Z2,8);
rectangle(1,1,1000,600);
setcolor(1);
rectangle(950,550,1000,600);
end;
function popal(x,y,zvet:integer):boolean;

		begin
		if getpixel(x,y)= 1 then popal:=true else popal:=false;
		end;
begin

Gdriver:=0;   //<==
GMod:=0;     //<==
initgraph(Gdriver,Gmod,'');
Fon;
readln;
closegraph;
end.

Разрешение 640/480, за счёт установки Gdriver(или GMod, точно не помню) в 0.

Сообщение отредактировано: Unconnected - 9.07.2009 0:43