TBUTTON. Pasar ::Cargo a EVAL

Post Reply
User avatar
thefull
Posts: 720
Joined: Fri Oct 07, 2005 7:42 am
Location: Barcelona
Contact:

TBUTTON. Pasar ::Cargo a EVAL

Post by thefull »

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
Saludos
Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Rafa,

Lo que comentas es útil pero no es estandard de FWH por lo que no podemos implementarlo pues podríamos romper código existente de aplicaciones de usuarios en donde se use cargo para otros fines
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Post by Silvio »

Antonio,
can modify BUTTON class to OFFICE LIKE 2007 ?
How I can make it ?
Best Regards, Saludos

Falconi Silvio
Post Reply