#88039 - 2002-09-18 02:25 PM
Re: devel of new checker
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
Hey guys,
Im @ work right now and can't run BBChecker here (never could ) anyways ... whazaby with this ... can anyone reproduce this with a little test script ? Its kinda tough to track these things down with a big script that has dependencies, etc ... you know what I mean.
|
Top
|
|
|
|
#88040 - 2002-09-18 02:30 PM
Re: devel of new checker
|
Lonkero
KiX Master Guru
Registered: 2001-06-05
Posts: 22346
Loc: OK
|
oh boy... well, as it's only slider, it's not big script... wait a sec... code:
$t = $p.screen.height-taskbar() $d = 1 $p = CreateObject("Kixtart.Form") $p.BorderStyle = 0 $p.Height = 22 $p.Width = 300 $p.fontsize = 10 $p.fontname = "helvetica" $p.forecolor = 0 $p.fontbold = 1 $p.BorderStyle = 1 $p.backcolor = $p.RGB(255,255,0) $p.Top = $t $p.Left = $p.screen.width-760 $p.ShowInTaskbar = 0 $l = $p.hyperlink("$sc",2,2,296,18) $l.Backcolor = $p.RGB(255,255,0) $l.value = $scv $c = $p.Timer(20) $c.OnTimer = " If $$d=1 $$p.Top=$$p.Top-1 If $$p.top<($$t-40) $$c.Interval=3000 $$d=0 EndIf Else if $$d=2 $$c.Interval=20 $$p.Top=$$p.Top + 1 If $$p.top>$$t $$c.Enabled=0 $$p.Hide EndIf else $$d=2 endif EndIf " $p.Show $p.TopMost = 1 While $p.Visible $=Execute($p.DoEvents) Loop exit 0
Function TaskBar() If @dos=="4.0" $_S="StuckRects" Else $_S="StuckRects2" EndIf $TaskBar=Val("&"+SubStr(ReadValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\$_S","settings"),41,2)) EndFunction
_________________________
!download KiXnet
|
Top
|
|
|
|
#88049 - 2002-09-19 01:30 AM
Re: devel of new checker
|
MightyR1
MM club member
Registered: 1999-09-09
Posts: 1264
Loc: The Netherlands
|
I'm playing around with a slider for myself:
code:
Break on
$runie = "run '"+ReadValue("HKEY_CLASSES_ROOT\htmlfile\shell\open\command","")+" "
$d = 1 $h = 22 $h1 = 18 $w = 300 ;$t=700 $p = CreateObject("Kixtart.Form") $p.height = 0 $p.width = $w + 6 $p.fontsize = 10 $p.fontname = "helvetica" $p.forecolor = 0 $p.fontbold = 0 $p.BorderStyle = 0 $p.backcolor = $p.RGB(255,255,0) $p.Top = $t $p.Left = $p.screen.width-$p.width-20 $p.minbutton=0 $p.maxbutton=0
;$q = $p.label("",0,0,$p.width,3*$h1+3) ;$q.backcolor=$p.rgb(255,255,0) ;$q.borderstyle=1 $poplabel = $p.label($sc,4,2+$h1/2,$w-2,2*$h1) $poplabel.backcolor = $p.rgb(255,255,0) $poplabel.borderstyle = 0 $poplabel.alignment = 2 $p.onmousemove="$$poplabel.fontbold=0 $$poplabel.fontunderline=0" $poplabel.onmousemove="$$poplabel.fontbold=0 $$poplabel.fontunderline=1" $poplabel.onmouseup="$runie "+Chr(34)+$scv+Chr(34)+"' sleep 0.5 $$p.visible=0 "
$c = $p.Timer(20) $c.OnTimer = " If $$d=1 $$p.Top=$$p.Top - 1 $$p.height=$$p.Height+1 If $$p.top<($$t-3*$h1) $$c.Interval=3000 $$d=0 EndIf Else If $$d=2 $$c.Interval=20 $$p.Top=$$p.Top + 1 $$p.height=$$p.Height-1 If $$p.top>$$t $$c.Enabled=0 $$p.Hide EndIf Else $$d=2 EndIf EndIf " $p.height=0 $p.ShowInTaskbar = NOT 1 $p.Show $p.ShowInTaskbar = NOT 1 $p.TopMost = 1
While $p.Visible $=Execute($p.DoEvents) Loop
If I enable the q label, I can't click the link in the slider...
- - Me is missing something - -
_________________________
Greetz, Patrick Rutten
- We'll either find a way or make one... - Knowledge is power; knowing how to find it is more powerful... - Problems don't exist; they are challenges...
|
Top
|
|
|
|
#88052 - 2002-09-19 06:58 AM
Re: devel of new checker
|
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
|
Jooel,
Question..
With this newer version, at home I see colored hyperlinks.. At work, all black text.
Why is that?
Kent
|
Top
|
|
|
|
Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart
|
1 registered
(Allen)
and 382 anonymous users online.
|
|
|