Olá JoséQuintas, muito obrigado por sua atenção,
Achei essa rotina com palette e consegui compilar, agora quero entender como funciona, quero
compilar também essa rotina sua, uma dúvida, com o Setcolor(), consegue-se fazer
vários tons de cores ou para isso é necessário outras formas como o Palette por exemplo ?
HARBOUR 3.2.0(dev) GTWVGPARAM PAL
IF PAL=NIL
PAL="0"
ENDIF
CLS
PALETE=VAL(PAL)
SETBLINK(.F.)
CORDIGI2="W+/BG+,GR+/N,,,RG+/BG+"
CORDIGI="W+/R+*,GR+/N,,,G+/R+*"
CORDIGI3="W+/N+"
CORDIGI4="W+/R"
Palette(1, 8+PALETE)
Palette(2, 10+PALETE)
Palette(3, 12+PALETE)
Palette(10, 43+PALETE)
Palette(11, 19+PALETE)
Palette(12, 18+PALETE)
SETCOLOR(CORDIGI)
@ 02,00 CLEAR TO 12,20
@ 02,00 TO 12,20
@ 04,02 SAY "TESTE =>"
SETCOLOR(CORDIGI2)
@ 02,22 CLEAR TO 12,42
@ 02,22 TO 12,42
@ 04,24 SAY "TESTE =>"
SETCOLOR(CORDIGI3)
@ 14,00 CLEAR TO 24,20
@ 14,00 TO 24,20
@ 16,24 SAY "TESTE =>"
SETCOLOR(CORDIGI4)
@ 14,22 CLEAR TO 24,42
@ 14,22 TO 24,42
@ 16,24 SAY "TESTE =>"
@ 00,69 SAY "Tipo -> "+STR(PALETE,3)
TOT=0
DO WHIL TOT<>-21
INKEY(0)
TOT--
Palette(1, 8+TOT)
Palette(2, 10+TOT)
Palette(3, 43+TOT)
Palette(10, 23+TOT)
Palette(11, 19+TOT)
Palette(12, 18+TOT)
@ 00,69 SAY "Tipo -> "+STR(TOT,3)
ENDDO
TOT=0
DO WHIL TOT<>41
INKEY(0)
TOT++
Palette(1, 8+TOT)
Palette(2, 10+TOT)
Palette(3, 43+TOT)
Palette(10, 23+TOT)
Palette(11, 19+TOT)
Palette(12, 18+TOT)
@ 00,69 SAY "Tipo -> "+STR(TOT,3)
ENDDO
SCRMODE()
CLS
RETURN(.T.)