HTA Window Glue Component

Jun 2, 2005

Fully commented...

<?XML version="1.0"?>
<component>
<?component error="true" debug="true"?>
<comment>-------------------------------------------------------------

'HTA Window Glue' script component (file name: HTAWnGlue.wsc)

Description:

a tacky attempt at persisting 'window settings', to restore
size/position at run time (within available screen space)

Usage:

include a link element inside an HTA element, like so:


(no need for '' outside of this file)

Behavior:

*.xml is saved to the 'Application Data' directory (by default), in
a folder entitled 'HTAWnGlueData' the xml files are named/retrieved,
according to each HTA's APPLICATIONNAME value

the HTA's WINDOWSTATE attribute must be kept to its default value of
"normal" for the adhesion behavior to stick, so to speak...

Settings:

there are three 'resource' tags in this component:

"glueDir"
sets the top-level directory, where the data folder
is created; this can be changed in the text of that
tag, for example:

currently that is: 0x1a
(- the shell special folder constant for 'ssfAPPDATA')

"minWidth" and "minHeight"
set minimum dimensions of a window...

Notes:

white-space counts as data in the resource tags

the initial resize can be hidden from view, if a seperate script is
included immediately below the opening  tag of
the HTA, like so:

- "normal" WINDOWSTATE is important in this context

all things considered, the component is probably best suited for
resizable HTA's without minimize and maximize buttons...

------------------------------------------------------------</comment>

<implements type="Behavior" id="GlueCode" />

<resource id="glueDir">0x1a</resource>
<resource id="minWidth">100</resource>
<resource id="minHeight">100</resource>

