Hey, Scripting Guy! How Can I Get an HTA to Remember Its Previous Position Onscreen?

re: Hey, Scripting Guy! How Can I Get an HTA to Remember Its Previous Position Onscreen?

'Angel — Mon, 06 Jun 2011 01:42:32 GMT

As Sarkie says, none of these scripts work.

Unfortunately, Microsoft did not provide this for an HTA,

why is this.

re: Hey, Scripting Guy! How Can I Get an HTA to Remember Its Previous Position Onscreen?

Sarkie — Wed, 19 Jan 2011 08:48:09 GMT

Well, I must say, none of these scripts work.

Unfortunate because this would be an interesting solution for an HTA

re: Hey, Scripting Guy! How Can I Get an HTA to Remember Its Previous Position Onscreen?

Pavlus — Thu, 16 Dec 2010 21:41:54 GMT

To get the REAL top left corner of your HTA window just run it at the beginig:

var xoffset = screenLeft;

var yoffset = screenTop;

window.moveTo(xoffset,yoffset);

xoffset -= screenLeft;

yoffset -= screenTop;

xoffset,yoffset - is your "theme offset", the difference between window and client screen coordinates. To get real top left coords do:

winLeft = screenLeft + xoffset;

winTop = screenTop + yoffset;

re: Hey, Scripting Guy! How Can I Get an HTA to Remember Its Previous Position Onscreen?

herky — Thu, 16 Dec 2010 14:17:52 GMT

tooooo bad window.offscreenBuffering = true is not working ... :( would be really good to have that. never the less

<pre>

Sub Window_onLoad

window.offscreenBuffering = true

Dim OuterWidth ' initial outer Size width

Dim OuterHeight ' initial outer Size height

Dim intLeft ' initial Left distance

Dim intTop ' initial Top distance

Dim intHlafW ' middle pos x

Dim intHalfH ' middle pos y

Dim BorderWidth ' calc border w (both sides in one)

Dim BorderHeight ' calc border h (both sides in one ! Bottom -> like BorderWidth/2)

OuterWidth = 400

OuterHeight = 250

window.ResizeTo OuterWidth,OuterHeight

window.MoveTo 0,0

BorderWidth = OuterWidth-document.body.clientWidth

BorderHeight = OuterHeight-document.body.clientHeight

intHlafW = Round((OuterWidth+BorderWidth)/2)

intHalfH = Round((OuterHeight+BorderHeight)/2)

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("HTA.ini", ForReading)

strContents = objFile.ReadAll

objFile.Close

arrContents = Split(strContents, ",")

window.moveTo (arrContents(0)-intHlafW), (arrContents(1)-intHalfH)

window.ResizeTo OuterWidth+BorderWidth,OuterHeight+BorderHeight

End Sub

Sub Window_onBeforeUnLoad

intLeft = window.screenLeft+intHlafW-(BorderWidth/2)

intTop = window.screenTop+intHalfH-(BorderHeight-BorderWidth/2)

Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("HTA.ini", ForWriting)

objFile.WriteLine intLeft & "," & intTop

objFile.Close

End Sub

</pre>

re: Hey, Scripting Guy! How Can I Get an HTA to Remember Its Previous Position Onscreen?

herky — Wed, 15 Dec 2010 15:48:40 GMT

cool thing - although offscreenBuffering isn't working :( tried a around but my hta still jumps to the new position instead of appearing.

help appreciated ;)

re: Hey, Scripting Guy! How Can I Get an HTA to Remember Its Previous Position Onscreen?

xpietoe — Thu, 18 Nov 2010 15:31:24 GMT

There seems to be a problem with this in that the moveto method is relative to the top left of the outer window, including the menu bar and window frame. The screenLeft/Top properties are relative to the inner window, excluding the menu bar and window frame. This results in an offset of 4px,30px - if XP themes are turned on. Or, an offset of 4px,23px if XP themes are off. To be percise, you would then need to query for the theme state, then adjust your window offset accordingly (intTop = window.ScreenTop-23, etc)

re: Hey, Scripting Guy! How Can I Get an HTA to Remember Its Previous Position Onscreen?

finbom — Wed, 15 Jul 2009 12:17:53 GMT

Hi. I prefer to store this kind of settings in the registry. :)

This way settings follow the user (if using roaming profiles) when changing computer.

Otherwise. cool! :)