26/04/17 16:10
Poggi Marco
Ciao!
Per " attivare " il nuovo sfondo, bisogna cancellare lo schermo tramite il comando clearDevice.
Prova questo esempio:
program cambio_sfondo;
uses graph, crt;
var sg,ng:integer;
tasto:char;
begin
sg:=detect;
ng:=0;
initgraph(sg, ng, '');
setbkcolor(4);
clearDevice;
tasto:=' ';
tasto:=readkey;
closegraph;
writeln(tasto);
end.
aaa