Clase TClock para FWPPC

[Paco Garcia]

Hola a todos. Todavía no funciona del todo bien pero creo que merece la pena ir viendola funcionar.

http://www.arrakis.es/~canal_five/reloj.zip

En cuanto encuentre una solucion para PolyPolygon mandare el resto.

Un saludo

[Paco Garcia]

Hola

¿Por que puede pasar en este código que al ir a otra aplicación y la ventana que muestra el reloj perder el foco y luego posteriormente recuperarlo, sale un error de argumentos en GotFocus?





Un saludo

[Paco Garcia]

El error.

Hola Antonio.

El error esta en este método de la clase TWindow.

Code: Select all  Expand view  RUN


METHOD GotFocus(hWndLoseFocus) CLASS TWindow

   ::lFocused = .t.

   if ::bGotFocus != nil
      Eval( ::bGotFocus )
   endif

   if ! Empty( ::hCtlFocus )
      if Upper( GetClassName( ::hCtlFocus ) ) $ "SYSTABCONTROL32,TPAGES"
         AEval( ::aControls, {| Ctrl | If( Ctrl:hWnd != ::hCtlFocus, , ;
                  SetFocus( Ctrl:aDialogs[ Ctrl:nOption ]:hCtlFocus ) ) } )
      else
         SetFocus( ::hCtlFocus )
      endif
   else
      if ::aControls != nil .and. Len( ::aControls ) > 0
         if ::aControls[ 1 ] != nil
            ::hCtlFocus = NextDlgTab( ::hWnd ) // , ::aControls[ 1 ]:hWnd )
            //SetFocus( ::hCtlFocus ) <<<<<<<<<<<
         endif
      endif
   endif

return 0   // no standard behavior


Si comento la línea señalada, el programa funciona y no se peta cuando vuelve a pillar el foco.

[Paco Garcia]

Es curioso. Si le quito WS_TABSTOP no peta

[Antonio Linares]

Paco,

Acabo de probar samples\tutor05.prg, estando el foco en un GET, y cambiando a otra aplicación y volviendo, y no dá ningún error.

Puedes probarlo ? (sin tu modificación) gracias

[Silvio]

Antonio,
where I can found tclock for fwppc ?

[Antonio Linares]

Silvio,

We don't have it.

Maybe another FWPPC user may have it.

[Silvio]

Antonio,
I'm trying mine clock but (msgclock) I'm afraid not run in fwppc
I can post here the function if it run ok on Arm