FiveTech Software tech support forums

... . I have one a big class for my needs , where I'm openning mdichilds and browses , folders and browses in folders . My source of standard windows bValid looks that: ::oWnd:bValid := { || ( ::End(), .t. ) } METHOD End() CLASS TMyBasic ...

... if ::oGet:BadDate ::oGet:Buffer := DtoC(::cOldDate) ::oGet:Assign() ::oGet:KillFocus() ::oGet:SetFocus() MsgBeep() return .f. else if ValType( ::bValid ) == "B" lRet := Eval( ::bValid, Self ) if ! lRet ::oWnd:nLastKey = 0 endif endif endif return lRet Saludos.

... asigno la evaluacion del bloque al dato bWhen del get ObjGet:bWhen := &( lcWhenBloq ) // le asigno la lectura del valid al objeto get ObjGet:bValid := &( aDefFields[i][7] ) Cada vez que un get pierde foco los pasos que realiza son los siguientes: * pasa por lostfocus de la clase tget ...

Alreday found samples for that - testarr4.prg and tesloop.prg . But I have an problem with bValid for oGets arrays . My function n_pas( cAlias, cFld ) get an lats cFld value . How it make true ? One solution it can be at oDlg close moment , but I want to do that in oGet ...

... , but at this moment i can't to find about them . Alreday found samples for that - testarr4.prg and tesloop.prg . But I have an problem with bValid for oGets arrays . My function n_pas( cAlias, cFld ) get an lats cFld value . How it make true ? One solution it can be at oDlg close moment ...

... ) ) ::BrwBasic() ::oWnd:bLostFocus := { || if( ::nLst <= 0, ::LstFcs(), ) } ::oWnd:bGotFocus := { || if( ::nLst <= 0, ::GotFcs(), ) } ::oWnd:bValid := { || ( ::End(), .t. ) } ::oWnd:bKeyDown := { | nKey, nFlags | ::Keys( nKey ) } return( NIL ) METHOD Start() CLASS TMyBasic local n := 0 if ...