#88056 - 2002-09-19 08:06 AM
Re: devel of new checker
|
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
|
Shawn,
quote:
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings] "Anchor Color Visited"="128,0,128" "Anchor Color"="0,0,255" "Background Color"="192,192,192" "Text Color"="0,0,0" "Use Anchor Hover Color"="No"
HTH,
Kent
|
Top
|
|
|
|
#88064 - 2002-09-19 04:18 PM
Re: devel of new checker
|
Chris S.
MM club member
Registered: 2002-03-18
Posts: 2368
Loc: Earth
|
Jooel said:
quote:
if I then put the slider into the main process, it does not steal focus but it hangs the main form.
Are you creating the slider form from within the slider() function? If so, remember to destroy it before exiting the function. When I was working on integrating my slider into your script I found that if I didn't I got all sorts of problems.
|
Top
|
|
|
|
#88067 - 2002-09-19 05:41 PM
Re: devel of new checker
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
Hats off to you if you get it to work - the challenge with framing the Checker is that you will (probably) have to erase background (clear) the form and redraw the border every time the checker gets resized by the the user (which is often) ... I will be implementing OnResize in a future release. Might want to check out that KixMessenger script as well - it also draws a couple of borders around the inside of the form (also uses variable width lines) but have never seen a dynamic border draw done yet.
|
Top
|
|
|
|
#88073 - 2002-09-20 12:04 AM
Re: devel of new checker
|
MightyR1
MM club member
Registered: 1999-09-09
Posts: 1264
Loc: The Netherlands
|
Shawn
is this what you where looking for??? If so, let us see you take your hat off
code:
Function slide($sc,$scv) Dim $t,$d,$p,$l,$c,$h,$w,$h1,$poplabel $d = 1 $h = 22 $h1 = 18 $w = 300 $p = CreateObject("Kixtart.Form") $p.height = 0 $t=$p.screen.height-75 $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)/2
$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
$$ptopline=$$p.line(0,0,$$p.width,0) $$pleftline=$$p.line(0,0,0,$$p.height) $$prightline=$$p.line($$p.width-1,0,$$p.width-1,$$p.height) $$p.forecolor=$$p.RGB(255,255,0) $$pbottomline=$$p.line(1,$$p.height-2,$$p.width-1,$$p.height-2) $$p.forecolor=0 $$pbottomline=$$p.line(0,$$p.height-1,$$p.width,$$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
$$ptopline=$$p.line(0,0,$$p.width,0) $$pleftline=$$p.line(0,0,0,$$p.height) $$prightline=$$p.line($$p.width-1,0,$$p.width-1,$$p.height) $$p.forecolor=$$p.RGB(255,255,0) $$pbottomline=$$p.line(1,$$p.height-2,$$p.width-1,$$p.height-2) $$p.forecolor=0 $$pbottomline=$$p.line(0,$$p.height-1,$$p.width,$$p.height-1)
If $$p.top>$$t $$c.Enabled=0 $$p.Hide EndIf Else $$d=2 EndIf EndIf " $p.height=0 $p.Show $p.ShowInTaskbar = 0 $p.TopMost = 1
While $p.Visible $=Execute($p.DoEvents) Loop
EndFunction
Jooel,
notice the $p.height=0 before the $p.show. It gets rid of the JUMP we discussed earlier... Maybe you could use it in your slider.udf for the position of the slider.
_________________________
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
|
|
|
|
#88074 - 2002-09-20 01:01 AM
Re: devel of new checker
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
|
Top
|
|
|
|
Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart
|
1 registered
(Allen)
and 382 anonymous users online.
|
|
|