侧his

 

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