by Silvio.Falconi » Tue May 02, 2017 7:20 pm
found!!!!!!
Function Mostra_html(cHtml,cPath)
Local ohtmlDlg
Local oActiveX
MemoWrit(cPath+"MiHtml.htm",chtml)
DEFINE WINDOW ohtmlDlg TITLE "html test
oActiveX := TActiveX():New( ohtmlDlg, "Shell.Explorer.2" )
ohtmlDlg:oClient = oActiveX // To fill the entire window surface
oActiveX:Do("Navigate2",cPath+"MiHtml.htm")
ACTIVATE WINDOW ohtmlDlg
RETUR NIL
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com