#69461 - 2002-08-29 09:33 PM
BBChecker II Update
MM club member
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.
; 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)
$DirectionIsUp = 1
$Timer.Interval = 10
$Popup.Height = $Popup.Height + 3
$Popup.Top = $Popup.Top - 3
If $Popup.Height => $h
$Popup.Height = $h
$Timer.Interval = 5000
$DirectionIsUp = 0
$Popup.Height = $Popup.Height -3
$Popup.Top = $Popup.Top + 3
If $Popup.Top >= ($Popup.Screen.Height-$b)
$Timer.Enabled = 0
[ 03. September 2002, 19:41: Message edited by: Chris S. ]
Moderator: Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Mart
and 36 anonymous users online.