global test_floater

rollout test_roll_1 "test rollout 1" (
 label lbl_test "test rollout 1"
)
rollout test_roll_2 "test rollout 2" (
 label lbl_test "test rollout 2"
)
rollout test_subroll_1 "test subrollout 1" (
 label lbl_test "test subrollout 1"
)
rollout test_subroll_2 "test subrollout 2" (
 label lbl_test "test subrollout 2"
)
rollout test_control "test control" (
 checkbutton ckb_roll_1 "rollout 1"
 checkbutton ckb_roll_2 "rollout 2"
 checkbutton ckb_subroll_1 "subrollout 1"
 checkbutton ckb_subroll_2 "subrollout 2"
 subrollout sub_roll "subrollout here" width:256 height:64 align:#center
 
 on ckb_roll_1 changed state do (
  if (state) then ( addrollout test_roll_1 test_floater )
  else ( removerollout test_roll_1 test_floater )
 )
 on ckb_roll_2 changed state do (
  if (state) then ( addrollout test_roll_2 test_floater )
  else ( removerollout test_roll_2 test_floater )
 )
 on ckb_subroll_1 changed state do (
  if (state) then ( addsubrollout sub_roll test_subroll_1 )
  else (removesubrollout sub_roll test_subroll_1 )
 )
 on ckb_subroll_2 changed state do (
  if (state) then ( addsubrollout sub_roll test_subroll_2 )
  else ( removesubrollout sub_roll test_subroll_2 )
 )
)
test_floater = newRolloutFloater "Hello" 512 512
addrollout test_control test_floater

Creative Commons License

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-동일조건변경허락 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.

(
 --dotnet.loadassembly "System.Data" 
 rollout ro_test "test"
 (  
  dotnetcontrol dg "System.Windows.Forms.DataGridView"
  
  on ro_test open do
  (
   local colWidth = 160
   local fromCol = dotNetObject "System.Windows.Forms.DataGridViewTextBoxColumn"
   fromCol.headerText = "Original Textures"
   fromCol.readOnly = true
   fromCol.frozen = true
   fromCol.width = colWidth
   
   local toCol = dotNetObject "System.Windows.Forms.DataGridViewTextBoxColumn"
   toCol.headerText = "New Textures"
   toCol.width = colWidth
   
   dg.columns.add fromCol
   dg.columns.add toCol
   
   dg.Location = dotNetObject "System.Drawing.Point" 10 10
   dg.Width = 400
   dg.Height = 400
   dg.Visible = true
   
   for i = 1 to 5 do
   (
    local row = #(dotNetObject "System.String" ("row str"))
    dg.rows.add row
   )
  )
 )
 
 createdialog ro_test 500 500
)

Creative Commons License

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-동일조건변경허락 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.