Antonio, ¿ podria ser que la evaluacion de bAction, si estuviese definido la
variable Cargo , pasará esto en vez de Self ?
if ::bAction != nil
Eval( ::bAction,iif(Empty(::Cargo), Self,::Cargo ) )
endif
El motivo es que de esta manera , puedo usar en una clase propia;
METHOD View() CLASS TMY
....
cNumero := "{|Self|Self:ViewDemo("+ str(z)+ ")}"
aoBtn[z] := TButton():New( X, 90, "MEMO", oFld:aDialogs[ nFolders ],,50,10,,, .F., .T., .F.,, .F.,,, .F. )
aoBtn[Z]:bAction := &( cNumero )
aoBtn[Z]:Cargo := Self
.....
De esta manera, es posible crear botones dinamicos que puedan llamar
a un method de la propia clase, no a un method de la clase de TButton.
No se si me explico
Yo tengo modifica la clase TButton por este motivo, que viendo ahora el tema de los tooltips, pues me he puesto a recordad y lo comento por si pudiera ser una mejora, yo creo que si
TBUTTON. Pasar ::Cargo a EVAL
TBUTTON. Pasar ::Cargo a EVAL
Saludos
Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact: