Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - Pacal-graph
Forum - Pascal - Pacal-graph

Avatar
dario cavarrett (Normal User)
Newbie


Messaggi: 10
Iscritto: 05/02/2017

Segnala al moderatore
Postato alle 17:01
Mercoledì, 26/04/2017
Salve, vorrei sapere come cambiare il colore dello sfondo della finestra grafica in Pascal.
Su internet ho trovato il comando 'setbkcolor(colore)' ma non funziona.
Grazie in anticipo:k:


Dario Cavarretta
PM Quote
Avatar
Poggi Marco (Member)
Guru


Messaggi: 950
Iscritto: 05/01/2010

Segnala al moderatore
Postato alle 18:10
Mercoledì, 26/04/2017
Ciao!

Per " attivare " il nuovo sfondo, bisogna cancellare lo schermo tramite il comando clearDevice.
Prova questo esempio:
Codice sorgente - presumibilmente Delphi

  1. program cambio_sfondo;
  2. uses graph, crt;
  3. var sg,ng:integer;
  4.         tasto:char;
  5.  
  6. begin
  7.         sg:=detect;
  8.         ng:=0;
  9.         initgraph(sg, ng, '');
  10.        
  11.         setbkcolor(4);
  12.         clearDevice;
  13.        
  14.         tasto:=' ';
  15.         tasto:=readkey;
  16.         closegraph;
  17.         writeln(tasto);
  18. end.



Nulla va più veloce della luce, quindi rilassati.
PM Quote