OpenConf_Scripts/htmlview.js - master - MadDAD/alterplast

OpenConf_Scripts/htmlview.js
41 строка1 KB
trdm
24 мар 2017, 12:42
24 мар 2017, 12:42988c847
/*
������� ������� ���� WebBrowser'� � ������������� � �������� ����������,
��������� � ���� �������� � ���������� ������, � �������� ����������� �������
�������� ��������.
*/
function ShowHtml(url,title)
{
	h=OpenOleForm("Shell.Explorer", title)
	/*
	������-�� VBScript �� ������������� � �������� WebBrowser'�,
	������� ������������ JScript. ������� �������, ��� � JScript
	��������� ��������� ������� � ����������� ������������ �������,
	��������� ��������� ��������, �� ��� ��� �������.
	*/
	SelfScript.AddNamedItem("Html",h,false)
    eval('function Html::DocumentComplete(d,u){ return HtmlDC(0)}');
	Html.Navigate2(url)
}

/*
���������� ������� ��������� �������� ��������.
��������������, ��� � �������� �� ���� �������� ���� ����� SetConf,
����� ������� � �������� ���������� ������ Configurator.
*/
function HtmlDC(_)
{
	// ��������� � �������� Configurator
	try{
	Html.Document.Script.SetConf(Configurator)
	}catch(e)
	{
		Message("�� ������� �������� Configurator � ��������")
	}
	// ������������ ������, ����� �� ��� ����� � �������� ������ ��������
	Scripts.Reload(SelfScript.Name)
}

function ShowTestPage()
{
	ShowHtml(BinDir+"test.htm","Test page")
}