Re: SENSITIVE SAY
Posted: Mon Jan 26, 2009 8: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
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)