Jooel,

I hope you don't mind, but I redid your slider form so it wouldn't steal the focus from my current application anymore.

It uses a MSN Messenger-like popup window that slides up and down like your slider, but the focus stays on my current app. No more losing keystrokes while I'm working on something else.

It requires the latest version of KiXforms to work. Just replace the slider.kix file in the bbChecker folder.

code:
; New slider.kix for bbChecker
 
$Popup = CreateObject("Kixtart.Form")
 
$h = 120
$w = 300
 
$Popup.BorderStyle     	= 0
$Popup.ScaleHeight     	= 0
$Popup.ScaleWidth      	= $w
$Popup.ShowInTaskbar   	= False ; Not ready yet !
$Popup.TopMost		= True
 
$popLabel 			= $Popup.Label(@crlf+@crlf+@crlf+@crlf+$sc,,,$w,$h)
$popLabel.BACKCOLOR		= $Popup.RGB(255,255,255)
$popLabel.BorderStyle		= 4
$popLabel.Alignment		= 2
 
$Timer = $Popup.Timer(10)
$Timer.OnTimer = "Timer_Timer()"
 
$Popup.Top 		= $Popup.screen.height  - (($b-3)+$Popup.Height)
$Popup.Left		= $Popup.Screen.Width - ($w+15)
$Popup.Show
$DirectionIsUp = 1
 
While $Popup.Visible
 	$=Execute($Popup.DoEvents)
Loop
 	
Exit(0)
 
Function Timer_Timer()
	$Timer.Interval = 10
	If $DirectionIsUp
		$Popup.Height = $Popup.Height + 3
		$Popup.Top = $Popup.Top - 3
		If $Popup.Height => $h
			$Popup.Height = $h
			$Timer.Interval = 5000
			$DirectionIsUp = 0
			play "256t1d500f"
		EndIf
	Else
		$Popup.Height = $Popup.Height -3
		$Popup.Top = $Popup.Top + 3
		If $Popup.Top >= ($Popup.Screen.Height-$b)
			$Timer.Enabled = 0
			$Popup.Hide
		EndIf
	EndIf
EndFunction


[ 03. September 2002, 19:41: Message edited by: Chris S. ]