wrb 2.0.0

data/lib/wrb/documents/samples/sample_button.rb

@@ -0,0 +1,21 @@
+require 'wrb'
+module WR
+  class MyForm < Form
+    def initialize()
+      self.size =268, 201
+      self.inheritfont = ['Meiryo', -12]
+      _<< Button[:button1, "button", 10, 10, 80, 24]
+      _<< Button[:button1, "left", 10, 46, 80, 24, :left]
+      _<< Button[:button1, "right", 10, 82, 80, 24, :right]
+      _<< Button[:button1, "rightbtn", 10, 118, 80, 24,:center]
+      _<< Button[:button1, "top", 110, 10, 80, 40, :top]
+      _<< Button[:button1, "bottom", 110, 56, 80, 40, :bottom]
+      _<< Button[:button1, "multi\nline", 110, 102, 80, 40, :multiline]
+    end
+    
+    def button1_clicked(id, cmd, hwnd)
+      MessageBox APP.hwnd2ref(hwnd).caption, self.class.to_s
+    end
+    self.start
+  end
+end

data/lib/wrb/documents/samples/sample_checkbox.rb

@@ -0,0 +1,18 @@
+require 'wrb'
+module WR
+  class MyForm < Form
+    def initialize
+      self.size = [268, 201]
+      self.inheritfont = ['Meiryo', -12]
+      _<< Checkbox[:cbox1, "check me", 10, 10, 84, 24]
+      _<< Checkbox[:cbox2, "lefttext", 10, 40, 84, 24, :lefttext]
+      _<< Checkbox[:cbox3, "auto3state", 10, 70, 84, 24, 0x6, :auto3state]
+    end
+    
+    def cbox3_clicked(idcmd, *)
+      msgbox "state = #{controls.cbox3.checked.inspect}", "sample_checkbox", 0
+    end
+    
+    self.start
+  end
+end

data/lib/wrb/documents/samples/sample_combobox.rb

@@ -0,0 +1,18 @@
+require 'wrb'
+module WR
+  class Myform < Form
+    def initialize
+      self.size = [268, 201]
+      self.inheritfont = ['Meiryo', -12]
+      _<< Combobox[:cbox1, "", 4, 4, 80, 170, :simple]
+      _<< Combobox[:cbox1, "", 86, 4, 80, 170, :dropdown]
+      _<< Combobox[:cbox1, "", 168, 4, 80, 170]
+      7.times{|i| 3.times{|j| _cbox1[j] << "cbox1[#{j}] #{i}"}}
+    end
+    
+    def created()
+      dp "@cbox1=%#x, cbox2=%#x, cbox3=%#x", _cbox1[0].style, _cbox1[1].style, _cbox1[2].style
+    end
+    self.start
+  end
+end

data/lib/wrb/documents/samples/sample_comboboxex.rb

