Page 1 of 1
Clase TClock para FWPPC
Posted: Tue Feb 21, 2006 11:34 pm
by 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
Posted: Wed Feb 22, 2006 10:46 am
by 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
Posted: Wed Feb 22, 2006 1:51 pm
by Paco Garcia
El error.
Hola Antonio.
El error esta en este método de la clase TWindow.
Code: Select all
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.
Posted: Wed Feb 22, 2006 2:19 pm
by Paco Garcia
Es curioso. Si le quito WS_TABSTOP no peta
Posted: Wed Feb 22, 2006 4:05 pm
by 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
Posted: Wed Sep 03, 2008 6:33 pm
by Silvio
Antonio,
where I can found tclock for fwppc ?
Posted: Thu Sep 04, 2008 12:54 pm
by Antonio Linares
Silvio,
We don't have it.
Maybe another FWPPC user may have it.
Posted: Thu Sep 04, 2008 2:37 pm
by 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