Page 1 of 1
Como acceder a objeto en definicion del mismo.
Posted: Mon Jul 22, 2019 8:11 pm
by jvtecheto
Hola amigos:
Me surge la siguiente duda, defino un objeto cualquiera , por ejemplo un SAY
Code: Select all
@ 2, 1 SAY oSay PROMPT "Fivewin 19.06 last version" OF oDlg SIZE 80, 20 ADJUST
y en la definicion del mismo quiero que al hacer click por ejemplo me cambie el texto.
pruebo
Code: Select all
ON CLICK (::SetText("FiveWin Power"))
Code: Select all
ON CLICK (oSay:SetText("FiveWin Power"))
Ninguno de los dos me funciona, como seria para acceder al mismo objeto. en su definicion?
Saludos.
Jose.
Re: Como acceder a objeto en definicion del mismo.
Posted: Mon Jul 22, 2019 8:32 pm
by karinha
Re: Como acceder a objeto en definicion del mismo.
Posted: Mon Jul 22, 2019 10:03 pm
by jvtecheto
Gracias Joao, habia leído algo sobre eso pero no resuelve mi duda.
En la definición acceder al objeto.
Saludos
Jose.
Re: Como acceder a objeto en definicion del mismo.
Posted: Tue Jul 23, 2019 12:17 am
by cnavarro
Es posible que lo que necesites es utilizar la data bLClicked o bLDblClicked del objeto
Re: Como acceder a objeto en definicion del mismo.
Posted: Tue Jul 23, 2019 9:09 am
by jvtecheto
cnavarro wrote:Es posible que lo que necesites es utilizar la data bLClicked o bLDblClicked del objeto
Hola Cristobal.
entonces esto deberia funcionar.
Code: Select all
oSay:bLClicked := { || MsgInfo("Se ha pulsado click en el Say") }
¿Porque no funciona?
Saludos.
Re: Como acceder a objeto en definicion del mismo.
Posted: Tue Jul 23, 2019 9:27 am
by cnavarro
No funciona porque esa clase no tiene el METHOD LButtonDown que es donde se evalúa esa data
Es decir, no se ha diseñado la clase para que tenga el evento bLClicked.
Si lo necesitas crea una clase que herede de TSAy y le pones ese METHOD LButtonDown
Re: Como acceder a objeto en definicion del mismo.
Posted: Tue Jul 23, 2019 12:03 pm
by jvtecheto
Hola Cristobal:
Ahhh. Tienes toda la razon como siempre (Igual que mi mujer
)
Bueno bromas aparte gracias por tus aportaciones siempre y perdón por el lapsus.
Hay que leer mas y preguntar menos(El primero yo). Pero sino preguntaramos los foros serian tan aburridos
como los de nuestros "Xvecinos".
Saludos.
Jose.
Re: Como acceder a objeto en definicion del mismo.
Posted: Tue Jul 23, 2019 3:02 pm
by cnavarro
Jose, para eso se mantiene un foro.
Aquí seguiremos
Re: Como acceder a objeto en definicion del mismo.
Posted: Tue Jul 23, 2019 4:43 pm
by FranciscoA
Hola: En Fw1204 lo siguiente funciona.
Code: Select all
REDEFINE SAY oDoc PROMPT "CDiario #" ID 4013 OF oDlg
oDoc:lWantClick := .t.
oDoc:blClicked := {|| oDoc:VarPut("Hola"), oDoc:Refresh()}
*oDoc:blClicked := {|| MsgInfo("Hola")}
Saludos.
Re: Como acceder a objeto en definicion del mismo.
Posted: Tue Jul 23, 2019 5:25 pm
by karinha
https://wiki.fivetechsoft.com/doku.php? ... mmands_say
Code: Select all
#Include "Fivewin.ch"
FUNCTION Main()
LOCAL oDlg, oSay, oBrush
DEFINE BRUSH OBRUSH GRADIENT { { 0.4, NRGB( 75, 144, 223 ), ;
NRGB( 41, 85, 145 ) }, { 0.6, NRGB( 24, 61, 118 ), NRGB( 50, 95, 158 ) } }
DEFINE DIALOG oDlg TITLE "TEST SAY WITH GRADIENT BRUSH" ;
SIZE 400, 400 PIXEL BRUSH oBrush TRANSPARENT
@ 25, 15 SAY OSAY PROMPT "THIS A TEST" OF oDlg SIZE 40, 15 ;
COLOR CLR_WHITE PIXEL TRANSPARENT ADJUST
oSay:lWantClick := .T.
oSay:blClicked := { || oSay:VarPut( "Hola Say" ), oSay:Refresh() }
@ 10, 120 BUTTON "TEST" PIXEL ACTION OSAY:SETTEXT( "CHANGE TEXT" )
ACTIVATE DIALOG oDlg CENTERED
oBrush:End()
RETURN NIL
Re: Como acceder a objeto en definicion del mismo.
Posted: Fri Jul 26, 2019 10:48 am
by jvtecheto
Hola:
Gracias FranciscoA , Joao
Jose