How create a small box to call a html page ?
Best Regards, Saludos
Falconi Silvio
Falconi Silvio
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour BOX with html
Silvio,
You can use a SAY with no text or "[ ]" (etc.) like in this example:
You can use a SAY with no text or "[ ]" (etc.) like in this example:
#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)sorry I am explaining bad
I want open a Tpanel when I open the main window of my application and show into a page ( html)
Best Regards, Saludos
Falconi Silvio
Falconi Silvio
Silvio,
Please review FWH\samples\webexp.prg
is it what you want ?