动态控件01

try(destroyDialog test)catch()

rollout test "动态控件" height:200
(
 fn sett num =
 (
  ff = createFile "c:\\dd.ms"
  strCodeLine = "rollout treeview_rollout \"TreeView Scene Browser\"\n"
  strCodeLine += "(\n"
  format strCodeLine to:ff
  for i = 1 to num do
  (
   ggg = "button dd"+(i as string)+ " \"测试按钮\" width:95 height:35\n"
   format ggg to:ff
  )
  
  strCodeLine01 = ")\n"
  strCodeLine01 += "try(destroyDialog treeview_rollout)catch()\n"
  --strCodeLine01 += "createDialog treeview_rollout 500 620"
  format strCodeLine01 to:ff
  close ff
 ) 
 
 spinner spn_indent "Indentation" range:[0,100,2] type:#integer fieldwidth:40
 
  on spn_indent changed val do
  (
   x = val
   sett x
   try(removeSubRollout test.test1 treeview_rollout)catch()
   fileIn "c:\\dd.ms"
  
   AddSubRollout test.test1 treeview_rollout
         test.test1.height += 680
  ) 
 

    subrollout test1 "test1" 
)

 

createdialog test 325 705 \
style:#(#style_toolwindow,#style_sysmenu,#style_resizing)
--AddSubRollout test.test1 treeview_rollout
--test.test1.height += 680

 

转载于:https://www.cnblogs.com/softimagewht/archive/2011/01/25/1944943.html