Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
perchè se cambio il colore dello sfondo la prima volta che eseguo lo sfondo resta tutto nero a parte dei caratteri che ho scritto? mi spiego meglio: ho fatto una procedura così:
Codice sorgente - presumibilmente Delphi
procedure prepara_campo;
var i,d :integer;
begin
TextBackground(Green);
TextColor(Black);
for i:= 1 to 80 do
begin
gotoxy(i,1);
write(chr(219));
end;
for i:=2 to 24 do
begin
gotoxy(1,i);
write(chr(219));
gotoxy(80,i);
write(chr(219));
end;
line_vert(30,5,10);
line_vert(36,5,10);
line_orr(8,23,20);
line_orr(12,23,20);
gotoxy(36,12);
write(chr(206));
gotoxy(30,12);
write(chr(206));
gotoxy(36,8);
write(chr(206));
gotoxy(30,8);
write(chr(206));
for i:= 1 to 3 do
begin
gotoxy(23+i*6,7);
write(i);
end;
for i:= 1 to 3 do
begin
gotoxy(23+i*6,11);
write(i+3);
end;
for i:= 1 to 3 do
begin
gotoxy(23+i*6,15);
write(i+6);
end;
end;
che mi coloraw di verde lo sfondo e mi fa la griglia del tris.... però la prima volta che lo eseguo mi si colora solo lo spazio vicino alla griglia...come mai?
Per colorare lo sfondo dopo averne impostato un colore devi usare un clrscr.
Ti consigliereri, inoltre, per creare la cornice, di usare la procedura window, che limita l'area su cui si lavora quando si utilizza una funzione della unit crt.