侧his

rollout unnamedRollout "Untitled" 399 height:330
(
	slider sld1 "Slider" pos:[93,95] 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