wrb 2.0.0

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

@@ -0,0 +1,36 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Timer.extend ModFormDesigner
+  class Timer
+    FDConfig[:classify] = :resources
+    FDConfig[:default_caption] = 1000
+    FDConfig[:attributes] = [['elapse', 'i'], ['started', 'b']]
+    FDConfig[:attr_tabs] = ['Attributes']
+    
+    def __fd_on_delete_this()
+      return unless lns = self.parent.__fd_src[:lines]
+      return unless @__fd_src
+      lsrc = @__fd_src[2]
+      lns.delete(lsrc)
+    end
+    
+    def __fd_timer_to_str(lns, curln, indent)
+      h = to_hsh
+      s = "#{h.delete('class')}[#{h.delete('name')}, #{h.delete('elapse')}"
+      s << if h.empty? 
+        ']' 
+      else
+        ', ' + h.inject([]){|r, v| r << ":#{v[0]}=>#{v[1]}"}.join(', ') + ']'
+      end
+      __fd_update_src(lns, curln, indent, s)
+    end
+    
+    def __fd_to_str(lns, curln, indent)
+      __fd_timer_to_str(lns, curln, indent)
+    end
+    
+    def __fd_modify_src(lns, curln, indent)
+      __fd_timer_to_str(lns, curln, indent)
+    end
+  end
+end

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

