Pascal - Interferenza dei colori del thread

Forum - Pascal - Interferenza dei colori del thread

gllobal (Normal User)
Rookie

Messaggi: 41
Iscritto: 02/04/2012

Postato alle 16:04
Lunedì, 18/06/2012

Ciao a tutti, ho il seguente problema:
ho realizzato un thread il seguente:

Codice sorgente - presumibilmente Delphi

Begin
 Randomize;
  Repeat
   K:=200;
    Repeat
     K:=K-10;
     n:=Random(10)+2;
      For I:=2 to n do
       Begin
         If(I>9)Then
          SetColor(red)
         Else
           If(I>6)Then
            SetColor(42)
           Else
            SetColor(46);
        Rectangle(X-(K+6),113-(I*6),X-K,110-((I-1)*6));
        SetColor(22);
       End;
    Until(K=20);
   Delay(150);
 
   ClearGrAudio(X,Y);
  Until(Select=chr(27));
  SetColor(22);
End;

Come vedete ho utilizzato dei colori in questo thread, pero sia dopo aver stampato la figura sia alla fine del thread ho inserito un setcolor(22) per reimpostare il colore che mi serve per dopo, però non sempre lo fa, nel senso che per stampare quel rettangolo utilizzo il verde, giallo e rosso, dopo devo stampare una colonna di parole di colore grigio SetColor(22), però il programma non me le stampa di colore grigio almeno non tutte alcune le fa con il verde altre con il giallo e rosso. Per risolvere il problema ho inserito un setcolor(22) anche prima di stampare la colonna delle parole, ma non cambia niente. Se potete rispondere subito è urgente, molto. Grazie ciao.

Poggi Marco (Member)
Guru

Messaggi: 969
Iscritto: 05/01/2010

Postato alle 19:29
Lunedì, 18/06/2012

Ciao!

Che cosa fanno le funzioni ClearGrAudio(X,Y) e Select ?

gllobal (Normal User)
Rookie

Messaggi: 41
Iscritto: 02/04/2012

Postato alle 9:34
Giovedì, 21/06/2012

Ciao, scusa se rispondo in ritardo, ClearGrAudio è una procedura che ho inserito in una unit in pratica serve a cancellare i rettangoli che vengono stampati sullo schermo, invece select è una variabile globale che utilizzo nel programma in pratica quando l'utente chiude il programma deve finire anche il thread. ClearGrAudio sarebbe la stessa cosa di ClearDevice, solo che non pulisce tutto lo schermo ma un pezzo soltanto. Ciao grazie.