>Hi all,
>
>I have dropped the web on themed control (available at codeplex) it's all good stuff. However the vertical scrollbar is missing when it should be there. Any ideas how I can force it to show please.
Public oForm
Local lcHTML
oForm = Newobject('HTMLViewerForm')
oForm.Show
With oForm.htmlviewer
.navigate2("about:blank")
TEXT TO lcHTML noshow
<html>
<body scroll="no">
Remove <font color=#FF0000>scroll="no"</font> from body element<br><br>
<input
type="button"
value="Click here to toggle scroll bar"
OnClick='return body.scroll=(body.scroll=="yes"?"no":"yes")'/>
</body>
</html>
ENDTEXT
.Document.Write(m.lcHTML)
Endwith
Define Class HTMLViewerForm As Form
Height = 500
Width = 800
Add Object htmlviewer As OleControl With ;
height = 500, Width = 800, Anchor=15, ;
oleclass = 'Shell.Explorer'
Procedure htmlviewer.Refresh
Nodefault
Endproc
EnddefineCetin
