topic-14335

Posts: 2706

Joined: Fri Oct 07, 2005 01:50 PM

Re: SENSITIVE SAY
Posted: Mon Jan 26, 2009 08:32 PM

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 Collapse

//-------------------------
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

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: SENSITIVE SAY
Posted: Mon Jan 26, 2009 08:56 PM

Rick,

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

Code: Select all Collapse

#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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Rick Lipkin

Posts: 2706

Joined: Fri Oct 07, 2005 01:50 PM

Re: SENSITIVE SAY
Posted: Mon Jan 26, 2009 10:21 PM

Antonio

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

Rick Lipkin

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Re: SENSITIVE SAY
Posted: Tue Jan 27, 2009 10:22 AM

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

Best Regards, Saludos

Falconi Silvio

Jonathan Hodder

Posts: 77

Joined: Sun Aug 26, 2007 11:53 PM

Re: SENSITIVE SAY
Posted: Thu Jan 29, 2009 06:23 AM

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

FiveTech Support Forums

Continue the discussion