<script language="JScript">
<![CDATA[

GlueCode.attachNotification(function(message)
{
if(message != "documentReady")
return;

var HTA, appName;
if(!((HTA = GlueCode.element.parentElement) && HTA.windowState == "normal" &&
(appName = sysConvention(HTA.applicationName)).length && !external))
return;

var IShellDispatch, IXMLDOMDocument;
if(!((IShellDispatch = AXO("Shell.Application")) &&
(IXMLDOMDocument = AXO(["Msxml2.DOMDocument.4.0","Msxml2.DOMDocument","Microsoft.XMLDOM"]))))
return;

var N, Folder, persist, FolderItem, storageDir = "HTAWnGlueData";
if(!(Folder = IShellDispatch.NameSpace(isNaN(N = +(Folder = attempt(function()
{return getResource("glueDir");}))) ? Folder : N)))
return;

Folder.NewFolder(storageDir);
Folder = IShellDispatch.NameSpace(Folder.Self.Path + "" + storageDir);

var client = document.body, availWidth = screen.availWidth, availHeight = screen.availHeight;

window.attachEvent("onbeforeunload",function()
{
if(!persist)
return;

root = IXMLDOMDocument.documentElement;

root.setAttribute("left", screenLeft);

root.setAttribute("top", screenTop);

root.setAttribute("width", client.offsetWidth);

root.setAttribute("height", client.offsetHeight);

attempt(function(){IXMLDOMDocument.save(IXMLDOMDocument.url || Folder.Self.Path + "" + appName);});
});

IXMLDOMDocument.async = false;

if(!(FolderItem = Folder.ParseName(appName = appName + ".xml")))
{
persist = IXMLDOMDocument.loadXML("<HTAWindow left="" top="" width="" height="" />");
return schedule(function(){
moveTo((availWidth - client.offsetWidth) / 2, (availHeight - client.offsetHeight) / 2);});
}
if(!(persist = IXMLDOMDocument.load(FolderItem.Path)))
return;
var m = 32000;
schedule(function(){moveTo(-m,-m);},function()
{
var
root = IXMLDOMDocument.documentElement,

persistLeft = +root.getAttribute("left"),

persistTop = +root.getAttribute("top"),

persistWidth = +root.getAttribute("width"),

persistHeight = +root.getAttribute("height"),

borderWidth = screenLeft + m,

captionHeight = screenTop + m,

minWidth = (isNaN(minWidth = Math.abs(parseInt(attempt(function()
{return getResource("minWidth")}))))) ? 100 : minWidth,

minHeight = (isNaN(minHeight = Math.abs(parseInt(attempt(function()
{return getResource("minHeight")}))))) ? 100 : minHeight,

size = function()
{resizeTo(Math.max(minWidth, Math.min(availWidth, persistWidth + (borderWidth * 2))),
Math.max(minHeight, Math.min(availHeight, persistHeight + captionHeight + borderWidth)));},

move = function()
{moveTo(Math.max(0, Math.min(persistLeft - borderWidth, availWidth - (client.offsetWidth + (borderWidth * 2)))),
Math.max(0, Math.min(persistTop - captionHeight, availHeight - (client.offsetHeight + captionHeight + borderWidth))));};

schedule(size,function(){schedule(move);});
});

function sysConvention(filename){
var
p1 = /[x00-x1f<"/?*|:>]/g,

p2 = /^[. ]+|[. ]+$/g,

p3 = RegExp("(^AUX$|^CLOCK$$|^COM1$|^COM2$|^COM3$|^COM4$|^COM5$|^COM6$|^COM7$|^COM8$|^COM9$|" +
"^CON$|^LPT1$|^LPT2$|^LPT3$|^LPT4$|^LPT5$|^LPT6$|^LPT7$|^LPT8$|^LPT9$|^NUL$|^PRN$)","i");

return filename.replace(p1,"").replace(p2,"").replace(p3,"$1_");}

function attempt(method,test){
try{throw method();}catch(result){return result instanceof Error ? null : result || test;}}

function schedule(method,next){
!attempt(method,true) ? setTimeout(function(){schedule(method,next);},55) : attempt(next);}

function AXO(progId,loc){
if(!(progId instanceof Array))
return bind(progId);
function bind(pId){
try{
throw loc ? new ActiveXObject(pId,loc) : new ActiveXObject(pId);}
catch(obj){
return obj instanceof Error ? null : obj;}}
var retval, p, i = -1;
while(p = progId[++i])
if(retval = bind(p))
break;
return retval;}
});

]]>
</script>
</component>
Info on script components... http://msdn.microsoft.com/library/en-us/dnclinic/html/scripting091399.asp

HTA:APPLICATION Element: http://msdn.microsoft.com/workshop/author/hta/reference/objects/hta.asp

View 1 Replies

HTA Window Glue Component

JQuery :: Evaluate Component Of AJAX Response After Injecting HTML Component In Page?

Greasemonkey 'Component Is Not Available'

JQuery :: Datepicker Component Not Selected?

JQuery :: Dynamically Set Position For A Component?

Firebug: Component.singularize Is Not A Function

JQuery :: Picking The Order Of Images In A Component?

JQuery :: How To Reload Component (Second Selected Item)

Background Image Gone After Adding JS Component / Get That Back?

Building A Horizontal Slider/menu Component?

Register And Host ActiveX Component In Windows / Internet Explorer

Advanced DHTML Dropdown List Component With Autofilter Feature

Script Or List Component That Allow To Change Order By Drag & Drop?

JQuery :: Good Web UI Component Libraries - Cross Browser Compatible And Have Good Documentation

Uncaught Exception: Exception... "Component Returned Failure Code: 0x80004003

Cross Browser Compatibility - Error: Uncaught Exception: [Exception... "Component Returned Failure"

Child Window Close Event - Opening Another Link In A Separate Window Using Window.open()

WEB Site Opens An Application Window And Then, From Its Original Window It Navigates To A Status Page?

Automaticaly Clsoe The Parent Window When The Child Window Opened In Firefox?

Script To Close Old Window And Open New Window With New Link And Specific Size

Form Opening In The Main Window/ Simeltaneiously Closes Popup Window

Window.opener Either Blocks When I Referesh The Parent Page Or Opens In New Window?

Child Pop Up Race Condition Using Window.open Need To Detect Window.onload

Window.resizeTo() Inside A Window.onResize Event Handler Function?

JQuery :: Create A Hidden Form Field In A Parent Window From Within A Child Window - Popup

Trouble Retrieving Window Location From A Previously Opened Window ?