FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour imágenes intermitentes
Posts: 203
Joined: Tue Oct 11, 2005 02:17 PM
imágenes intermitentes
Posted: Tue Mar 09, 2010 04:25 PM

Hola, alguien me puede dar una idea de como hacer para que una imageno un botón que aparece en un dialogo tenga un aspecto intermitente.

Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: imágenes intermitentes
Posted: Tue Mar 09, 2010 09:35 PM

Mediante un timer cambiar de BMP al boton cada cierto tiempo:
...
oImag1 := LoadBitMap(GetResources(),"Imagen1")
oImag2 := LoadBitMap(GetResources(),"Imagen2")
n:=2

DEFINE TIMER tImag OF oWnd3 INTERVAL 1000 ACTION (If(n=1, (oBoton:setBmp(oImag1), n= 2), (oBoton:SetBmp(oImag2), n= 1))
ACTIVATE TIMER tImag

..
...
REDEFINE BTNBMP oBoton RESOURCE "Imagen1" ACTION MsgInfo() ID 105 OF oDlg
...
..
(ojo, esta escrito al vuelo.... pero alli va la idea)

Salu2

Continue the discussion