wrb 2.0.0

data/lib/wrb.rb

@@ -0,0 +1,20 @@
+# Project WRB was forked from Project VisualuRuby(temp-name).
+# Author of this project: BANJO Koyu <banjokoyu at gmail.com>
+# The URL of this project: https://bitbucket.org/wrb/
+#
+# This is a script part of WRB.
+
+require 'rwin'
+
+module WR
+  WR_VERSION = '2.0.0'
+  ALLOWED_RW_VERSION = '2.0.0'
+  WR_INSTALLED_DIR = File.dirname(__FILE__)
+  if RWin::RW_VERSION < ALLOWED_RW_VERSION
+    raise "RWin(version #{RWin::RW_VERSION}) is too old to run this version(#{WR_VERSION}) of wrb." 
+  end
+  
+  $:.unshift WR_INSTALLED_DIR + '/wrb/components'
+  require 'wrb/base'
+end
+

data/lib/wrb/applications/frmdesigner/controls/Button.rb

@@ -0,0 +1,34 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Button.extend ModFormDesigner
+  class Button
+    FDConfig[:default_size] = [80, 24]
+    FDConfig[:attributes] = ['caption', 's'], ['position', 'ii'], ['size', 'ii'], ['margin', 'iiii,t'], ['font', 'sis,t'], ['idcmd', 'i']
+    FDConfig[:styles] = [:text, :icon, :bitmap, :left, :right, :center, :top,
+                                 :bottom, :vcenter, :multiline, :notify, :flat, :ownerdraw]
+    FDConfig[:altanate_mask] = [RC::BS_TYPEMASK, RC::BS_CENTER, RC::BS_VCENTER]
+  
+    FDConfig[:idcmd_get] = lambda{|ctl, val|
+      return nil unless ctl.parent.is_a?(Dialog)
+      case ctl.idcmd
+      when 1
+        "IDOK"
+      when 2
+      "IDCANCEL"
+      else
+        ""
+      end
+    }
+  
+    FDConfig[:idcmd_set] = lambda{|ctl, ar|
+      case ar[0].to_s.downcase
+      when "idok", "ok", "1"
+        1
+      when "idcancel", "cancel", "can", "2"
+        2
+      else
+        0
+      end
+    }
+  end
+end

data/lib/wrb/applications/frmdesigner/controls/Checkbox.rb

@@ -0,0 +1,10 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Checkbox.extend ModFormDesigner
+  class Checkbox
+    FDConfig[:default_size] = [100, 24]
+    FDConfig[:attributes] = ['caption', 's'], ['position', 'ii'], ['size', 'ii'], ['margin', 'iiii,t'], ['font', 'sis,t']
+    FDConfig[:styles] = [:threestate, :auto3state, :lefttext, :notify]
+    FDConfig[:altanate_mask] = [RC::BS_TYPEMASK]
+  end
+end

data/lib/wrb/applications/frmdesigner/controls/Combobox.rb

@@ -0,0 +1,88 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Combobox.extend ModFormDesigner
+  class Combobox
+    FDConfig[:default_size] = [128, 128]
+    FDConfig[:attributes] = ['caption', 's'], ['position', 'ii'], ['size', 'ii'], ['margin', 'iiii,t'], ['font', 'sis,t'], ['droppedwidth', 'i'], ['droppedheight', 'i']
+    FDConfig[:altanate_mask] = [RC::CBS_DROPDOWNLIST]
+    FDConfig[:need_childhook] = true
+    FDConfig[:size_out] = lambda{|ctl, atr| atr[1] = ctl.droppedheight; atr}
+    FDConfig[:droppedheight_out] = lambda{|ctl, atr| nil}
+    FDConfig[:droppedwidth_out] = lambda{|ctl, atr| ctl.w==atr || atr<0 ? nil : atr}
+    FDConfig[:attr_tabs] = 'Attributes', 'Styles', 'Events', 'Items'
+    
+    def __fd_recreate_this()
+      @_items = []
+      each{|i| @_items << i.to_s}
+      __fd_recreate()
+    end
+    
+    def __fd_set_lvitem(lv, ilist)
+      lv.viewmode = :reportview
+      lv.imagelist = ilist
+      lv.columns = ['', 248]
+    end
+    
+    def __fd_update_lv(lv)
+      lv.clear
+      each{|i| lv << i.to_s}
+    end
+    
+    def __fd_edit_item(lv, idx, subitem, ed)
+      case subitem
+      when 0
+        self[idx] = ed.text unless ed.text.empty?
+      else
+        ed.hide
+      end
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_lv_rclick(lv, idx)
+      [:additem, "Add Item", :sep, :deleteitem, "Delete"]
+    end
+    
+    def __fd_on_additem(lv, idx, mnu, id)
+      self << "item#{lv.count}"
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_deleteitem(lv, idx)
+      return if idx < 0
+      self.delete(idx)
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_delete_this()
+      return unless lns = @_toplevelwin.__fd_src[:lines]
+#      __fd_delete_items_src(self, lns)
+      __fd_delete_items_srcs(lns)
+    end
+    
+    def __fd_output_items(lns, curln, indent)
+      if count == 0
+        __fd_delete_items_srcs(lns)
+      else
+        ps = __fd_get_parents_str2
+        ar = []
+        each{|i| ar << "#{ps} << \"#{i}\""}
+        curln = __fd_set_items_srcs(lns, curln, indent, ar)
+      end
+      curln
+    end
+    def __fd_item_loaded(item, asrc)
+      extend ModFDItemsSrcLine unless @__fd_items_srcs
+      @__fd_items_srcs << asrc
+    end
+    
+#    def __fd_output_items__(lns, curln, indent)
+#      if count > 0
+#        a = []
+#        each{|i| a << "\"#{i}\""}
+#        s = __fd_get_parents_str2 + " << [#{a.join(', ')}]"
+#        __fd_set_items_src(self, lns, curln+=1, indent, s)
+#      end
+#      curln
+#    end
+  end
+end

