Modo nativo para reemplazar clase "sayref"

[jose_murugosa]

Hola,

Muchos de Uds. conocen seguramente la clase sayref, excelente clase (que aún funciona) que permite al hacer click sobre un say ir a una página web.

He hecho varias pruebas tratando de usar un get sin borde y darle la misma apariencia y usar el método click.... pero no he podido hacer que funcione.

Alguien ha resuelto esto?

Apreciaría mucho vuestra ayuda, ya que lo que natura non da Salamanca non presta

[karinha]

SENSISTIVE SAY és mucho mejor.

Code: Select all

#Include "FiveWin.Ch"
#Include "SSay.Ch"

FUNCTION SSAY_ABOUT()

    LOCAL oDlg, iDcor, oFnt, oSay, cMail, cMail2, cPagina, oIco, cUrl

    cMail  := "kapiabafwh@gmail.com"
    cMail2 := "kapiabafwh@yahoo.com"
    cUrl   := "http://www.fivewin.com.br"

    REDEFINE SENSITIVE SAY oSay PROMPT cMail        ;
       COLOR CLR_HBLUE LIGHT                        ;
       COLOROVER CLR_HRED  UPDATE  RAISED           ;
       ON MOUSEOVER SndPlaySound( "Select.Wav" )    ;
       ACTION WinExec( "Start MailTo:" + cMail, 0 ) ;
       CENTER TRANSPARENT ID 110 OF oDlg

RETURN NIL
 

[leandro]

Tambien se puede hacer con ulrlink

Code: Select all

@  10,365 SAYBARCODE oSay TEXT  cUrlLink TYPE "QR-CODE" SIZE 200,200 PIXEL OF oDlg UPDATE
 

[nageswaragunupudi]

Code: Select all

#include "fivewin.ch"
#include "urllink.ch"


@ r, c URLLINK oUrl URL "www.google.com" SIZE w,h PIXEL OF oDlg
 

Please see urllink.ch for full syntax.
This is a full FWH class

[jose_murugosa]

Muchas gracias,

FWH realmente es tan completo actualmente que no es necesario estar utilizando clases viejas.

MUUUUUCHAS GRACIAS POR SU BUENA DISPOSICION!!!!

Es extraordinario ser parte de este foro de soporte, gracias Karinha, Mr. Rao y Leandro.

[leandro]

Mr. Rao aprovechando la oportunidad.

Seria posible URLLINK dentro de xbrowse?

De antemano gracias

[nageswaragunupudi]

Mr. Rao aprovechando la oportunidad.

Seria posible URLLINK dentro de xbrowse?

De antemano gracias

http://forums.fivetechsupport.com/viewt ... =3&t=38652