Free pascal-ban rajzolás módban hogyan lehet a háttérszínt változtatni? A setbkcolor (szin) parancs nem működik.

Hmm, próbáld a SetBKColor (white) helyett a SetBKColor (15)-öt. Bár ha nem volna jó a white, akkor hibát adna a fordító, vagy a program futás közben.

Közben túrtam kicsi a netet és úgy tűnik, hogy a Free Pascalban Windows alatt volt már ilyen hiba. Lehet, hogy most is erről van szó. Melyik Free Pascal verziót használod?

program pelda002;

uses graph,wincrt;

var gd,gm:integer;

begin

gd:=d4bit;

gm:=m800x600;

initgraph(gd,gm,'');

if graphresult<>grok then

begin

writeln('Hiba a grafika incializálásánál.');

halt;

end;

setbkcolor(15);

setcolor(16);

circle(400,211,32);

readkey;

closegraph;

end.

Probald igy..(A "Black=16" "White=15")