data/lib/wrb/applications/frmdesigner/controls/ComboboxEx.rb

@@ -0,0 +1,97 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  ComboboxEx.extend ModFormDesigner
+  class ComboboxEx
+    FDConfig[:classify] = :commonctrl
+    FDConfig[:default_name] = "comboex"
+    FDConfig[:default_size] = [128, 128]
+    FDConfig[:attributes] = ['caption', 's'], ['position', 'ii'], ['size', 'ii'], ['margin', 'iiii,t'], ['font', 'sis,t'], ['droppedwidth', 'i'], ['droppedheight', 'i'],  ['imagelist', 'n']
+    FDConfig[:altanate_mask] = [RC::CBS_DROPDOWNLIST]
+    FDConfig[:need_childhook] = true
+    
+    FDConfig[:size_out] = lambda{|ctl, atr| atr[1] = ctl.droppedheight; atr}
+    FDConfig[:droppedheight_out] = lambda{|ctl, atr| nil}
+    FDConfig[:droppedwidth_out] = lambda{|ctl, atr| ctl.w==atr || atr<0 ? nil : atr}
+    FDConfig[:attr_tabs] = 'Attributes', 'Styles', 'Events', 'Items'
+    
+    def __fd_recreate_this()
+      @_items = []
+      each{|i| @_items << [i.text, i.image, i.indent]}
+      __fd_recreate()
+    end
+    
+    def __fd_set_lvitem(lv, ilist)
+      lv.viewmode = :reportview
+      lv.imagelist = ilist
+      lv.style &= ~LVS_NOCOLUMNHEADER
+      lv.columns = ['ItemText', 172], ['Img', 40], ['>>', 32]
+    end
+    
+    def __fd_update_lv(lv)
+      lv.clear
+      each{|i| lv << "#{i.text}\t#{i.image}\t#{i.indent}"}
+    end
+    
+    def __fd_edit_item(lv, idx, subitem, ed)
+      case subitem
+      when 0
+        self[idx].text = ed.text unless ed.text.empty?
+      when 1
+        self[idx].image = ed.text.to_i unless ed.text.empty?
+      when 2
+        self[idx].indent = ed.text.to_i unless ed.text.empty?
+      else
+        ed.hide
+      end
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_lv_rclick(lv, idx)
+      [:additem, "Add Item", :sep, :deleteitem, "Delete"]
+    end
+    
+    def __fd_on_additem(lv, idx, mnu, id)
+      self << "item#{lv.count}"
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_deleteitem(lv, idx)
+      return if idx < 0
+      self.delete(idx)
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_delete_this()
+      return unless lns = @_toplevelwin.__fd_src[:lines]
+      __fd_delete_items_srcs(lns)
+#      __fd_delete_items_src(self, lns)
+    end
+    
+    def __fd_output_items(lns, curln, indent)
+      if count == 0
+        __fd_delete_items_srcs(lns)
+      else
+        ps = __fd_get_parents_str2
+        ar = []
+        each{|i| ar << "#{ps} << [\"#{i.text}\", #{i.image}, #{i.indent}]"}
+        curln = __fd_set_items_srcs(lns, curln, indent, ar)
+      end
+      curln
+    end
+    
+    def __fd_item_loaded(item, asrc)
+      extend ModFDItemsSrcLine unless @__fd_items_srcs
+      @__fd_items_srcs << asrc
+    end
+    
+#    def __fd_output_items(lns, curln, indent)
+#      if count > 0
+#        a = []
+#        self.each{|i| a << [i.text, i.image, i.indent].inspect}
+#        s = __fd_get_parents_str2 + " << [#{a.join(', ')}]"
+#        __fd_set_items_src(self, lns, curln+=1, indent, s)
+#        end
+#      curln
+#    end
+  end
+end

