FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Como acceder a objeto en definicion del mismo.
jvtecheto
Posts: 607
Joined: Mon Mar 04, 2013 04:32 PM

Como acceder a objeto en definicion del mismo.

Posted: Mon Jul 22, 2019 08:11 PM
Hola amigos:

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

Code (fw): Select all Collapse
@ 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 (fw): Select all Collapse
ON CLICK (::SetText("FiveWin Power"))

Code (fw): Select all Collapse
ON CLICK (oSay:SetText("FiveWin Power"))


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

Saludos.

Jose.
Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: Como acceder a objeto en definicion del mismo.

Posted: Mon Jul 22, 2019 08:32 PM
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=17900&p=125587&hilit=oSay%3AVarput#p125587
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
jvtecheto
Posts: 607
Joined: Mon Mar 04, 2013 04:32 PM

Re: Como acceder a objeto en definicion del mismo.

Posted: Mon Jul 22, 2019 10:03 PM

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

En la definición acceder al objeto.

Saludos

Jose.

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM

Re: Como acceder a objeto en definicion del mismo.

Posted: Tue Jul 23, 2019 12:17 AM
Es posible que lo que necesites es utilizar la data bLClicked o bLDblClicked del objeto
Code (fw): Select all Collapse
   oSay:bLClicked := { || .....  }
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
jvtecheto
Posts: 607
Joined: Mon Mar 04, 2013 04:32 PM

Re: Como acceder a objeto en definicion del mismo.

Posted: Tue Jul 23, 2019 09:09 AM
cnavarro wrote:Es posible que lo que necesites es utilizar la data bLClicked o bLDblClicked del objeto
Code (fw): Select all Collapse
   oSay:bLClicked := { || .....  }


Hola Cristobal.

entonces esto deberia funcionar.
Code (fw): Select all Collapse
 oSay:bLClicked := { || MsgInfo("Se ha pulsado click en el Say") }


¿Porque no funciona?

Saludos.
Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM

Re: Como acceder a objeto en definicion del mismo.

Posted: Tue Jul 23, 2019 09:27 AM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
jvtecheto
Posts: 607
Joined: Mon Mar 04, 2013 04:32 PM

Re: Como acceder a objeto en definicion del mismo.

Posted: Tue Jul 23, 2019 12:03 PM

Hola Cristobal:

Ahhh. Tienes toda la razon como siempre (Igual que mi mujer :lol: :lol: )

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.

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM

Re: Como acceder a objeto en definicion del mismo.

Posted: Tue Jul 23, 2019 03:02 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM

Re: Como acceder a objeto en definicion del mismo.

Posted: Tue Jul 23, 2019 04:43 PM
Hola: En Fw1204 lo siguiente funciona.
Code (fw): Select all Collapse
REDEFINE SAY oDoc PROMPT "CDiario #" ID 4013 OF oDlg 
oDoc:lWantClick := .t.
oDoc:blClicked := {|| oDoc:VarPut("Hola"), oDoc:Refresh()}
*oDoc:blClicked := {|| MsgInfo("Hola")}
Saludos.
Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: Como acceder a objeto en definicion del mismo.

Posted: Tue Jul 23, 2019 05:25 PM
https://wiki.fivetechsoft.com/doku.php?id=fivewin_commands_say

Code (fw): Select all Collapse
#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
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
jvtecheto
Posts: 607
Joined: Mon Mar 04, 2013 04:32 PM

Re: Como acceder a objeto en definicion del mismo.

Posted: Fri Jul 26, 2019 10:48 AM

Hola:

Gracias FranciscoA , Joao

Jose

:lol:

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64

Continue the discussion

Static archive · New replies & topics via GitHub Discussions