Tenho um programa em HARBOR e mostra um resultado assim :
setcolor('4/7')
@ row(),col()+1 say trans(a_rs[1],'@ez 999,999,999.99')i
no clipper eu colocaria um * apos o 4 e ele ficaria piscando, como fazer no Harbour ?
obrigado
Tenho um programa em HARBOR e mostra um resultado assim :
setcolor('4/7')
@ row(),col()+1 say trans(a_rs[1],'@ez 999,999,999.99')i
no clipper eu colocaria um * apos o 4 e ele ficaria piscando, como fazer no Harbour ?
obrigado
Infelizmente não tem blink no Harbour, não tem jeito, também já tentei de tudo.
PROCEDURE Main()
LOCAL lBlink := .T.
CLS
DO WHILE .T.
IF lBlink
SETCOLOR("R/N")
@ 5, 10 SAY "*"
ELSE
@ 5, 10 SAY " "
ENDIF
lBlink := !lBlink
INKEY(0.3)
IF LASTKEY() == 27 // ESC
EXIT
ENDIF
ENDDO
RETURN
Essa é um exemplo que pode ser melhorado