Buscando encontre esto:
DEFINE TIMER oCLITimer OF oWnd INTERVAL 300 ACTION Blinking( oBrw )
ACTIVATE TIMER oCLITimer
Function Blinking( oBrw )
if ! oBrw:lFocused
oBrw:nClrNFBack := iif( oBrw:nClrNFBack==oBrw:nClrBackFocus,oBrw:nClrBackFocus,CLR_BLACK)
oBrw:nClrNFFore := iif( oBrw:nClrNFFore==oBrw:nClrBackFocus,CLR_BLACK,oBrw:nClrBackFocus)
oBrw:Refresh()
endif
return .t.
saludos
↧