Slider with no annoying dotted border

[martin]

I've often seen it asked for so I thought it should be in examples.

Originally an idea by BigDod and improved by smashly.

;example $slider1 = _GuiCtrlCreateSliderB(100,80,160,40)


Func _GUICtrlCreateSliderB($x, $y, $w, $h)
    Local $sld = GUICtrlCreateSlider($x, $y, $w, $h, $WS_CLIPSIBLINGS)
    GUICtrlCreateLabel("", $x, $y - 1, $w, 2)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUICtrlCreateLabel("", $x, $y + $h - 1, $w, 2)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUICtrlCreateLabel("", $x - 1, $y, 2, $h)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUICtrlCreateLabel("", $x + $w - 1, $y, 2, $h)
    GUICtrlSetState(-1, $GUI_DISABLE)
    Return $sld

EndFunc;==>_GUICtrlCreateSliderB

EDIT: credited BigDod & smashly, and added disabling the labels as smashly had done.

Edited May 3, 2008 by martin

[Valuater]

I've often seen it asked for so I thought it should be in examples.

Gotcha in Autoit Wrappers

8)

Edited May 1, 2008 by Valuater

[martin]

Gotcha in Autoit Wrappers

8)

Damn, I didn't think to look there. I should have known.

Hopefully yours didn't have the error mine had which I'll correct.

EDIT: Oh, I see, I didn't realise you meant you'd put my example there. Thanks Valuater.

Edited May 1, 2008 by martin