Clase TTimer
Posted: Tue Aug 31, 2010 7:24 am
He visto que no están implementados los timer como clase fivemac , asi que he escrito estas lineas para que se puedan usar con la sintaxis de clase .Es un primer acercamiento ya que creo que no es "compatible" con fivewin al 100%. Falta implementar los includes para que sean parecidos a los de fivewin .
Code: Select all
#include "FiveMac.ch"
//----------------------------------------------------------------------------//
CLASS TTimer
DATA bAction
DATA lActive
DATA nInterval
DATA lRepeat
DATA hWnd
DATA Cargo
DATA hWndOwner
METHOD New( nInterval, bAction, oWnd ) CONSTRUCTOR
// METHOD Activate()
// METHOD DeActivate() INLINE ::lActive := .f.
METHOD End() INLINE TimerEnd(::hWnd )
ENDCLASS
//----------------------------------------------------------------------------//
METHOD New( nInterval, bAction, oWnd ) CLASS TTimer
DEFAULT nInterval := 18, bAction := { || nil }
oWnd:bOnTimer:= bAction
::hWndOwner := oWnd:hWnd
::hWnd := TimerCreate( nInterval ,::hWndOwner )
::nInterval:= nInterval
::bAction := bAction
::lActive := .t.
return Self
//----------------------------------------------------------------------------//
