Hi Glenn,
Thanks to both of you! It works perfect, except there are no controls, ie
return to previous page, reload, etc. Is that a separate program??
you could build your own controls...see code below (watch for wrap)
HTH, Marc
** END HEADER -- do not remove this line
//
// Generated on 05/12/2008
//
parameter bModal
local f
f = new fbrowserForm()
if (bModal)
f.mdi = false // ensure not MDI
f.readModal()
else
f.open()
endif
class fbrowserForm of FORM
with (this)
onOpen = class::FORM_ONOPEN
metric = 6 // Pixels
height = 549.0
left = 3.0
top = 0.0
width = 801.0
text = "VdBLogic fBrowser"
mdi = false
maximize = true
refreshAlways = false
endwith
this.CONTAINER1 = new CONTAINER(this)
with (this.CONTAINER1)
transparent = true
left = 0.0
top = 0.0
width = 801.0
height = 43.0
borderStyle = 3 // None
anchor = 2 // Top
endwith
this.CONTAINER1.ENTRYFIELD1 = new ENTRYFIELD(this.CONTAINER1)
with (this.CONTAINER1.ENTRYFIELD1)
onChange = { ; form.Activex1.nativeObject.navigate(this.value) }
key = class::ENTRYFIELD1_KEY
height = 25.0
left = 15.0
top = 5.0
width = 538.0
value = "Address"
maxLength = 200
endwith
this.CONTAINER1.PUSHBUTTON1 = new PUSHBUTTON(this.CONTAINER1)
with (this.CONTAINER1.PUSHBUTTON1)
onClick = {; form.Activex1.nativeObject.goBack()}
height = 25.0
left = 560.0
top = 5.0
width = 35.0
text = ""
upBitmap = "RESOURCE #104"
pageno = 0
endwith
this.CONTAINER1.PUSHBUTTON2 = new PUSHBUTTON(this.CONTAINER1)
with (this.CONTAINER1.PUSHBUTTON2)
onClick = {; form.container1.entryfield1.onchange()}
height = 25.0
left = 644.0
top = 5.0
width = 56.0
text = "Reload"
pageno = 0
endwith
this.CONTAINER1.PUSHBUTTON3 = new PUSHBUTTON(this.CONTAINER1)
with (this.CONTAINER1.PUSHBUTTON3)
onClick = class::GOHOME
height = 25.0
left = 707.0
top = 5.0
width = 56.0
text = "Home"
pageno = 0
endwith
this.CONTAINER1.PUSHBUTTON4 = new PUSHBUTTON(this.CONTAINER1)
with (this.CONTAINER1.PUSHBUTTON4)
onClick = {; form.Activex1.nativeObject.goforward()}
height = 25.0
left = 598.0
top = 5.0
width = 35.0
text = ""
upBitmap = "RESOURCE #100"
pageno = 0
endwith
this.ACTIVEX1 = new ACTIVEX(this)
with (this.ACTIVEX1)
height = 506.0
left = 0.0
top = 43.0
width = 801.0
state = "BBBEBBBBGQGDBBBBPDEEBBBB"
classId = "{1339B54C-3453-11D2-93B9-000000000000}"
anchor = 6 // Container
endwith
with (this.ACTIVEX1.nativeObject)
DocumentComplete = class::MOZILLA
endwith
function ENTRYFIELD1_key(nChar, nPosition,bShift,bControl)
if nchar = 13
this.onchange()
endif
return
function gohome
form.container1.entryfield1.value = form.home
form.container1.entryfield1.onchange()
return
function Mozilla(pDisp, URL)
form.container1.entryfield1.value = this.locationurl
return
function Form_onOpen
form.home ="www.google.de"
this.Activex1.nativeObject.navigate(form.home)
this.container1.entryfield1.value=form.home
return
endclass