@@ -0,0 +1,165 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Toolbar.extend ModFormDesigner
+  class Toolbar
+    FDConfig[:classify] = :commonctrl
+    FDConfig[:default_size] = [128, 28]
+    FDConfig[:attributes] = ['caption', 's'], ['position', 'ii'], ['size', 'ii'], ['margin', 'iiii,t'], ['font', 'sis,t'], ['imagelist', 'n']
+    FDConfig[:attr_tabs] = 'Attributes', 'Styles', 'Events', 'Buttons'
+#    FDConfig[:imagelist_out] = lambda{|ctl, atr| atr}
+    FDConfig[:imagelist_get] = lambda{|ctl, atr| 
+      atr.respond_to?(:name) ? atr.name.to_s : (atr.is_a?(Symbol) ? ":#{atr}" : "")
+    }
+    FDConfig[:imagelist_set] = lambda{|ctl, ar|
+      frm = ctl._toplevelwin
+      s = ar[0]
+      s.sub!(/^:/, '') ? s.intern : frm.controls.__send__(s)
+    }
+    def __fd_recreate_this()
+      @__extendedstyle = self.extendedstyle
+      @__systemimagelist = nil
+      @__imagelist = self.imagelist
+      @_buttons = []
+      self.each{|i|
+        tbb = Button[i.name, i.iimage, i.text, i.style]
+        tbb.idcmd = i.idcmd
+        tbb.owner = self
+        @_buttons << tbb
+      }
+      @controls.each{|i|
+        idx = SendMessage(TB_COMMANDTOINDEX, i.__associated_toolbar_id, 0)
+        i.close
+        i.w = self[idx].iimage
+      }
+      __fd_recreate()
+    end
+    
+    def __fd_edit_item(lv, idx, subitem, ed)
+      data = lv[idx].data
+      txt = ed.text
+      begin
+        case subitem
+        when 0 # Name
+          if (txt=="(sep)" || txt==":sep")
+            self[idx].style = BTNS_SEP
+          else
+            self[idx].name = txt.intern
+            self[idx].style = 0
+          end
+        when 1 # Image
+          self[idx].iimage = txt.empty? ? nil : txt.to_i
+        when 2 # Text
+          self[idx].text = txt.empty? ? nil : txt.to_s
+        when 3
+#          case txt
+#          when /^0[xX]/
+#            val = txt.to_i(16)
+#          when /[0-9]+/
+#            val = txt.to_i
+#          else
+#            val = 0
+#            txt.split(',').each{|i| val |= BtnStyles[i.strip.intern].to_i}
+#          end
+#          self[idx].style = val
+          self[idx].infotip = txt
+        end
+      rescue => err
+        $fd_main_frm.MessageBox "#{err}", "FormDesigner", 0x10
+      end
+      __fd_recreate_this
+      autosize
+    end
+    
+    def __fd_update_lv(lv)
+      lv.clear
+      buttoncount.times{|i|
+        bt = self[i]
+        nm = bt.style&TBSTYLE_SEP>0 ? "(sep)" : bt.name
+        s = sprintf("%s\t%d\t%s\t%s", nm, bt.iimage, bt.text, bt.infotip)
+        lv << [s, nil, nil, bt]
+      }
+    end
+  
+    def __fd_set_lvitem(lv, ilist)
+      lv.viewmode = :reportview
+      lv.imagelist = ilist
+      lv.style &= ~LVS_NOCOLUMNHEADER
+      lv.columns = ['Name',80], ['Img', 32], ['Text', 72], ['Infotip', 96]
+      __fd_update_lv(lv)
+    end
+
+    
+    def __fd_on_lv_rclick(lv, idx)
+      [:insertitem, "Insert", :deleteitem, "Delete"]
+    end
+      
+    def __fd_on_insertitem(lv, idx)
+      sname = get_toplevel_win.suffixed_name('tbbutton1')
+      self << [sname.intern, nil]
+      autosize
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_deleteitem(lv, idx)
+      ct = controls.find{|i| i.__associated_toolbar_id == idcmd}
+      ct.delete if ct
+      self[idx].delete
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_add_ctrl(x, y, ct)
+      idx = hittest(x-self.x, y-self.y)
+      insert(idx, ct)
+      ct.y = 0
+      ct
+    end
+  
+    def __fd_output_items(lns, curln, indent)
+      ps = __fd_get_parents_str2
+      ar = []
+      each{|bt|
+        if obj=controls.find{|i| i.__associated_toolbar_id == bt.idcmd}
+          ar << ps + " << " + obj.__fd_to_str_core(nil)
+        elsif bt.style==TBSTYLE_SEP
+          ar << ps + " << :sep"
+        else
+          s = sprintf("[%p, %p", bt.name, bt.iimage)
+          s << sprintf(", %p", bt.text) unless bt.text.empty?
+          s << sprintf(", %#x", bt.style) if bt.style > 0
+          s << ", :infotip=>'#{bt.infotip}'" unless bt.infotip.empty?
+          ar << ps + " << " + s + ']'
+        end
+      }
+      __fd_set_items_srcs(lns, curln, indent, ar)
+    end
+    
+    def __fd_item_loaded(item, asrc)
+      extend ModFDItemsSrcLine unless @__fd_items_srcs
+      @__fd_items_srcs << asrc
+    end
+    
+    def __fd_on_delete_this()
+      return unless lns = @_toplevelwin.__fd_src[:lines]
+      __fd_delete_items_srcs(lns)
+    end
+    
+#    def __fd_output_items__(lns, curln, indent)
+#      ar = []
+#      each{|bt|
+#        if obj=controls.find{|i| i.__associated_toolbar_id == bt.idcmd}
+#          ar << obj.__fd_to_str_core(nil)
+#        else
+#          ar << sprintf("[%p, %p, %p, %#x]", bt.name, bt.iimage, 
+#                                             bt.text.empty? ? nil : bt.text, bt.style)
+#        end
+#      }
+#      if ar.empty?
+#        __fd_delete_items_src(self, lns)
+#      else
+#        s = __fd_get_parents_str2 + " << [#{ar.join(', ')}]"
+#        __fd_set_items_src(self, lns, curln+=1, indent, s)
+#      end
+#      curln
+#    end
+  end
+end

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

@@ -0,0 +1,34 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Trackbar.extend ModFormDesigner
+  class Trackbar
+    FDConfig[:classify] = :commonctrl
+    FDConfig[:default_size] = [100, 30]
+    FDConfig[:attributes] = ['position', 'ii'], ['size', 'ii'], ['range', 'ii', [0, 100]], ['tics', 'a', []], ['thumblength', 'i'], ['pos', 'i', 0], ['buddy', 'nn', [nil, nil]]
+    FDConfig[:need_recreate] = true
+    
+    FDConfig[:buddy_set] = lambda{|ctl, ar|#; dpp ar
+      lns = ctl._toplevelwin.__fd_src[:lines]
+      return [nil, nil] if ar==[""]
+      pr = ctl.parent
+      r = []
+      ar.each{|i|
+        if i.empty?
+          r << nil
+        else
+          c = pr.__send__("_#{i}".intern)
+          pr.controls.delete_at(pr.controls.index(c)) 
+          pr.controls[pr.controls.index(ctl), 0] = c
+          if ctl.__fd_src && c.__fd_src
+            l = lns.delete_at(lns.index(c.__fd_src[2]))
+            ln = lns.index(ctl.__fd_src[2])
+            lns[ln, 0] = l
+          end
+          r << c
+        end
+      }
+      r
+    }
+
+  end
+end

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

