Como acceder a objeto en definicion del mismo.

[jvtecheto]

Hola amigos:

Me surge la siguiente duda, defino un objeto cualquiera , por ejemplo un SAY

Code: Select all  Expand view  RUN

@ 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  Expand view  RUN

ON CLICK (::SetText("FiveWin Power"))  
 

Code: Select all  Expand view  RUN

ON CLICK (oSay:SetText("FiveWin Power"))  
 

Ninguno de los dos me funciona, como seria para acceder al mismo objeto. en su definicion?

Saludos.

Jose.

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=17900&p=125587&hilit=oSay%3AVarput#p125587

[jvtecheto]

Gracias Joao, habia leído algo sobre eso pero no resuelve mi duda.

En la definición acceder al objeto.

Saludos

Jose.

[cnavarro]

Es posible que lo que necesites es utilizar la data bLClicked o bLDblClicked del objeto

Code: Select all  Expand view  RUN

   oSay:bLClicked := { || .....  }
 

[jvtecheto]

Es posible que lo que necesites es utilizar la data bLClicked o bLDblClicked del objeto

Code: Select all  Expand view  RUN

   oSay:bLClicked := { || .....  }
 

Hola Cristobal.

entonces esto deberia funcionar.

Code: Select all  Expand view  RUN

 oSay:bLClicked := { || MsgInfo("Se ha pulsado click en el Say") }
 

¿Porque no funciona?

Saludos.

[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

[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.

[cnavarro]

Jose, para eso se mantiene un foro.
Aquí seguiremos

[FranciscoA]

Hola: En Fw1204 lo siguiente funciona.

Code: Select all  Expand view  RUN

REDEFINE SAY oDoc PROMPT "CDiario #" ID 4013 OF oDlg
oDoc:lWantClick := .t.
oDoc:blClicked := {|| oDoc:VarPut("Hola"), oDoc:Refresh()}
*oDoc:blClicked := {|| MsgInfo("Hola")}
 

Saludos.

[karinha]

https://wiki.fivetechsoft.com/doku.php?id=fivewin_commands_say

Code: Select all  Expand view  RUN

#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
 

[jvtecheto]

Hola:

Gracias FranciscoA , Joao



Jose