data/lib/wrb/applications/frmdesigner/controls/DateTimePicker.rb

@@ -0,0 +1,11 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  include RC
+  DateTimePicker.extend ModFormDesigner
+  class DateTimePicker
+    FDConfig[:classify] = :commonctrl
+    FDConfig[:default_size] = [100, 24]
+    FDConfig[:attributes] = ['position', 'ii'], ['size', 'ii'], ['font', 'sis,t']
+    FDConfig[:need_recreate] = true
+  end
+end

data/lib/wrb/applications/frmdesigner/controls/Edit.rb

@@ -0,0 +1,8 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Edit.extend ModFormDesigner
+  class Edit
+    FDConfig[:default_size] = [80, 24]
+    FDConfig[:attributes] = ['caption', 's'], ['position', 'ii'], ['size', 'ii'], ['margin', 'iiii,t'], ['font', 'sis,t']
+  end
+end

data/lib/wrb/applications/frmdesigner/controls/Groupbox.rb

@@ -0,0 +1,9 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Groupbox.extend ModFormDesigner
+  class Groupbox
+    FDConfig[:default_size] = [128, 128]
+    FDConfig[:attributes] = ['caption', 's'], ['position', 'ii'], ['size', 'ii'], ['margin', 'iiii,t'], ['font', 'sis,t']
+    FDConfig[:styles] = [:notify]
+  end
+end

data/lib/wrb/applications/frmdesigner/controls/Hotkeyctrl.rb

@@ -0,0 +1,9 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Hotkeyctrl.extend ModFormDesigner
+  class Hotkeyctrl
+    FDConfig[:classify] = :commonctrl
+    FDConfig[:default_size] = [80, 24]
+    FDConfig[:attributes] = ['position', 'ii'], ['size', 'ii'], ['font', 'sis,t']
+  end
+end

data/lib/wrb/applications/frmdesigner/controls/Imagelist.rb