@@ -0,0 +1,107 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Treeview.extend ModFormDesigner # This line must be at first.
+  class Treeview
+    FDConfig[:classify] = :commonctrl
+    FDConfig[:default_size] = [128, 128]
+#    FDConfig[:default_caption] = ""
+#    FDConfig[:default_style] = TVS_DEFAULT
+    FDConfig[:attributes] = ['caption', 's'], ['position', 'ii'], ['size', 'ii'], ['margin', 'iiii,t'], ['font', 'sis,t'], ['imagelist', 'n'], ['textcolor', 'h', -1], ['bkcolor', 'h', -1]
+    FDConfig[:attr_tabs] = 'Attributes', 'Styles', 'Events', 'Items'
+    
+    def __fd_set_lvitem(lv, ilist)
+      lv.viewmode = :reportview
+      lv.imagelist = ilist
+      lv.style &= ~LVS_NOCOLUMNHEADER
+      lv.columns = ['Text', 208], ['Img', 40]
+    end
+    
+    def __fd_on_lv_rclick(lv, idx)
+      [:additem, "Add Item", :additem_under, "Add Item under", :sep, :deleteitem, "Delete"]
+    end
+  
+    def __fd_edit_item(lv, idx, subitem, ed)
+      str = lv[idx].text
+      data = lv[idx].data
+      case subitem
+      when 0
+        lv[idx].data.text = ed.text unless ed.text.empty?
+      when 1
+        lv[idx].data.image = ed.text.empty? ? -1 : ed.text.to_i unless ed.text.empty?
+      else
+        ed.hide
+      end
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_update_lv_core(lv, obj, indent)
+      obj.each{|i|i.expand
+        lv << [i.text + "\t#{i.image>=0 ? i.image : ''}", -1, indent, i]
+        __fd_update_lv_core(lv, i, indent+1) if i.count>0
+      }
+    end
+    
+    def __fd_update_lv(lv)
+      lv.clear
+      root.expand
+      __fd_update_lv_core(lv, root, 0)
+    end
+    
+    def __fd_on_additem(lv, idx, *)
+      if item = lv[idx].data
+        item = item.parent
+      else
+        item = root
+      end
+      item << ["item#{item.count}", 0]
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_additem_under(lv, idx, *)
+      if item = lv[idx].data
+        item << ["item#{item.count}", 0]
+      else
+      end
+      __fd_update_lv(lv)
+    end
+        
+    def __fd_on_deleteitem(lv, idx)
+      return unless item=lv[idx].data
+      item.delete
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_delete_this()
+      return unless lns = @_toplevelwin.__fd_src[:lines]
+      __fd_tvdelete_items_srcs(lns)
+    end
+
+    def __fd_item_loaded(item, asrc)
+      extend ModFDItemsSrcLine unless @__fd_items_srcs
+      @__fd_items_srcs << asrc
+    end
+    
+    def __fd_output_items_core(lns, curln, indent, node, depth, ar)
+      return curln if node.count==0
+      nds = []
+      a = []
+      n = 0
+      node.each{|i|
+        nds << [i, n] if i.count > 0
+        a << "[\"#{i.text}\", #{i.image}]"
+        n += 1
+      }
+      ar <<  __fd_get_parents_str2 + "#{depth} << [#{a.join(', ')}]"
+      nds.each{|i, j| 
+        curln = __fd_output_items_core(lns, curln, indent, i, depth+"[#{j}]", ar)
+      }
+      curln
+    end
+    
+    def __fd_output_items(lns, curln, indent)
+      ar = []
+      curln = __fd_output_items_core(lns, curln, indent, root, "", ar)
+      __fd_set_items_srcs(lns, curln, indent, ar)
+    end
+  end
+end

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

