WOot! Christmas in August. I'm downloading now. Sliders!
Here's a Slider/Panel example I put together.
set display mode 800,600,32
sync on
sync rate 0
guiInit()
color as DWORD
redSlider = 255
greenSlider = 155
blueSlider = 0
alphaSlider = 128
` make a smaller font for the labels
gui.fontID = a2CreateFont("verdana", 16, 0, 1)
do
` make a background
cls 0xFFC0D0FF
for y = 0 to 600 step 10
for x = 0 to 800 step 10
a2Box x,y,x+10,y+10,0xFFA0B0DD
next x
next y
` Calculate the color
color = rgb(255-alphaSlider, 255-redSlider, 255-greenSlider, 255-blueSlider)
` Make the panel.
myPanel = guiPanelBegin(GEN_ID, 250, 100, 300, 320, 0xFFFFFFFF, color, 0, 0)
` Make the sliders.
redSlider = guiVSlider(GEN_ID, 30, 30, 30, 255, redSlider, 255, 10)
greenSlider = guiVSlider(GEN_ID, 100, 30, 30, 255, greenSlider, 255, 10)
blueSlider = guiVSlider(GEN_ID, 170, 30, 30, 255, blueSlider, 255, 10)
alphaSlider = guiVSlider(GEN_ID, 240, 30, 30, 255, alphaSlider, 255, 10)
` Make labels for the sliders.
guiShadowLabel(GEN_ID, 32, 15, 30, 30, str$(255-redSlider), 1, 0, 0xFFFFFFFF, 1, 1, 0x88000000)
guiShadowLabel(GEN_ID, 102, 15, 30, 30, str$(255-greenSlider), 1, 0, 0xFFFFFFFF, 1, 1, 0x88000000)
guiShadowLabel(GEN_ID, 172, 15, 30, 30, str$(255-blueSlider), 1, 0, 0xFFFFFFFF, 1, 1, 0x88000000)
guiShadowLabel(GEN_ID, 242, 15, 30, 30, str$(255-alphaSlider), 1, 0, 0xFFFFFFFF, 1, 1, 0x88000000)
guiShadowLabel(GEN_ID, 22, 285, 50, 30, "Red", 1, 0, 0xFFFFFFFF, 1, 1, 0x88000000)
guiShadowLabel(GEN_ID, 92, 285, 50, 30, "Green", 1, 0, 0xFFFFFFFF, 1, 1, 0x88000000)
guiShadowLabel(GEN_ID, 162, 285, 50, 30, "Blue", 1, 0, 0xFFFFFFFF, 1, 1, 0x88000000)
guiShadowLabel(GEN_ID, 232, 285, 50, 30, "Alpha", 1, 0, 0xFFFFFFFF, 1, 1, 0x88000000)
guiPanelEnd()
guiUpdate()
sync
loop
