root/lang/ruby/ruwin/test.rb

$LOAD_PATH << File.expand_path("lib")
require "ruwin"

class MyWindow < Ruwin::Window
  include Ruwin::Component::Clickable
  
  attr_reader :children
  def initialize *args
    @children = {}
    super
  end
end

window = MyWindow.new 0, 0, 500, 500 do |window|
  window.hscroll.visible = true
  window.vscroll.visible = true
end
# サブウィンドウの設定
window.children[:button] = Ruwin::Button.new window, 0, 0, 100, 30 do |control|
  control.caption = "Change"
end
def (window.children[:button]).clicked
  @parent.children[:checkbox].indeterminate = !@parent.children[:checkbox].indeterminate
  @parent.children[:checkbox].caption =
    if @parent.children[:checkbox].indeterminate
      "3STATE"
    else
      "CHECKBOX"
    end
end

def window.on_command msg
  case msg.lParam
  when @children[:button].hWnd
    @children[:button].clicked
  end
end
def window.on_focus msg
  p :WM_SETFOCUS
end
# window.addEvent Ruwin::Message::WM_KEYDOWN
# window.vscroll.auto_disable = true
# p window.vscroll.__send__(:get_scroll_info)
window.vscroll.min       = -100
window.vscroll.max       =  100
window.vscroll.page_size = 0
window.vscroll.position  = 95
window.hscroll.page_size = 1
window.hscroll.max       = 100

window.children[:checkbox] = Ruwin::CheckBox.new window, 0, 30, 100, 30 do |control|
  control.indeterminate = true
  control.caption = "3STATE"
end
=begin
Ruwin::RadioButton.new window, 0, 60, 100, 30 do |control|
  control.caption = "caption"
end
Ruwin::RadioButton.new window, 0, 90, 100, 30 do |control|
  control.caption = "caption"
end
Ruwin::RadioButton.new window, 0, 120, 100, 30 do |control|
  control.caption = "caption"
end
=end

window.children[:scroll_value] = Ruwin::Static.new window, 200, 200, 100, 30
control = Ruwin::ScrollBar::Horz.new window, 0, 150, 100, 30
control.min = -100
control.max =  100
control.position = 50
control.page_size = 10
def control.changed value
  @parent.children[:scroll_value].caption = value.to_s
  p @parent.children[:list_box].position
  @parent.children[:list_box].selection value
  p @parent.children[:list_box].position
end

list_box = window.children[:list_box] = Ruwin::ListBox::Multiple.new(window, 300, 200, 100, 100)
10.times{|i| list_box.push "text_#{i}" }
10.times{|i| list_box.insert 0, "text_#{i}" }
p list_box.each.with_index{|v, i| list_box.selection i if v.match /9$/ }

window.show

SWin::Application.messageloop