FiveTech Software tech support forums

This command line bellow, call alert function, it´s ok. But... don´t execute GoNextCtrl()

oCombo:bChange = { || If( oCombo:oGet:oGet:TypeOut, ( alert("test"), oCombo:oWnd:GoNextCtrl( oCombo:hWnd ) ),) }

Any Solution?

Antonio Linares wrote:Please check if you ear the beep:

oCombo:bChange = { || If( oCombo:oGet:oGet:TypeOut, ( MsgBeep(), oCombo:oWnd:GoNextCtrl( oCombo:hWnd ) ),) }

No Beep. Not call function.

Please check if you ear the beep:

oCombo:bChange = { || If( oCombo:oGet:oGet:TypeOut, ( MsgBeep(), oCombo:oWnd:GoNextCtrl( oCombo:hWnd ) ),) }

Try this: oCombo:bChange = { || If( oCombo:oGet:TypeOut, oCombo:oWnd:GoNextCtrl( oCombo:hWnd ),) } Not Solved... little change in code: "oGet:TypeOut" for "oGet:oGet:TypeOut", but, not go next control. text in oGet is full select ...

Try this:

oCombo:bChange = { || If( oCombo:oGet:TypeOut, oCombo:oWnd:GoNextCtrl( oCombo:hWnd ),) }

... Also, this only happens when moving the cursor to the beginning of the memo and the first line is blank. I thought perhaps it was some kind of typeout behaviour but it doesn't do this if you click the Date button using the mouse. #include "Fivewin.ch" FUNCTION MAIN() LOCAL oDlg LOCAL ...

... HasFocus DATA Minus DATA Name DATA Original DATA Pos DATA PostBlock DATA PreBlock DATA Reader DATA Rejected DATA Row DATA SubScript DATA Type DATA TypeOut #ifdef HB_COMPAT_C53 DATA Control DATA Message DATA Caption DATA nLastExitState DATA CapRow DATA CapCol #endif METHOD New( nRow, nCol, bVarBlock, ...

Carlos,

No hay que realizar ningún cambio. Solo quitar la asignación que se le hacía a typeout. Ya no es necesaria.

Con que se reemplaza el uso del typeout?

Carlos,

> definitivamente es el typeout, que ahora es protected y no se puede asignar

Si, así es, por eso hay que modificar la clase TGet y eliminar el uso de typeout

... Application successfully built C:\FWH707\samples> http://img152.imageshack.us/img152/476/tgetjc2.png definitivamente es el typeout, que ahora es protected y no se puede asignar. Que simpático cambio el de Harbour. Un saludo, Carlos.

... '_HB_FUN_HB_GT_WIN' referenced from C:\HARBOUR711\LIB\RTL.LIB|gtsys Por que el gtsys pide GT_WIN? No es suficiente con GT_GUI? ::oGet:TypeOut = .f. en LostFocus es lo que dá el problema, luego de mecanizar una fecha inválida. Aparentemente desde que se fijó como PROTECTED TypeOut no ...

Antonio antes con la version de Abril de 2005 las fechas funcionaba ok, pero ahora aparece la fecha bien pero cuando quiero modificar se corre, osea desaparecen los slash"/" y no reconoce el formato de la fecha. Probe el ejemplo TESTGET_ de Samples y cuando por ejemplo ingreso 20/20/2007 me sale el ...

... me regreso con las flechas les quita un digito.. if ! ::oGet:BadDate ::oGet:KillFocus() else ::oGet:Pos = 1 ::nPos = 1 #ifndef __CLIPPER__ ::oGet:TypeOut = .f. #endif endif alguna sugerencia.. arnulfo

... return 0 endif endif The correct place if before otherwise clause at end of method METHOD KeyChar( nKey, nFlags ) CLASS TGet (...) if ::oGet:TypeOut if ! Set( _SET_CONFIRM ) ::oWnd:nLastKey = VK_RETURN ::oWnd:GoNextCtrl( ::hWnd ) else if Set( _SET_BELL ) MsgBeep() endif endif endif // Rossine ...