Clase TTimer

[mastintin]

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  Expand view

#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

//----------------------------------------------------------------------------//








 

[Antonio Linares]

Manuel,

Gracias!

Vamos a publicar un nuevo build de FiveMac cuanto antes