SENSITIVE SAY

[Rick Lipkin]

Silvo

Please forgive me .. I am watching how this thread plays out ... here is the code I changed to .. all I wanted was to click on a link and execute a browser .. Antonio suggested this code .. but there is no 'mouse over'

Rick

Code: Select all  Expand view

//-------------------------
Static Func _Webhelp( cOLDDEFA, dEXE )

LOCAL oDLG,oBRU, oSAY, oSAY1

DEFINE BRUSH oBru FILENAME ( cOLDDEFA+"\SPLASH.BMP" )

DEFINE DIALOG oDLG ;
     TITLE "Intranet Help" ;
     SIZE 500, 320 BRUSH oBRU TRANSPARENT

     @ 3,2 SAY oSay PROMPT "Click here for PCAS Intranet  Manuals" ;
        PIXEL of oDLG  COLOR "W+/W"
   oDlg:aControls[ 1 ]:lTransparent = .t.

    @ 150,2 SAY oSay1 PROMPT "Revision Date "+dtoc( dEXE )+;
        "    "+FWVERSION+"  "+VERSION() PIXEL of oDLG  COLOR "W+/W"
   oDlg:aControls[ 2 ]:lTransparent = .t.

oSay:lWantClick = .T.
oSay:bLClicked = { || SHELLEXECUTE(nil,"open", "http://intranet/co/financial_management/pcas.htm",0,0,1) }


ACTIVATE DIALOG oDLG CENTERED

RETURN(NIL)


[Antonio Linares]

Rick,

This code is properly working here (its yours with some minor changes). Tested with FWH 9.01:

Code: Select all  Expand view

#include "FiveWin.ch"

Function Main()

   LOCAL oDLG,oBRU, oSAY, oSAY1, oHand

   DEFINE CURSOR oHand HAND

   DEFINE BRUSH oBru FILENAME ( "SPLASH.BMP" )

   DEFINE DIALOG oDLG ;
     TITLE "Intranet Help" ;
     SIZE 500, 320 BRUSH oBRU TRANSPARENT

   @ 3,2 SAY oSay PROMPT "Click here for PCAS Intranet  Manuals" ;
      PIXEL of oDLG  COLOR "W+/W"
   
   oDlg:aControls[ 1 ]:lTransparent = .t.

   @ 150,2 SAY oSay1 PROMPT "Revision Date "+dtoc( Date() )+;
        "    "+FWVERSION+"  "+VERSION() PIXEL of oDLG  COLOR "W+/W"
   
   oDlg:aControls[ 2 ]:lTransparent = .t.

   oSay:lWantClick = .T.
   oSay:bLClicked = { || SHELLEXECUTE( nil,"open", "http://www.yahoo.com",0,0,1) }
   oSay:oCursor = oHand


   ACTIVATE DIALOG oDLG CENTERED

RETURN(NIL)


You may download the EXE, PRG and BMP from here:
http://www.mediafire.com/?sharekey=572e ... eaa7bc68bc

[Rick Lipkin]

Antonio

YUP .. Awsome, it works with FWH 8.11 .. just fine for me !!

Rick Lipkin

[Silvio]

Antonio,
I made your modifies to control file but it not run ok
I see a white rectangule
I Now make a small test and send you it

[Jonathan Hodder]

Very nice.

I'm looking at a 16 bit program using the old sensitive say class.
I also recall it working on an earlier 32bit compile.
This old class has an additional feature that sets the 'say' appart.

There is a mouse over option eg oSay:bMMoved.

It was easy to set up in the SSay.ch include

This changed the colour of the text...
COLOR COLOURSRCHFORE COLOROVER COLOURSRCHOVER
(notice third parameter)
and provided an optional code block to be performed...
ON MOUSEOVER SndPlaySound( 'Select.wav' )

It would be very nice to duplicate the old class in FW's 'say' class.
This would be 'Awsome'.

Best wishes

Jonathan Hodder