rollout unnamedRollout "Untitled" width:399 height:330
(
slider sld1 "Slider" pos:[93,95] width:255 height:44 toolTip:"dsfsd" type:#integer
--spinner ball_radius "Ball radius" controller:(sld1.value.controller )
local bm = bitmap 30 20 color:white
imgtag b5 "imgtag" bitmap:bm align:#center
label lab1 ""
on sld1 changed arg do
(
b5.pos = (mouse.screenpos +[0,-60])-(GetDialogPos unnamedRollout)
lab1.pos = (mouse.screenpos +[0,-60])-(GetDialogPos unnamedRollout)
lab1.text = (sld1.value) as string
--print (sld1.value) as string
)
on sld1 buttondown do
(
lab1.pos = (mouse.screenpos +[0,-60])-(GetDialogPos unnamedRollout)
)
on sld1 buttonup do
(
lab1.text =""
)
-- on unnamedRollout open do
-- (
-- lab1.text = (sld1.value) as string
-- )
)
CreateDialog unnamedRollout
