Snap or Dock Application to Top of Desktop
I'm working on creating a scrolling marquee type application for the purpose of delivering a constant stream of data to the user. Similar to a ticker marquee. I'm building it in an HTA which I will later convert to an EXE.
The code below creates a long/thin rectangle at the top of the screen (similar to the taskbar shape) and displays marquee text. I will later connect the text to an external source so that it can be updated on the fly.
Question: Is there a way I can snap/dock this application to the top of the computer display AND have the desktop icons auto-arrange to fit on the screen? Currently, my application overlaps the icons on the desktop which is not ideal. Overall, I'd like to create an marquee application that behaves similarly to when you move the taskbar at the top the top of your computer display and the desktop icons auto-arrange. I can imagine there may be limitations using HTA so I'm open to other code options as well.
Thanks!
Code:
<HEAD>
<meta http-equiv="refresh" content="120">
<meta charset="utf-8" />
<link rel="stylesheet" href="http://code.jquery.com/ui/1.10.2/themes/smoothness/jquery-ui.css" />
<script src="http://code.jquery.com/jquery-1.9.1.js"></script>
<script src="http://code.jquery.com/ui/1.10.2/jquery-ui.js"></script>
<link rel="stylesheet" href="/resources/demos/style.css" />
<style type="text/css">
</style>
<script language="vbscript">
screenWidth = Document.ParentWindow.Screen.AvailWidth
screenHeight = Document.ParentWindow.Screen.AvailHeight
window.resizeto screenWidth, 45
posLeft = 0
posTop = 0
window.moveTo posLeft, posTop
</script>
<!-------------------APPLICATION INFO------------------------------>
<TITLE></TITLE>
<HTA:APPLICATION ID="MyApp"
APPLICATIONNAME="NA"
BORDER="none"
BORDERSTYLE="static"
CAPTION="no"
SCROLL="no"
MAXIMIZEBUTTON="no"
MINIMIZEBUTTON="no"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="no"
SYSMENU="no">
</HEAD>
<BODY>
<body STYLE="font:11 pt verdana; color:white;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0, StartColorStr='#000000', EndColorStr='#bfbfbf')">
<!------------------------SUBS------------------------------------->
<SCRIPT LANGUAGE="VBScript">
Sub Window_OnLoad
span1.InnerText = "Systems will be down tonight from 10:00 PM - 11:00 PM for scheduled maintenance."
span2.InnerText = "Be sure to renew your bus passes by Friday!"
span3.InnerText = "The parking lot will be closed for repairs this weekend, please use lot across from the rear entrance."
span4.InnerText = "11:50 AM - Level 2"
span5.InnerText = "5+ minute hold time."
span6.InnerText = "All team meetings canceled."
End Sub
</SCRIPT>
<!------------------------CONTENT------------------------------------->
<table style="width:100%">
<tr>
<td width="67%">
<h1><font size="3" font color="white" font face="verdana"><marquee scrollamount="5" direction="left" onmouseover="this.stop();" onmouseout="this.start();">
<span id="span1"></span>
<span id="span2"></span>
<span id="span3"></span>
</font></marquee>
</td>
<td width="3%" bgcolor="#00FF00">
</td>
<td width="30%">
<h1><font size="3" font color="#00FFFF" font face="verdana"><marquee scrollamount="5" direction="left" onmouseover="this.stop();" onmouseout="this.start();">
<span id="span4"></span>
<span id="span5"></span>
<span id="span6"></span>
</font></marquee>
</td>
</tr>
</table>
</BODY>