@@ -0,0 +1,23 @@
+require 'wrb'
+module WR
+  class Myform < Form
+    def initialize
+      self.size = 268, 201
+      _<< Imagelist.loadb64(:image1, "JJMAIBAYAAwAAgACAACAAf7/f7/AoQgDDAKEhE07AAAAAAQBAgECKIBgECAg
+AggKAAYGAQGyAkCFAAAAAAAAAIBsIAAABAQPQQCAgDnANCAWAAYDAYAAQEAk
+QA/wAAH/BdB/v+AOcBAIBYQgBgo/Bj+Dr8If4TPwq/he/DP+HD8PP4gvxF/i
+U/E7+Kb8V/4uPxg/jK/Gn+Nz8cv47vx7/kA/IT+RL8jf5JPyW/lHEMxmMxmM
+xgAAAiEQiEQiJMggiAUUolh+v1+v1/AgGBSI4lggCJawviVSw7fb7fb7ggAi
+0HBKGVQAIf6IRCPgQPBAVHriCCkED4IBvuCCkED4QBI9friEycID4ICQiQhg
+FCAuHAqPhkDAgOcuEMB0W+4fBouAQgAhgYCERO1MEQCEgQA/4cQTqfndrEAK
+daM8z5/5RQBgmLPv8AACMAMD/6DP0K/oe/RwAhE0fUdkgEDR2sA0kDANHb6V
+I0vgpH/Sh+ln9MX6a/06fp9/TRKqINTcA+AA+4AHAIIHwCEA8BBAHAYQAwIE
+AEChIGCh+AhKPf6Pf8EgazQuAD1NQrRg4AfAIQPwEDqdJD/+s6w=")
+      _<< ComboboxEx[:cboxx1, "", 4, 4, 120, 168, :dropdown, :imagelist=>_image1]
+      _<< ComboboxEx[:cboxx1, "", 124, 4, 120, 168, :imagelist=>_image1]
+      list = ['open', 1], ['doc1', 2, 1], ['doc2', 2, 1]
+      2.times{|i| _cboxx1[i][0, 0] = list + list << ['close', 0]}
+    end
+    self.start
+  end
+end

data/lib/wrb/documents/samples/sample_datetimepicker.rb

@@ -0,0 +1,11 @@
+require 'wrb'
+module WR
+  class MyForm < Form
+    def initialize
+      self.size = [268, 201]
+      self.font = ['Meiryo', -12]
+      _ << DateTimePicker[:dtp1, '', 10, 10, 195, 20]
+    end
+    self.start
+  end
+end

data/lib/wrb/documents/samples/sample_edit.rb

@@ -0,0 +1,25 @@
+require 'wrb'
+module WR
+  class MyForm < Form
+    def initialize
+      self.size = [268, 201]
+      self.inheritfont = ['Meiryo', -12]
+      _<< Edit[:edit1, "Edit", 4, 2, 92, 24]
+      _<< Edit[:edit1, "center", 4, 28, 92, 24, :center]
+      _<< Edit[:edit1, "right", 4, 54, 92, 24, :right]
+      _<< Edit[:edit1, "readonly", 4, 82, 92, 24,:readonly]
+      _<< Edit[:edit1, "123456", 4, 108, 92, 24, :number]
+      _<< Edit[:edit1, "abcxy", 4, 134, 92, 24, :password, :passwordchar=>'*']
+      _<< Edit[:edit2, "multiline", 100, 2, 148, 76, :multiline]
+      _<< Edit[:edit3, "multiline", 100, 82, 148, 76, :right, :multiline]
+      _edit2.text = <<EEOOFF
+This is a sample of mutiline.
+Please use "text=" instead."
+EEOOFF
+      _edit3.text = <<EEOOFF
+This is a sample of right justified mutiline.
+EEOOFF
+    end
+    self.start
+  end
+end

data/lib/wrb/documents/samples/sample_groupbox.rb

@@ -0,0 +1,19 @@
+require 'wrb'
+
+module WR
+  class MyForm < Form
+    def initialize
+      self.inheritfont = ["Meiryo", -12]
+      self.size = 268, 201
+      _<< Groupbox[:gbox1, "Group1", 10, 10, 110, 110]
+      _gbox1 << Radiobutton[:rbtn1, "select me", 8, 20, 84, 24]
+      _gbox1 << Radiobutton[:rbtn1, "select me", 8, 50, 84, 24]
+      _gbox1 << Radiobutton[:rbtn1, "select me", 8, 80, 84, 24]
+      _<< Groupbox[:gbox2, "Group2", 130, 10, 110, 110]
+      _gbox2 << Radiobutton[:rbtn2, "select me", 8, 20, 84, 24]
+      _gbox2 << Radiobutton[:rbtn2, "select me", 8, 50, 84, 24]
+      _gbox2 << Radiobutton[:rbtn2, "select me", 8, 80, 84, 24]
+    end
+    self.start
+  end
+end

data/lib/wrb/documents/samples/sample_hotkeyctrl.rb

@@ -0,0 +1,12 @@
+require 'wrb'
+module WR
+  class MyForm < Form
+    def initialize
+      self.size = [268, 201]
+      self.inheritfont = ['Meiryo', -12]
+      _<< Hotkeyctrl[:hotkey, 10, 10, 160, 24]
+    end
+    
+    self.start
+  end
+end

data/lib/wrb/documents/samples/sample_listbox.rb

@@ -0,0 +1,12 @@
+require 'wrb'
+module WR
+  class Myform < Form
+    def initialize
+      self.size = 268, 201
+      self.inheritfont = ["Meiryo", -12]
+      @lbox1 = _<< Listbox[:lbox1, "", 4, 4, 200, 160]
+      (1..10).each{|i| @lbox1 << "item#{i}"}
+    end
+    self.start
+  end
+end

data/lib/wrb/documents/samples/sample_listview.rb

@@ -0,0 +1,32 @@
+require 'wrb'
+module WR
+  class MyForm < Form
+    def initialize() # Generated by FormDesigner, and modified.
+      self.size = [268, 201]
+      self.inheritfont = ['Meiryo', -12]
+      _<< Imagelist.fromfile(:fileimg32, "./sampleimg32.iml")
+      _<< Imagelist.fromfile(:fileimg16, "./sampleimg16.iml")
+      _<< Listview[:listview1, "", 0, 0, 100, 200, :margin=>[0, 24, nil, 0], :smallimagelist=>_fileimg16, :normalimagelist=>_fileimg32]
+      _<< Listview[:listview2, "", 112, 0, 176, 200, 0x1, :margin=>[100, 0, 0, 0], :gridlines=>true, :fullrowselect=>true]
+      _listview2.columns << ["Name", 64, 0]
+      _listview2.columns << ["Size", 32, 3]
+      _listview2.columns << ["Value", 52, 1]
+      _<< Radiobutton[:smallbtn, "List", 4, 4, 44, 20, 0x9,:font=>:parent]
+      _<< Radiobutton[:normalbtn, "Icon", 48, 4, 52, 18, 0x9, :checked=>true, :font=>:parent]
+    end
+    
+    def created()
+      _listview1 << [["closed", 0], ['opend', 1], ['empty', 2], ['document', 3], ['Ruby!!', 4]]
+      _listview2 << [["closed\t0\t100"], ["opend\t1\t200"], ["empty\t2\t300"], ["document\t3\t400"], ["Ruby!!\tinf\tInfinity"]]
+    end
+    
+    def normalbtn_clicked(*)
+      _listview1.viewmode = :iconview
+    end
+    def smallbtn_clicked(*)
+      _listview1.viewmode = :listview
+    end
+    
+    self.start
+  end
+end

data/lib/wrb/documents/samples/sample_menu.rb

@@ -0,0 +1,21 @@
+require 'wrb'
+module WR
+  class MyForm < Form
+    def initialize() # Generated by FormDesigner, and modified.
+      self.size = [268, 201]
+      _<< Imagelist.fromfile(:imagelist1, "./editimg.iml")
+      _<< Menu[:popup1, _imagelist1, [:undo1, "Undo\tCtrl+Z", 0], [:redo1, "Redo\tCtrl+Y", 1], :sep, [:cut1, "Cut\tCtrl+X", 2], [:copy1, "Copy\tCtrl+C", 3], [:paste1, "Pasete\tCtrl+V", 4], Menu[:insert1, "Insert", 5]]
+      self.events = [:rbuttonup]
+    end
+    
+    def created()
+      _popup1._insert1[0, 0] = [:crlf1, "CRLF"], [:tab1, "TAB"]
+    end
+    
+    def self_rbuttonup(state, x, y)
+      _popup1.popup(x, y) if state==0
+    end
+    
+    self.start
+  end
+end

data/lib/wrb/documents/samples/sample_menubar.rb

@@ -0,0 +1,23 @@
+require 'wrb'
+module WR
+  class MyForm < Form
+    def initialize() # Generated by FormDesigner, and modified.
+      self.size = [268, 201]
+      _<< Imagelist.fromfile(:imagelist1, "./fileimg.iml")
+      _<< Menubar[:main, _imagelist1, Menu[:file, "&File"], Menu[:edit, "Edit"], Menu[:help, "Help"]]
+      _main._file << [[:open, "&Open\tCtrl+O", 1], [:save, "&Save", 2], Menu[:recent, "&Recent"], :sep, [:exit, "Exit", 5]]
+      _main._edit << [[:cut, "Cut\tCtrl+X"], [:copy, "Copy\tCtrl+C"], [:paste, "Paste\tCtrl+V"]]
+      _main._help << [[:help1, "Help", 6], [:version, "Version"]]
+    end
+    
+    def created()
+      _main.file.recent << [:recrntfile, "file1.rb", :recentfile, "file2.rb"]
+    end
+    
+    def exit_clicked(*)
+      close
+    end
+    
+    self.start
+  end
+end

data/lib/wrb/documents/samples/sample_monthcalender.rb

@@ -0,0 +1,11 @@
+require 'wrb'
+module WR
+  class Form1 < Form
+    def initialize()
+      resize 268, 201
+      _<< Monthcalender.new(:mc1, 11, 0, 230, 160)
+    end
+  end
+  
+  Form1.start
+end 

data/lib/wrb/documents/samples/sample_progressbar.rb

@@ -0,0 +1,14 @@
+require 'wrb'
+module WR
+  class MyForm < Form
+    def initialize()
+      resize 268, 201
+      _<< Button[:btn1, "Click me", 10, 10, 80, 24]
+      _<< Progressbar[:pg1, '', 10, 50, 150, 13]
+    end
+    def btn1_clicked(*)
+      _pg1.pos = 50
+    end
+    self.start
+  end
+end

data/lib/wrb/documents/samples/sample_radiobutton.rb

@@ -0,0 +1,14 @@
+require 'wrb'
+
+module WR
+  class MyForm < Form
+    def initialize
+      self.size = [268, 201]
+      self.inheritfont = ['Meiryo', -12]
+      _<< Radiobutton[:rbtn1, "select me", 10, 10, 84, 24]
+      _<< Radiobutton[:rbtn2, "select me", 10, 40, 84, 24]
+      _<< Radiobutton[:rbtn3, "lefttext", 10, 70, 84, 24, :lefttext]
+    end
+    self.start
+  end
+end

data/lib/wrb/documents/samples/sample_rebar.rb

@@ -0,0 +1,25 @@
+require 'wrb'
+module WR
+  class MyForm < Form
+    def initialize()
+      self.size = [268, 201]
+      _<< Imagelist.loadb64(:imagelist1, "
+JJMAIBAYAAgABAABoABoAf7/f7/AoQgDDAKEhE07AAAAAAQBAgECKIBgDSAg
+ANgKAAYGQQGxNgBgQoAAAAAAAABANhAAAAICB6CAQEAc4BoQCwADAYDAACAg
+EiAH+AAA/4LoP9/wBzgIBALCEAMFH4MfwlkRCIRCIgyjCEVEQjYR8MsIDkgi
+BSYIhoij0QiEfA4kAQOTgmFA40AQOSBCAguDA46BySIgRlA4+IEEHUYSoQcP
+irhCKGEcCPf74hiVCoSLwUKgHxFgmHBb4hh1AopERCpjRfG0chE0fR4kgEDH
+iuO2Zojw/IUKRUEi4n9HFJ/vADSKgeb/gEG+X+74CBPx/seAwT+P6TgQE/x+
+OYCBn4+QIDfz+gcE+YHAA6CAgegoJCYGUcMGAZMnylxA
+")
+      _<< Rebar[:rebar1, 0, 0, 0, 0]
+     _rebar1 << [:band1, 90, "band1", Toolbar[:toolbar1, 0, 0, 70, 24,  :noresize, :nodivider, :transparent, :tooltips, :imagelist=>:systemsmall]]
+      _rebar1._toolbar1 << [:bt1, :filenew, :infotip=>'New']
+      _rebar1._toolbar1 << [:bt1, :fileopen, :infotip=>'Open']
+      _rebar1._toolbar1 << [:bt1, :filesave, :infotip=>'Save']
+      _rebar1 << [:band2, 100, "band2", ComboboxEx[:cbx1, '', 0, 0, 72, 100, :imagelist=>_imagelist1]]
+      _rebar1._cbx1[0, 0] = ['hoge', 1], ['huge', 2, 1]
+    end
+    self.start
+  end
+end

data/lib/wrb/documents/samples/sample_richedit.rb

@@ -0,0 +1,60 @@
+# A sample of Richedit
+require 'wrb'
+module WR
+  class RbTextColor < Ripper::Filter
+    ClrDef = 0
+    ClrCmt = 0x007f00
+    ClrTxt = 0x00007f
+    ClrKwd = 0xff0000
+    ClrSym = 0x007f7f
+    
+    def on_default(event, token, rt) # Comment
+      rt.selection.format.facename = 'Consolas'
+      case event
+      when :on_kw
+        rt.selection.color = ClrKwd
+        rt[rt.textlength, 0] = token
+        rt.selection.color = ClrDef
+        return rt
+      when :on_comment
+        rt.selection.color = ClrCmt
+        rt[rt.textlength, 0] = token
+        rt.selection.color = ClrDef
+        return rt
+      when :on_tstring_beg
+        rt.selection.color = ClrTxt
+      when :on_tstring_end
+        rt.selection.color = ClrDef
+      when :on_symbeg
+        rt.selection.color = ClrSym
+        @symbeg = true
+      when :on_ident
+        if @symbeg
+          rt[rt.textlength, 0] = token
+          rt.selection.color = ClrDef
+          @symbeg = nil
+          return rt
+        end
+        rt.selection.color = ClrDef
+      else
+      end
+      rt[rt.textlength, 0] = token
+      rt
+    end
+  end
+  
+  class MyForm < Form
+    def initialize()
+      self.size = 268, 201
+      self.inheritfont = 'Consolas', -12
+      _<< Richedit[:richedit1, "", 0, 0, 100, 100, :vscroll, :hscroll, :margin=>[0,0,0,0]]
+    end
+    
+    def created()
+      s = open('sample_richedit.rb'){|f| f.read}
+      RbTextColor.new(s).parse(_richedit1)
+    end
+    
+    self.start
+  end
+end

data/lib/wrb/documents/samples/sample_splitter.rb

@@ -0,0 +1,33 @@
+require 'wrb'
+module WR
+  class MyForm < Form
+    def initialize()
+      self.size = [268, 201]
+      self.font = ["Meiryo", -12]
+      self.inheritfont = true
+      _<< Imagelist.fromfile(:fileimg32, "./sampleimg32.iml")
+      _<< Imagelist.fromfile(:fileimg16, "./sampleimg16.iml")
+      _<< Radiobutton[:smallbtn, "List", 4, 2, 44, 20, 0x9,:font=>:parent]
+      _<< Radiobutton[:normalbtn, "Icon", 48, 2, 44, 18, 0x9, :checked=>true, :font=>:parent]
+      _<< Splitter[:splitter1, 88, 0, 6, 6, :face=>:none]
+      _splitter1.left << Splitter[:splitter2, 0, 32, 6, 6, :horiz]
+      _splitter1.right << Listview[:listview2, "", 160, 0, 176, 200, 0x1, :margin=>[0, 0, 0, 0], :gridlines=>true, :fullrowselect=>true]
+      _splitter2.lower << Listview[:listview1, "", 0, 0, 128, 200, :margin=>[0, 0, 0, 0], :smallimagelist=>_fileimg16, :normalimagelist=>_fileimg32]
+      _listview2.columns << [["Name", 64, 0], ["Size", 32, 2], ["Value", 56, 1]]
+    end
+    
+    def created()
+      _listview1 << [["closed", 0], ['opend', 1], ['empty', 2], ['document', 3], ['Ruby!!', 4]]
+      _listview2 << [["closed\t0\t100"], ["opend\t1\t200"], ["empty\t2\t300"], ["document\t3\t400"], ["Ruby!!\tinf\tInfinity"]]
+    end
+    
+    def normalbtn_clicked(*)
+      _listview1.viewmode = :iconview
+    end
+    def smallbtn_clicked(*)
+      _listview1.viewmode = :listview
+    end
+    
+    self.start
+  end
+end

data/lib/wrb/documents/samples/sample_static.rb

@@ -0,0 +1,15 @@
+require 'wrb'
+module WR
+  class MyForm < Form
+    def initialize()
+      self.size = 268, 201
+      self.inheritfont = 'Meiryo', -12
+      _<< Static[:static1, "Plain text", 10, 10, 80, 24]
+      _<< Static[:static2, "Bitmap", 10, 40, 70, 24]
+      _<< Static[:static3, 80, 40, 160, 32, :bitmap, :bitmap=>Bitmap.fromfile('samplemg32.png')]
+      _<< Static[:static5, "Icon", 10, 80, 70, 24]
+      _<< Static[:static4, 80, 80, 48, 48, :icon, :centerimage, :icon=>Icon.fromfile('wrb.ico')]
+    end
+    self.start
+  end
+end