topic-14252

Board index FiveWin para Harbour/xHarbour efecto BLINK en button

Posts: 479

Joined: Fri Feb 16, 2007 10:29 AM

efecto BLINK en button
Posted: Tue Jan 13, 2009 11:20 AM

Compañeros:

Necesito que al pulsar un button cree un efecto BLINK en el button. Tengo el siguiente codigo:

     for x=1 to 6
      if int(x/2)!=(x/2) && numero impar
       aforo[temporal->nposicion]:SetColor( CLR_WHITE, nRGB(255,128,0), CLR_WHITE )
      else
       aforo[temporal->nposicion]:Setcolor( CLR_WHITE, CLR_BLUE, CLR_WHITE )
      endif
      aforo[temporal->nposicion]:refresh()
      inkey(1)  && si sustituimos inkey por un msginfo('prueba') funciona perfectamente
     next

Este codigo funciona si sustituimos el inkey por un msginfo para ver la prueba. Obviamente con msginfo() no sería operativo. ¿ Por qué no funciona con inkey() ?, ¿ Hay otra manera ?

Mil gracias.
LOREN

jicorral

Posts: 47