@@ -0,0 +1,31 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Updown.extend ModFormDesigner
+  class Updown
+    FDConfig[:classify] = :commonctrl
+    FDConfig[:default_size] = [20, 20]
+    FDConfig[:attributes] = ['position', 'ii'], ['size', 'ii'], ['buddy', 'n'], ['range', 'ii', [0, 100]], ['pos', 'i', 0]
+    
+    FDConfig[:buddy_set] = lambda{|ctl, ar|
+      lns = ctl._toplevelwin.__fd_src[:lines]
+      return nil if ar==[""]
+      pr = ctl.parent
+      c = pr.__send__("_#{ar[0]}".intern)
+      pr.controls.delete_at(pr.controls.index(c)) 
+      pr.controls[pr.controls.index(ctl), 0] = c
+      if ctl.__fd_src && c.__fd_src
+        l = lns.delete_at(lns.index(c.__fd_src[2]))
+        ln = lns.index(ctl.__fd_src[2])
+        lns[ln, 0] = l
+      end
+      c
+    }
+    
+    def __fd_recreate_this()
+      bdy = self.buddy
+      __fd_recreate
+      self.buddy = bdy
+      self
+    end
+  end
+end

data/lib/wrb/applications/frmdesigner/fddialogs.rb

@@ -0,0 +1,87 @@
+require 'wrb'
+
+module WR
+  class FDMain < Form
+    class ImageSizeInput < Dialog
+      def initialize()
+        self.caption = "Input image size"
+        self.inheritfont = 'Meiryo', -12
+        resize 240, 140
+        self.caption = 'Input image size'
+        _<< Static[:st1, 'width:', 10, 24, 40, 18]
+        _<< Static[:st1, 'height:', 120, 24, 40, 18]
+        _<< Static[:sterr, "", 80, 54, 160, 18]
+        _<< Edit[:edw, '16', 60, 20, 48, 24, :number, :tabstop]
+        _<< Edit[:edh, '16', 176, 20, 48, 24, :number, :tabstop]
+        _<< Checkbox[:mask, "Mask", 10, 52, 60, 24, :checked=>true]
+        _<< Checkbox[:downlevel, "Down level", 120, 52, 120, 24, :checked=>true]
+        _<< Button[:btok, 'OK', 108, 80, 56, 24, :idok]
+        _<< Button[:btcancel, 'Cancel', 168, 80, 56, 24, :idcancel]
+        _<< Button[:btfile, 'From file', 10, 80, 72, 24]
+      end
+      
+      def opened(arg)
+        @klass, @frm = arg
+      end
+      
+      def edw_change(*)
+        _edh.text = _edw.text
+      end
+      
+      def btok_clicked(*)
+        iw, ih = _.edw.caption.to_i, _.edh.caption.to_i
+        if iw==0 || ih==0 || iw>256 || ih>256
+          _.sterr.caption = sprintf("[%p, %p] is not allowed. (1..256)", iw, ih)
+          return
+        end
+        iml = Imagelist.new(iw, ih, (_.mask.checked ? ILC_MASK : 0) | ILC_COLOR24)
+        class << iml
+          attr_accessor :__fd_bindedfile, :__fd_toplevelwin
+        end
+        iml.__fd_toplevelwin = @frm
+        iml.downlevel = _downlevel.checked?
+        close iml
+      end
+      
+      def btcancel_clicked(*)
+        close nil
+      end
+      
+      def btfile_clicked(*)
+        unless @frm.__fd_src[:filename]
+          return @frm.MessageBox("Please save this form at first.", "Formdesigner", 0x10)
+        end
+        return unless path=OpenFileNameDlg.show(parent, caption: 'Input filename')
+        if File.exists?(path)
+          begin
+            iml = @klass.fromfile(path)
+          rescue => err
+            return @frm.MessageBox("#{err}", "Formdesigner", 0x10)
+          end
+        else # New file
+          iw, ih = _.edw.caption.to_i, _.edh.caption.to_i
+          iml = @klass.new(iw, ih, (_.mask.checked ? ILC_MASK : 0) | ILC_COLOR24)
+          iml.savefile(path)
+          MessageBox("Empty Imagelist was created.", "FormDesigner", 0x40)
+        end
+        pn = Pathname.new(path)
+        relpath = pn.relative_path_from(Pathname.new(File.dirname(@frm.__fd_src[:filename])))
+        class << iml
+          attr_accessor :__fd_bindedfile, :__fd_toplevelwin
+        end
+        iml.__fd_toplevelwin = @frm
+        iml.__fd_bindedfile = relpath.to_s
+        close iml
+      end
+    end # ImageSizeInput
+  end
+  
+  class AttrInputHelper < Dialog
+    def initialize()
+#      self.style &= ~WS_BORDER
+    end
+    def opened(arg)
+    end
+    self.start if $0 == __FILE__
+  end
+end