@@ -0,0 +1,115 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Imagelist.extend ModFormDesigner
+  class Imagelist
+    FDConfig[:classify] = :resources
+    FDConfig[:attributes] = 'iconsize' ,'masked', ['downlevel', 'b'], 'bindedfile'
+    FDConfig[:attr_tabs] = 'Attributes', 'Items'
+    FDConfig[:bindedfile_get] = lambda{|ctl, val| ctl.__fd_bindedfile.to_s rescue ''}
+  
+    def __fd_update_lv(lv)
+      lv.clear
+      count.times{|i| lv << [i.to_s, i]}
+      if __fd_bindedfile
+        path = File.expand_path(__fd_bindedfile, 
+                                File.dirname(__fd_toplevelwin.__fd_src[:filename]))
+        savefile(path, downlevel)
+      end
+    end
+      
+    def __fd_set_lvitem(lv, ilist)
+      lv.viewmode = :listview
+      @__dup ||= self.dup
+      lv.imagelist = @__dup, @__dup
+#      lv.imagelist = self, self
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_lv_rclick(lv, idx)
+      [:additem, "Add", :deleteitem, "Delete"]
+    end
+    
+    def __fd_on_additem(lv, idx, *)
+      return nil unless path = WR::OpenFileNameDlg.show(nil)
+      if open(path, 'rb'){|f| f.read(2)} == 'IL'
+        self << Imagelist.fromfile(path)
+        @__dup << Imagelist.fromfile(path)
+      else
+        self << Bitmap.fromfile(path)
+        @__dup << Bitmap.fromfile(path)
+      end
+      count.times{|i| lv << [i.to_s, i]}
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_deleteitem(lv, idx)
+      remove(idx)
+      @__dup.remove(idx)
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_edit_item(lv, idx, subitem, ed)
+      ed.isubitem = 0
+      src = idx; dst = lv[idx].text
+      return unless dst =~ /\s*\d+/
+      dst = dst.to_i
+      return if dst >= self.size || dst < 0
+      ico = self[src].icon
+      _ico = @__dup[src].icon
+      if src > dst
+        (dst..src).each{|i|
+          ico1 = self[i].icon
+          replaceicon(i, ico)
+          ico.dispose
+          ico = ico1
+          _ico1 = @__dup[i].icon
+          @__dup.replaceicon(i, _ico)
+          _ico.dispose
+          _ico = _ico1
+        }
+      elsif src < dst
+        (src..dst-1).each{|i|
+          ico1 = self[i+1].icon
+          replaceicon(i, ico1)
+          ico1.dispose
+          _ico1 = @__src[i+1].icon
+          @__dup.replaceicon(i, _ico1)
+          _ico1.dispose
+        }
+        replaceicon(dst, ico)
+      end
+      ico.dispose
+      _ico.dispose
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_delete_this()
+      return unless lns = __fd_toplevelwin.__fd_src[:lines]
+      return unless @__fd_src
+      lsrc, lcount = @__fd_src[2, 2]
+      if lcount
+        ll = lns.index(lsrc)
+        lns.slice!(ll, lcount)
+      else
+        lns.delete(lsrc)
+      end
+    end
+    
+    def __fd_imagelist_to_str(lns, curln, indent)
+      s = if @__fd_bindedfile
+        "Imagelist.fromfile(:#{self.name}, \"#{@__fd_bindedfile}\")\n"
+      else
+        "Imagelist.loadb64(:#{self.name}, \"#{self.dumpb64(self.downlevel)}\")\n"
+      end
+      __fd_update_src(lns, curln, indent, s)
+    end
+    
+    def __fd_to_str(lns, curln, indent)
+      __fd_imagelist_to_str(lns, curln, indent)
+    end
+    
+    def __fd_modify_src(lns, curln, indent)
+      __fd_imagelist_to_str(lns, curln, indent)
+    end
+  end
+end

data/lib/wrb/applications/frmdesigner/controls/Listbox.rb

@@ -0,0 +1,77 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Listbox.extend ModFormDesigner
+  class Listbox
+    FDConfig[:default_size] = [128, 128]
+    FDConfig[:attributes] = ['caption', 's'], ['position', 'ii'], ['size', 'ii'], ['margin', 'iiii,t'], ['font', 'sis,t']
+    FDConfig[:default_caption] = ""
+    FDConfig[:attr_tabs] = 'Attributes', 'Styles', 'Events', 'Items'
+  
+    def __fd_set_lvitem(lv, ilist)
+      lv.viewmode = :reportview
+      lv.imagelist = ilist
+      lv.columns = ['', 248]
+    end
+    
+    def __fd_update_lv(lv)
+      lv.clear
+      each{|i| lv << i.to_s}
+    end
+    
+    def __fd_edit_item(lv, idx, subitem, ed)
+      case subitem
+      when 0
+        self[idx] = ed.text unless ed.text.empty?
+      else
+        ed.hide
+      end
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_lv_rclick(lv, idx)
+      [:additem, "Add Item", :sep, :deleteitem, "Delete"]
+    end
+    
+    def __fd_on_additem(lv, idx, mnu, id)
+      self << "item#{lv.count}"
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_deleteitem(lv, idx)
+      return if idx < 0
+      self.delete(idx)
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_delete_this()
+      return unless lns = @_toplevelwin.__fd_src[:lines]
+      __fd_delete_items_src(self, lns)
+    end
+    
+    def __fd_output_items(lns, curln, indent)
+      if count == 0
+        __fd_delete_items_srcs(lns)
+      else
+        ps = __fd_get_parents_str2
+        ar = []
+        each{|i| ar << "#{ps} << \"#{i}\""}
+        curln = __fd_set_items_srcs(lns, curln, indent, ar)
+      end
+      curln
+    end
+    
+    def __fd_item_loaded(item, asrc)
+      extend ModFDItemsSrcLine unless @__fd_items_srcs
+      @__fd_items_srcs << asrc
+    end
+#    def __fd_output_items(lns, curln, indent)
+#      if count > 0
+#        a = []
+#        each{|i| a << "\"#{i}\""}
+#        s = __fd_get_parents_str2 + " << [#{a.join(', ')}]"
+#        __fd_set_items_src(self, lns, curln+=1, indent, s)
+#      end
+#      curln
+#    end
+  end
+end