Zipped up demo
here 5Mb.
Sample code from the demo, shows how you can construct the gui:
set window size 800,600
set window on
set window title "uiDemo"
sync on
backdrop on
color backdrop rgb(192,192,192)
global uiLoginFrame as integer
global uiLoginUsernameLabel as integer
global uiLoginUsername as integer
global uiLoginUsernameCheck as integer
global uiLoginPasswordLabel as integer
global uiLoginPassword as integer
global uiLoginPasswordCheck as integer
global uiLoginConnect as integer
global uiLoginQuit as integer
uiDummy=uiAddFrame(50,50,100,20,"Dummy",0) : uiSetVisible(uiDummy,0)
uiLoginFrame=uiAddFrame(50,50,340,100,"Login",0) : uiGadget(uiLoginFrame).dragable=1 : uiTooltip(uiLoginFrame,"Hold left button to drag to new position.")
uiLoginUsernameLabel=uiAddLabel(60,70,"Username",0) : uiSetParent(uiLoginUsernameLabel,uiLoginFrame)
uiLoginUsername=uiAddEdit(140,70,15,"") : uiSetParent(uiLoginUsername,uiLoginFrame) : uiTooltip(uiLoginUsername,"Username must be at least 4 characters long !")
uiLoginUsernameCheck=uiAddCheckbox(290,70,"Remember",0) : uiSetParent(uiLoginUsernameCheck,uiLoginFrame)
uiLoginPasswordLabel=uiAddLabel(60,95,"Password",0) : uiSetParent(uiLoginPasswordLabel,uiLoginFrame)
uiLoginPassword=uiAddEdit(140,95,15,"") : uiSetParent(uiLoginPassword,uiLoginFrame) : uiTooltip(uiLoginPassword,"Password must be at least 4 characters long !")
uiLoginPasswordCheck=uiAddCheckbox(290,95,"Remember",0) : uiSetParent(uiLoginPasswordCheck,uiLoginFrame)
uiLoginConnect=uiAddButton(60,125,"Connect") : uiSetParent(uiLoginConnect,uiLoginFrame) : uiTooltip(uiLoginConnect,"Press to connect to server.")
uiLoginProgress=uiAddProgress(60,125,320,15) : uiSetParent(uiLoginProgress,uiLoginFrame) : uiSetVisible(uiLoginProgress,0)
uiLoginQuit=uiAddButton(5,580,"Quit") : uiTooltip(uiLoginQuit,"Exit uiDemo")
uiSetTab(uiLoginUsername,uiLoginPassword)
uiSetTab(uiLoginPassword,uiLoginConnect)
uiSetTab(uiLoginConnect,uiLoginUsername)
uiCenterHorizontalGadget(uiLoginFrame) : uiCenterVerticalGadget(uiLoginFrame)
disable escapekey
while 1=1
if len(uiGadget(uiLoginUsername).label)>3 and len(uiGadget(uiLoginPassword).label)>3
uiSetVisible(uiLoginConnect,1)
else
uiSetVisible(uiLoginConnect,0)
endif
uiDraw()
uiProcess()
if uiGadgetFocus=uiLoginConnect then exit
if uiGadgetFocus=uiLoginQuit then end
sync
endwhile
uiSetVisible(uiLoginQuit,0)
uiSetVisible(uiLoginConnect,0)
uiSetVisible(uiLoginProgress,1)
for p=0 to 100 step 1
uiGadget(uiLoginProgress).pos=p
uiDraw() : sync
wait 50
next p
end
Scorpiomidget
