wrb 2.0.0

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

@@ -0,0 +1,157 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Listview.extend ModFormDesigner
+  class Listview
+    FDConfig[:classify] = :commonctrl
+    FDConfig[:default_size] = [128, 128]
+    FDConfig[:default_caption] = ""
+    FDConfig[:altanate_mask] = [RC::LVS_TYPEMASK]
+    FDConfig[:attributes] = ['caption', 's'], ['position', 'ii'], ['size', 'ii'], ['margin', 'iiii,t'], ['font', 'sis,t'], ['normalimagelist', 'n'], ['smallimagelist', 'n'], ['textcolor', 'h', 0], ['bkcolor', 'h', 0xffffff], ['tooltip', 's'], ['gridlines', 't'], ['fullrowselect','t']
+    FDConfig[:attr_tabs] = 'Attributes', 'Styles', 'Events', 'Items', 'Columns'
+  
+    def __fd_set_lvitem(lv, ilist)
+      lv.viewmode = :reportview
+      lv.imagelist = ilist
+      lv.style &= ~LVS_NOCOLUMNHEADER
+    end
+  
+    def __fd_update_lv(lv)
+      lv.columns = ['ItemText', 208], ['Img', 40]
+      lv.clear
+      each{|i|
+        if columns.count > 0
+          s = (0..columns.count-1).inject([]){|a, j| a<<i[j]}.join('\\t').sub(/(:?\\t)+$/, '')
+          lv << s + "\t#{i.image>=0 ? i.image : ''}"
+        else
+          lv << i.text + "\t#{i.image>=0 ? i.image : ''}"
+        end
+      }
+    end
+  
+    def __fd_update_lv_alt(lv)
+      lv.columns = ['ColumnText', 136], ['Width', 44, 1], ['Fmt', 40, 2], ['Img', 40]
+      lv.clear
+      columns.each{|col|
+        lv << "#{col.text}\t#{col.width}\t#{col.format} "
+      }
+    end
+    
+    def __fd_edit_item(lv, idx, sbitm, ed)
+      if lv.columns[0].text=='ItemText'
+        case sbitm
+        when 0
+          self[idx] = ed.text.gsub(/\\t/, "\t") unless ed.text.empty?
+        when 1
+          self[idx].image = ed.text.empty? ? -1 : ed.text.to_i
+        else
+          ed.hide
+        end
+        __fd_update_lv(lv)
+      else
+        case sbitm
+        when 0
+          columns[idx].text = ed.text unless ed.text.empty?
+        when 1
+          columns[idx].width = ed.text.to_i unless ed.text.empty?
+        when 2
+          columns[idx].format = ed.text.to_i unless ed.text.empty?
+        when 3
+          columns[idx].image = ed.text.to_i unless ed.text.empty?
+        else
+          ed.hide
+        end
+        __fd_update_lv_alt(lv)
+      end
+    end
+    
+    def __fd_on_lv_rclick(lv, idx)
+      if lv.columns[0].text=='ItemText'
+        [:additem, "Add Item", :sep, :deleteitem, "Delete"]
+      else
+        [:additem, "Add Column", :sep, :deleteitem, "Delete"]
+      end
+    end
+  
+    def __fd_on_additem(lv, idx, mnu, id)
+      if lv.columns[0].text=='ItemText'
+        self << "item#{lv.count}"
+        __fd_update_lv(lv)
+      else
+        columns << ["column#{columns.count}", 80]
+        __fd_update_lv_alt(lv)
+      end
+    end
+    
+    def __fd_on_deleteitem(lv, idx)
+      return if idx < 0
+      if lv.columns[0].text=='ItemText'
+        self[idx].delete
+      else
+        columns[idx].delete
+      end
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_delete_this()
+      return unless lns = @_toplevelwin.__fd_src[:lines]
+      __fd_delete_items_src(columns, lns)
+    end
+    
+    def __fd_output_items(lns, curln, indent)
+      ar = []
+      pr = __fd_get_parents_str2
+      if columns.count > 0
+#        columns.each{|i|
+#          if i.image
+#            ar << "#{pr}.columns << [\"#{i.text}\", #{i.width}, #{i.format}, #{i.image}]"
+#          else
+#            ar << "#{pr}.columns << [\"#{i.text}\", #{i.width}, #{i.format}]"
+#          end
+#        }
+        aa = []
+        columns.each{|i|
+          if i.image
+            aa << "[\"#{i.text}\", #{i.width}, #{i.format}, #{i.image}]"
+          else
+            aa << "[\"#{i.text}\", #{i.width}, #{i.format}]"
+          end
+        }
+        ar << "#{pr}.columns << [#{aa.join(', ')}]"
+      end
+      if count > 0
+        each{|i|
+          ss = (0..columns.count-1).inject([]){|ar, j| ar<<i[j]}.join('\t').sub(/\\t+$/, '')
+          ar << pr + " << " + (i.image>=0 ? "[\"#{ss}\", #{i.image}]" : "\"#{ss}\"")
+        }
+      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_output_items__(lns, curln, indent)
+#      if columns.count > 0
+#        a = []
+#        columns.each{|i|
+#          a << "[\"#{i.text}\", #{i.width}, #{i.format}" + (i.image ? ", #{i.image}]" : "]")
+#        }
+#        s = __fd_get_parents_str2+".columns << [#{a.join(', ')}]"
+#        __fd_set_items_src(columns, lns, curln+=1, indent, s)
+#      end
+#      if count > 0
+#        a = []
+#        each{|i|
+#          ss = (0..columns.count-1).inject([]){|ar, j| ar<<i[j]}.join('\t').sub(/\\t+$/, '')
+#          a << (i.image>=0 ? "[\"#{ss}\", #{i.image}]" : "\"#{ss}\"")
+#        }
+#        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/Menu.rb

