Page 2 of 2

Re: SENSITIVE SAY

PostPosted: Mon Jan 26, 2009 8:32 pm
by 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)

Re: SENSITIVE SAY

PostPosted: Mon Jan 26, 2009 8:56 pm
by 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

Re: SENSITIVE SAY

PostPosted: Mon Jan 26, 2009 10:21 pm
by Rick Lipkin
Antonio

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

Rick Lipkin

Re: SENSITIVE SAY

PostPosted: Tue Jan 27, 2009 10:22 am
by 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

Re: SENSITIVE SAY

PostPosted: Thu Jan 29, 2009 6:23 am
by 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