SHDocVw.WebBrowser elements

[Gintaras]

Function correctorweb

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

str controls = "3"
str ax3SHD
ax3SHD=""
if(!ShowDialog("correctorweb" &correctorweb &controls)) ret

;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 420 290 "Correctorweb"
;3 ActiveX 0x54030000 0x0 0 0 419 289 "SHDocVw.WebBrowser"
;END DIALOG
;DIALOG EDITOR: "" 0x2030208 "*" "" ""

ret
;messages
sel message
,case WM_INITDIALOG
,SHDocVw.WebBrowser we3
,we3._getcontrol(id(3 hDlg))
,we3.Navigate("http://revisor.com.ar/")
,opt waitmsg 1
,;rep() 0.1; if(!we3.Busy) break ;;wait until loaded. Here don't need because htm can wait.
,Htm el=htm("TEXTAREA" "ta" "" hDlg 0 0 0x121 60)
,el.Scroll
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1