@@ -0,0 +1,198 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Menu.extend ModFormDesigner
+  class Menu
+    FDConfig[:classify] = :resources
+    FDConfig[:attr_tabs] = ['Attributes', 'Items']
+    FDConfig[:attributes] = [['imagelist', 'n']]
+    
+    def __fd_get_serial_name(lv, bsnm)
+      ar = []; suffix = 1
+      lv.each{|i| ar << i[0] if i[0].match(/^#{bsnm}(\d+)$/)}
+      while ar.index(bsnm + suffix.to_s)
+        suffix += 1
+      end
+      bsnm + suffix.to_s
+    end
+  
+    def __fd_update_lv1(lv, mn, indent)
+      return unless mn
+      mn.count.times{|i|
+        mi = mn[i]
+        if mi.is_a?(Menu)
+          lv << [mi.name.to_s+"\t"+mi.caption+"\t"+mi.image.to_s, 0, indent, mi]
+          __fd_update_lv1(lv, mi, indent+1)
+        else
+          if mn[i].gettype == Menu::MFT_SEPARATOR
+            lv << ['(sep)', nil, indent, mi]
+          else
+            str = mi.caption.sub(/\t/, '\\t')
+            lv << ["#{mn._owner.__fd_idcmd_hash[mi.idcmd]}\t#{str}\t#{mi.image}",nil,indent,mi]
+          end
+        end
+      }
+    end
+    def __fd_update_lv(lv)
+      lv.clear
+      __fd_update_lv1(lv, self, 0)
+    end
+    
+    def __fd_set_lvitem(lv, ilist)
+      lv.viewmode = :reportview
+      lv.imagelist = ilist
+      lv.style &= ~LVS_NOCOLUMNHEADER
+      lv.columns = ['Name',116], ['Caption', 116], ['Img', 32]
+      __fd_update_lv(lv)
+    end
+
+    def __fd_on_lv_rclick(lv, idx)
+      if  lv[idx].data.is_a?(Menu)
+        [:additem_under, "Add Item under", :addnode_under, "Add Menu under",:additem, "Add Item",
+        :addnode, "Add Menu",  :sep, :deleteitem, "Delete" ]
+      else
+        [:additem, "Add Item", :addnode, "Add Menu", :sep, :deleteitem, "Delete"]
+      end
+    end
+    
+    def __fd_on_additem(lv, idx, *)
+      nm = __fd_get_serial_name(lv, 'item')
+      if item = lv[idx].data
+        item.parent.insert(item.index+1, [nm.intern, nm.capitalize])
+      else
+        self << [nm.intern, nm.capitalize]
+      end
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_addnode(lv, idx)
+      nm = __fd_get_serial_name(lv, 'menu')
+      if item = lv[idx].data
+        item.parent.insert(item.index+1, Menu[nm.intern, nm.capitalize])
+      else
+        self << Menu[nm.intern, nm.capitalize]
+      end
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_additem_under(lv, idx)
+      nm = __fd_get_serial_name(lv, 'item')
+      item = lv[idx].data
+      item.insert(0, [nm.intern, nm.capitalize]) if item.is_a?(Menu)
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_addnode_under(lv, idx)
+      nm = __fd_get_serial_name(lv, 'menu')
+      item = lv[idx].data
+      item.insert(0, Menu[nm.intern, nm.capitalize]) if item.is_a?(Menu)
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_delete_this()
+      each{|i| i.__fd_on_delete_this if i.is_a?(Menu)} #if respond_to?(:each)
+      return unless lns=@_owner.__fd_src[:lines] ; dpp @__fd_src, @__fd_items_src
+      return if !@__fd_src && !@__fd_items_src
+      lsrc = @__fd_src ? @__fd_src[2] : @__fd_items_src[2]
+      lns.delete(lsrc)
+    end
+    
+    def __fd_on_deleteitem(lv, idx)
+      return unless item=lv[idx].data
+      item.__fd_on_delete_this() if item.is_a?(Menu)
+      item.parent.delete(item.index)
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_edit_item(lv, idx, subitem, ed)
+      str = lv[idx].text
+      data = lv[idx].data
+      stbr = lv.get_toplevel_win._stbr1
+      case subitem
+      when 0 # Name
+        return stbr.caption = "This item cannot edit." unless data
+        if data.is_a?(Item) && (str=="(sep)" || str==":sep")
+          data.settype(MFT_SEPARATOR)
+          return
+        end
+        unless str =~ /^[a-z][a-zA-Z0-9_]*$/
+          return stbr.caption = "\"#{str}\" is not allowed."
+        end
+        if data.is_a?(Menu)
+          data.name = str.intern 
+        else
+          @_owner.__fd_idcmd_hash[data.idcmd] = str
+        end
+        __fd_update_lv(lv)
+      when 1 # Caption
+        oldstr = lv[idx][1]
+        begin
+          data.caption = ed.caption.sub(/\\t/, "\t") 
+          stbr.caption = ""
+        rescue => err
+          data.caption = oldstr
+          lv[idx][1] = oldstr
+          stbr.caption = err.to_s
+        end
+      when 2 # Img
+        if data.is_a?(Menu::Item) || data.is_a?(Menu)
+          data.image = ed.caption.empty? ? nil : (ed.caption.to_i rescue nil)
+        end
+      end
+    end
+    
+    def __fd_get_menu_items(lns, curln, indent, ar, sadd)
+      if ar.empty?
+        sadd = "_" + name.to_s
+        sklass = self.class.to_s.split('::').last
+        s = sklass + "[:#{name}, "
+        a = caption ? ["\"#{caption}\""] : []
+        a << "_#{imagelist.name}" if imagelist
+      else
+        sadd += "._#{name}"
+        s = sadd + " << ["
+        a = []
+      end
+      ar << s
+      each{|i|
+        if i.is_a?(Menu)
+          a << "Menu[:#{i.name}, \"#{i.caption}\"" + (i.image ? ", #{i.image}]" : "]")
+          i.__fd_get_menu_items(lns, curln, indent, ar, sadd) if i.count > 0
+        else
+          if i.gettype == RC::MFT_SEPARATOR
+            a << ":sep"
+          else
+            ss = "[:#{ @_owner.__fd_idcmd_hash[i.idcmd]}, \"#{i.caption.sub(/\t/, '\\t')}\""
+            ss << (i.image ? ", #{i.image}]" : "]")
+            a << ss
+          end
+        end
+      }
+      s << a.join(", ") + "]"
+    end
+    
+    def fd_menu2str(lns, curln, indent)
+      ar = []
+      __fd_get_menu_items(lns, curln, indent, ar, "")
+      ar
+    end
+    
+    def __fd_item_loaded(item, asrc)
+      extend ModFDItemsSrcLine unless @__fd_items_srcs
+      @__fd_items_srcs << asrc
+    end
+    
+    def __fd_to_str(lns, curln, indent)
+      ar = fd_menu2str(lns, curln, indent)
+      s = ar.shift
+      curln = __fd_update_src(lns, curln, indent, s)
+      __fd_set_items_srcs(lns, curln, indent, ar)
+    end
+    
+    def __fd_modify_src(lns, curln, indent)
+      ar = fd_menu2str(lns, curln, indent)
+      s = ar.shift
+      curln = __fd_update_src(lns, curln, indent, s)
+      __fd_set_items_srcs(lns, curln, indent, ar)
+    end
+  end
+end

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

@@ -0,0 +1,9 @@
+require_relative '../fdmodules' if __FILE__ == $0
+
+module WR
+  Menubar.extend ModFormDesigner
+  require_relative './Menu.rb' unless defined? Menu::FDConfig
+  class Menubar
+    Menu::FDConfig.each{|k, v| Menubar::FDConfig[k] ||= v }
+  end
+end

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

@@ -0,0 +1,9 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Monthcalender.extend ModFormDesigner
+  class Monthcalender
+    FDConfig[:classify] = :commonctrl
+    FDConfig[:default_size] = [200, 164]
+    FDConfig[:attributes] = ['position', 'ii'], ['size', 'ii']
+  end
+end

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

@@ -0,0 +1,30 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Panel.extend ModFormDesigner
+  class Panel
+    FDConfig[:default_size] = [128, 128]
+    FDConfig[:attributes] = ['caption', 's'], ['position', 'ii'], ['size', 'ii'], ['margin', 'iiii,t'], ['font', 'sis,t'], ['inheritfont', 'si,t'], ['sendto', 'n']
+    FDConfig[:have_controls] = true
+    FDConfig[:sendto_get] = lambda{|ctl, atr|
+      atr.respond_to?(:name) ? atr.name : ctl._toplevelwin.class.to_s.split('::').last
+    }
+    FDConfig[:sendto_set] = lambda{|ctl, atr|
+      def ctl.sendto=(to) # Kill check sequence.
+        @_sendto = to
+      end
+      if atr[0] == ctl._toplevelwin.class.to_s.split('::').last
+        ctl.sendto = ctl._toplevelwin
+      else
+        ctl.sendto = ctl._toplevelwin.instance_eval("_"+atr[0])
+      end
+    }
+    FDConfig[:sendto_out] = lambda{|ctl, atr|
+      if to=ctl.sendto
+        to==ctl._toplevelwin ? "self" : "_" + to.name.to_s
+      else
+        nil
+      end
+    }
+    
+  end
+end

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

@@ -0,0 +1,10 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Progressbar.extend ModFormDesigner
+  class Progressbar
+    FDConfig[:classify] = :commonctrl
+    FDConfig[:default_size] = [80, 16]
+    FDConfig[:default_name] = 'progress'
+    FDConfig[:attributes] = ['position', 'ii'], ['size', 'ii'], ['range', 'ii', [0, 100]], ['step', 'i', 10], ['pos', 'i', 0]
+  end
+end

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

@@ -0,0 +1,13 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Radiobutton.extend ModFormDesigner
+  class Radiobutton
+    FDConfig[:default_size] = [100, 24]
+    FDConfig[:attributes] = ['caption', 's'], ['position', 'ii'], ['size', 'ii'], ['margin', 'iiii,t'], ['font', 'sis,t']
+    FDConfig[:styles] = [:lefttext, :notify]
+    FDConfig[:altanate_mask] = [RC::BS_TYPEMASK]
+    def __fd_style_mask_cond()
+      @_owner.is_a?(Groupbox) ? WS_GROUP : 0
+    end
+  end
+end