FiveTech Software tech support forums

... evaluado en la clase TBTNBMP, ese codeblock recibe como primer parametro Self, pero no es el Self de tu clase sino del la Clase TBTNBMP usando oSelf:=SELF forzamos a usar nuestro objeto y no el de clase TBTNBMP

... el self (el botton mismo) como parametro intentara buscar el methodo SincroSorteos dentro de la btnbmp, para solventarlo, crea una variable local oSelf y le asignas el self de tu clase local oSelf := Self y cuando llames en la accion lo haces de esta manera ACTION oSelf:SincroSorteos(cCodLot,oBrw4,oBtn3)

... into: [{|Self|<uAction>}] But that "Self" will be provided to the codeblock as a parameter and it is not :: So when we do local oSelf := Self and then we use oSelf from the codeblock, we are using oSelf and not the provided parameter self Little confusing but its simple :-)

What is the difference between oSefl and :: ? Can someone please explain why oSelf is working and :: fails?  local oSelf             := SELF@ 10,10 BTNBMP oBtn OF ::oPanArt_WG;           SIZE 160, 80 ;               FONT oFnt ;             ACTION ( oSelf:oPanArt_WG:hide() ...

... As I didn’t found a solution how to disable valid navigating upwards I thought of forcing the system to navigate upwards with Setfocus(). iif(oSelf:verfuegbarkeiten(oDlg), ( oGetAnreise:refresh(), oGetAbreise:refresh(), oGetZiNr:refresh(),.t. ), (oGetAbreise:setfocus(),.t.) ) ) It seems that ...

Hola Juan.

con esto deberia funcionar

oGet:bGotFocus = {| oSelf | oSelf:SelectAll() }

Gracias por responder. Aunque parece que por ahí no va la cosa. Quizás sea por el engendro; el Listbox esta hecho con código, y está definido antes porque uso las coordenadas oSelf:oBrw2:nHeight+oSelf:oDlg:nHeight, oSelf:oBrw2:nleft, para ubicarlo
Seguiremos buscando...

... dData   DATA lTest INIT .T.   METHOD New() CONSTRUCTOR   ENDCLASSMETHOD New() CLASS MyClass   LOCAL oGet4, lWhen := .T., oDlg, oSelf := Self, cTxt := Space( 10 ), oGet5   ::dData := Date()   DEFINE DIALOG oDlg   @ 1, 1 GET oGet4 VAR ::dData OF oDlg PICTURE "@D"; ...

... DATA aDb, aField, aIndex AS ARRAY METHOD New( cName ) CONSTRUCTOR METHOD Redefine( cFile ) INLINE ::New( cFile ), ::Read(), Self METHOD Update( oSelf ) METHOD AddField( cName, cTipo, nLen, nDec ) METHOD AddIndex( cName, cKey, bKey, cFor, bFor, lUnique ) METHOD AddDb( oDbm ) METHOD ReadFields() ...

Mario,

Desde la claúsula ON INIT tienes que devolver .f. para que Windows acepte dar el foco a otro control:

... ON INIT ;
if( !Empty( oSelf:cUser ), ( aO[_Cmb]:oJump:= aO[_Get1], aO[_Get1]:SetFocus(), .f. ), )

Mario,

if( Empty( oSelf:cUser ), aO[_Get1]:SetFocus() , .T. )


Si lo anterior no funciona, usamos la fuerza bruta.
Deshabilito el combo al entrar, asi el foco no tiene más opción que irse al siguiente control.

if( !Empty( oSelf:cUser ), ( aO[_Cmb]:disable(), aO[_Get1]:SetFocus() ), )

... El foco inicilal lo tiene el Como. Bajo cierta condición quiero que lo tenga el Get. Para ello hago desde el ON INIT del Dialog hago: if( !Empty( oSelf:cUser ), ( aO[_Cmb]:oJump:= aO[_Get1], aO[_Get1]:SetFocus() ), ) Pero el foco sigue apareciendo en el Combo. que está mal? gracias

James; Thank you for answering. Good question on the oself. I have discovered that: ACTIVATE DIALOG ::oKeyPadDlg NOWAIT ON INIT ::oDlg:SetFocus() Will cause an error at run time. ::oDlg is presumed to belong to the tdialog ...

Reinaldo, I think we are going to need a small self-contained example. Also I do not understand why you are using a local oSelf: local oSelf := Self DEFINE DIALOG oSelf:oKeyPadDlg RESOURCE "NUM_KEYPAD" OF oSelf:oDlg BRUSH oBrush oSelf:oKeyPadDlg is the same as ::oKeyPadDlg. You don't ...

... * ********************************************************* METHOD Activate( ) CLASS tNewRol Local oSelf := Self LOCAL oFont LOCAL oIcon Local oBmp DEFINE Font ::oFont Name 'Arial' Bold SIZE 0,-11 Define Window oSelf:oWnd Title oSelf:cTitle Menu oSelf:MakeMenu() ...