模拟c++ 控件

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

posted on 2011-12-27 15:41  盖天00  阅读(152)  评论(0编辑  收藏  举报

导航