#69461 - 2002-08-29 09:33 PM
BBChecker II Update
|
Chris S.
MM club member
Registered: 2002-03-18
Posts: 2368
Loc: Earth
|
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. ]
|
Top
|
|
|
|
#69467 - 2002-08-29 10:00 PM
Re: BBChecker II Update
|
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
|
Chris,
I am trying your rev of Lonk's Code.. Problem is that I am getting a DOS Box that pops up and then goes away..
Hmm...
Kent
|
Top
|
|
|
|
#69469 - 2002-08-29 10:04 PM
Re: BBChecker II Update
|
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
|
I am using Lonkero's install program.. Using Kixtart 4.10.. Lemme go and grab 4.11.
Kent
|
Top
|
|
|
|
#69472 - 2002-08-29 10:16 PM
Re: BBChecker II Update
|
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
|
Jooel,
Is there a new version of BBChecker? Just went to your site and it is dated 7 August 2002.
Thanks!
Kent
|
Top
|
|
|
|
Moderator: Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart
|
1 registered
(Allen)
and 566 anonymous users online.
|
|
|