forum.vdsworld.com

[noveltech]

Hello from Jax Fl.

Thanks to everyone! Most helpful Forum I have been to.

Hoping someone could assist me with two problems below.

Thanks, Mike.

Two Questions concerning Auto Hide Taskbar.

1. Is it possible to have a function key that would bring
down your taskbar after it hides?

2. My menu text will not return to normal dark color after Taskbar hides and then returns.

I am attaching the script that pertains to Problem 2.

I have also noticed that the script below if highlighted and copied {Ctrl C}to ClipBoard and then Paste {Ctrl V} to VDS....Html is also copied.

This may be old news to the experienced window users...but, it was great when I discovered that paste to notepad, copy from notepad to VDS removed all HTML. Just in case any other newbies were suffering with the same problems with paste to VDS from Forum Scripts.


REM Script begins here
option ErrorTrap,ErrorBranch
option Scale,96
option Sleeptime,100
title Top
%%programname = Top
dialog CREATE,Top,0,0,@sysinfo(SCREENWIDTH),10,NOTITLE,ONTOP
dialog SHOW
%%status = 1
DIALOG ADD,MENU,&Exit,E&xit
DIALOG SHOW

:Evloop
wait event,0
%e = @event()
goto %E

:Timer
if @equal(%%Status,0)
parse "%X;%Y",@mousepos()
if @not(@greater(%Y,5))
%%null = 2
repeat
window Position,Top,0,0,@sysinfo(SCREENWIDTH),%%Null
%%null = @succ(%%Null)
until @equal(%%Null,20)
%%status = 1
%%visibletimer = 0
end
goto evloop
end
if @equal(%%Status,1)
parse "%X;%Y",@mousepos()
if @greater(%Y,20)
%%visibletimer = @succ(%%VisibleTimer)
if @greater(%%VisibleTimer,10)
%%null = 20
repeat
window Position,Top,0,0,@sysinfo(SCREENWIDTH),%%Null
%%null = @fsub(%%Null,1)
until @equal(%%Null,1)
%%status = 0
end
goto evloop
end
goto evloop
:ErrorBranch
window NORMAL,Program Manager
%%null = @msgbox("An error has occured with the "@chr(34)%%ProgramName@chr(34)@cr()"program. You may wish to write down the following"@cr()"information and report this to author of the program:"@cr()@cr()"Error Code:"@tab()@error(E)@cr()"Line Number:"@tab()@error(N)@cr()"Event Status:"@tab()%E@cr()@cr()"Please report the error information to:"@cr()@tab()"??@??????",Program Error,$010)
stop

:ExitMENU
Exit

[Dr. Dread]