wrb 2.0.0

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

@@ -0,0 +1,162 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Rebar.extend ModFormDesigner
+  class Rebar
+    FDConfig[:classify] = :commonctrl
+    FDConfig[:attributes] = ['caption', 's'], ['position', 'ii'], ['size', 'ii'], ['margin', 'iiii,t'], ['font', 'sis,t'], ['imagelist', 'n']
+    FDConfig[:attr_tabs] = 'Attributes', 'Styles', 'Events', 'Bands'
+    
+    def __fd_child_recreated(child)
+      id = child.__associated_band_id
+      bandinfo = REBARBANDINFO[REBARBANDINFO::Size, RC::RBBIM_CHILD]
+      bandinfo.hwndChild = child._hwnd
+      idx = SendMessage(RB_IDTOINDEX, id, 0)
+      SendMessage(RB_SETBANDINFO, idx, bandinfo)
+    end
+    
+    def __fd_init_this_ctrl(option=nil)
+      self << [:band1, nil, "Band1"]
+    end
+    
+    def __fd_update_lv(lv)
+      lv.clear
+      each{|bd|
+        s = sprintf("%s\t%d\t%s\t%d\t%#x", bd.name.to_s, bd.iimage, bd.text, bd.size, bd.style)
+        lv << [s, nil, nil, bd]
+      }
+    end
+      
+    def __fd_set_lvitem(lv, ilist)
+      lv.viewmode = :reportview
+      lv.imagelist = ilist
+      lv.style &= ~LVS_NOCOLUMNHEADER
+      lv.columns = ['Name', 80], ['Img', 40], ['Text', 64], ['Size', 40], ['Style', 40]
+    end
+    
+    def __fd_edit_item(lv, idx, subitem, ed)
+      txt = ed.text
+      begin
+        case subitem
+        when 0
+          self[idx].name = txt.intern
+        when 1
+          self[idx].iimage = txt.empty? ? nil : txt.to_i
+        when 2
+          self[idx].text = txt.empty? ? nil : txt.to_s
+        when 3
+          self[idx].size = txt.empty? ? 0 : txt.to_i
+          (cw=self[idx].childwin) && cw.w = self[idx].size
+        when 4
+          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 |= RbbStyles[i.strip.intern].to_i}
+          end
+          self[idx].style = val
+        end
+      rescue => err
+        $fd_main_frm.MessageBox "#{err}", "FormDesigner", 0x10
+      end
+      __fd_update_lv(lv)      
+    end
+    
+    def __fd_on_lv_rclick(lv, idx)
+      [:additem, "Add", :sep, :deleteitem, "Delete"]
+    end
+    
+    def __fd_on_additem(lv, idx, *)
+      sname = get_toplevel_win.suffixed_name('band1')
+      self << [sname.intern, nil, sname.to_s.capitalize]
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_deleteitem(lv, idx)
+      ct = controls.find{|i| i.__associated_band_id == self[idx].idcmd}
+      if ct
+        if ct.respond_to?(:__fd_items_src)
+          frm = ct.get_toplevel_win
+          lns = frm.__fd_src[:lines]
+          col, len, lsrc = ct.__fd_items_src
+          lns.delete_if{|i| i.__id__ == lsrc.__id__}
+        end
+        ct.delete
+      end
+      self[idx].delete
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_add_ctrl(x, y, ct)
+      idx = hittest(x-self.x, y-self.y)
+      if ct.is_a?(Toolbar)
+        ct.style |= CCS_NORESIZE | CCS_NODIVIDER
+      end
+      self[idx].size = ct.w
+      self[idx].idealsize = ct.w
+      self[idx].childwin = ct
+    end
+    
+    def __fd_output_items(lns, curln, indent)
+      ar = []
+      ps = __fd_get_parents_str2
+      each{|b|
+        if cw=b.childwin #;dpp b.size, b.idealsize
+          cw.w = b.size
+          _x = cw.x
+          _y = cw.y
+          cw.x = cw.y = 0
+          ar << sprintf("#{ps} << [%p, %p, %p, %p, %#x, %s]", b.name, b.iimage, 
+                        b.text.empty? ? nil : b.text, b.size, b.style, cw.__fd_to_str_core(nil))
+          cw.x = _x
+          cw.y = _y
+        else
+          ar << sprintf("#{ps} << [%p, %p, %p, %p, %#x]", b.name, b.iimage, 
+                        b.text.empty? ? nil : b.text, b.size, b.style)
+        end
+      }
+      
+      curln = __fd_set_items_srcs(lns, curln, indent, ar)
+      controls.each{|i|
+        curln = i.__fd_output_items(lns, curln, indent) if i.respond_to?(:__fd_output_items)
+      }
+      curln
+    end
+    
+    def __fd_item_loaded(item, asrc) #dpp @__fd_items_srcs #, controls
+      extend ModFDItemsSrcLine unless @__fd_items_srcs
+      @__fd_items_srcs << asrc
+      controls.each{|i| #; dpp i.event_registered?(WM_DESTROY, '__fd_destroy')
+        next if i.event_registered?(WM_DESTROY, '__fd_destroy')
+        i.extend(ModControlHook)
+#        id = i.__associated_band_id
+#        band = _band_id2ref(id)
+      }
+    end
+    
+#    def __fd_output_items__(lns, curln, indent)
+#      ar = []
+#      each{|b|
+#        if cw=b.childwin
+#           ar << sprintf("[%p, %p, %p, %#x, %s]", b.name, b.iimage, 
+#                        b.text.empty? ? nil : b.text, b.style, cw.__fd_to_str_core(nil))
+#        else
+#          ar << sprintf("[%p, %p, %p, %#x]", b.name, b.iimage, 
+#                        b.text.empty? ? nil : b.text, b.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
+#      controls.each{|i|
+#        curln = i.__fd_output_items(lns, curln, indent) if i.respond_to?(:__fd_output_items)
+#      }
+#      curln
+#    end
+  end
+end

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

@@ -0,0 +1,66 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Splitter.extend ModFormDesigner
+  class Splitter
+    FDConfig[:default_size] = [6, 6]
+    FDConfig[:attributes] = ['position', 'ii'], ['margin', 'iiii,t'],  ['direction', 'm', :vert], ['face', 'm', :vert], ['thickness', 'i'], ['limit', 'ii', [0, 0]]
+    FDConfig[:attr_tabs] = 'Attributes', 'Styles', 'Events', 'Panes'
+    
+    def __fd_update_lv(lv)
+      lv.clear
+      lv << (direction==:horiz ? "Upper" : "Left")
+      lv.last.data = 0
+      lu_pane.each{|i| lv << "\t#{i.name}"; lv.last.data = 0}
+      lv << (direction==:horiz ? "Lower" : "Right")
+      lv.last.data = 1
+      rl_pane.each{|i| lv << "\t#{i.name}"; lv.last.data = 1}
+    end
+  
+    def __fd_set_lvitem(lv, ilist)
+      lv.viewmode = :reportview
+      lv.imagelist = ilist
+      lv.columns = ['Panes', 80], ['Controls', 160]
+    end
+    
+    def __fd_on_lv_rclick(lv, idx)
+      ar = parent.controls.select{|i| i.is_a?(Window) && i!=self && !i.respond_to?(:__ownedbysplitter)}.map{|i| [:additem, i.name.to_s]}
+      mn = Menu[:ctrls, "Add Control", *ar]
+      [mn, :sep, :deleteitem, "Remove"]
+    end
+    
+    def __fd_on_additem(lv, idx, mnu, id)
+      ctl = parent.controls.__send__(mnu.ctrls[id].caption.intern)
+      parent.controls.delete_at(parent.controls.index(ctl))
+      parent.controls[parent.controls.index(self)+1, 0] = ctl
+      
+      if lns = ctl._toplevelwin.__fd_src[:lines]
+        idx1 = lns.index{|i| i.respond_to?(:binded_obj) && i.binded_obj==ctl}
+        idx2 = lns.index{|i| i.respond_to?(:binded_obj) && i.binded_obj==self}
+        lns.insert(idx2+1, lns.delete_at(idx1)) if idx1 && idx2
+      end
+      if lv[idx].data == 0 # lu_pane
+        lu_pane << ctl
+      else
+        rl_pane << ctl
+      end
+#      dpp parent.controls
+      __fd_update_lv(lv)
+    end
+      
+    def __fd_on_deleteitem(lv, idx)
+      if lv[idx].data == 0 # lu_pane
+        lu_pane.delete(parent.controls.__send__(lv[idx][1].intern))
+      else
+        rl_pane.delete(parent.controls.__send__(lv[idx][1].intern))
+      end
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_output_items(lns, curln, indent)
+      pt = __fd_get_parents_str2 #; dpp pt
+      lu_pane.each{|i| i.__fd_tmp_parent_str = "#{pt}.lu_pane"}
+      rl_pane.each{|i| i.__fd_tmp_parent_str = "#{pt}.rl_pane"}
+      curln
+    end
+  end
+end

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

@@ -0,0 +1,9 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Static.extend ModFormDesigner
+  class Static
+    FDConfig[:default_size] = [80, 16]
+    FDConfig[:attributes] = ['caption', 's'], ['position', 'ii'], ['size', 'ii'], ['margin', 'iiii,t'], ['font', 'sis,t']
+    FDConfig[:altanate_mask] = [RC::SS_TYPEMASK, RC::SS_ELLIPSISMASK]
+  end
+end

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

@@ -0,0 +1,103 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Statusbar.extend ModFormDesigner
+  class Statusbar
+    FDConfig[:classify] = :commonctrl
+    FDConfig[:default_size] = [0, 30]
+    FDConfig[:attributes] = ['caption', 's'], ['position', 'ii'], ['size', 'ii'], ['margin', 'iiii,t'], ['font', 'sis,t'], ['simple', 'b'], ['imagelist', 'n']
+    FDConfig[:attr_tabs] = 'Attributes', 'Styles', 'Events', 'Parts'
+    FDConfig[:have_controls] = true
+    
+    def __fd_update_lv(lv)
+      lv.clear
+      count.times{|i|
+        pt = self[i]; #dpp pt.width, pt.text, pt.iimage.to_s, pt.type
+        s = sprintf("%d\t%s\t%s\t%#x", pt.width, pt.text.to_s, pt.iimage.to_s, pt.type.to_i)
+        lv << [s, nil, nil, pt]
+      }
+    end
+    
+    def __fd_set_lvitem(lv, ilist)
+      lv.viewmode = :reportview
+      lv.imagelist = ilist
+      lv.style &= ~LVS_NOCOLUMNHEADER
+      lv.columns = ['Width',56],['Text', 136], ['Img', 32],['Type', 40]
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_edit_item(lv, idx, subitem, ed)
+      data = lv[idx].data
+      txt = ed.text
+      begin
+        case subitem
+        when 0
+          self[idx].width = txt.to_i
+        when 1
+          self[idx].text = txt.to_s
+        when 2
+          self[idx].iimage = txt.empty? ? nil : txt.to_i
+        when 3
+          case txt
+          when /^0[xX]/
+            val = txt.to_i(16)
+          when /[0-9]+/
+            val = txt.to_i
+          end
+          self[idx].type = val
+        end
+        __fd_update_lv(lv)
+      rescue => err
+        $fd_main_frm.MessageBox "#{err}", "FormDesigner", 0x10
+      end
+    end
+    
+    def __fd_on_lv_rclick(lv, idx)
+      [:additem, "Add", :insertitem, "Insert", :sep, :deleteitem, "Delete"]
+    end
+    
+    def __fd_on_additem(lv, idx, *)
+      self << [100,  ""]
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_insertitem(lv, idx)
+      self[idx, 0] = [100,  ""]
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_deleteitem(lv, idx)
+      delete(idx)
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_output_items(lns, curln, indent)
+      ps = __fd_get_parents_str2
+      ar = []
+      each{|i| ar << ps + " << " + sprintf("[%p, %p, %p, #{i.type ? '%#x' : '%p'}]",
+                                           i.width, i.text, i.iimage, i.type)}
+      __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{|i| ar << sprintf("[%p, %p, %p, #{i.type ? '%#x' : '%p'}]", i.width, i.text, i.iimage, i.type)}
+      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/Tabctrl.rb

@@ -0,0 +1,136 @@
+require_relative '../fdmodules' if __FILE__ == $0
+module WR
+  Tabctrl.extend ModFormDesigner
+  class Tabctrl
+    FDConfig[:classify] = :commonctrl
+    FDConfig[:no_hookwndproc] = true
+    FDConfig[:default_size] = [128, 128]
+    FDConfig[:attributes] = ['position', 'ii'], ['size', 'ii'], ['margin', 'iiii,t'], ['font', 'sis,t'], ['inheritfont','si,t'], ['imagelist','n'], ['mintabwidth','i']#, ['tabs','a']
+    FDConfig[:attr_tabs] = 'Attributes', 'Styles', 'Events', 'Tabs'
+    FDConfig[:have_controls] = true
+    FDConfig[:tabs_get] = lambda{|ctl, ar| ar.empty? ? '' : ar.map{|i| i.text}}
+    FDConfig[:tabs_set] = lambda{|ctl, ar| ar==[""] ? nil : ar}
+    
+    def __fd_update_lv(lv)
+      lv.clear
+      @_tabs.each_with_index{|tab, idx|
+        lv << "#{tab.text}\t#{tab.image>=0 ? tab.image : ''}"
+        lv.last.data = idx
+        self[idx].controls.each{|i| 
+          lv << "\t\t#{i.name}"
+          lv.last.data = idx
+        }
+      }
+    end
+    
+    def __fd_set_lvitem(lv, ilist)
+      lv.viewmode = :reportview
+      lv.imagelist = ilist
+      lv.style &= ~LVS_NOCOLUMNHEADER
+      lv.columns = ['TabText', 104], ['Img', 32], ['Controls', 128]
+      __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
+        self[data].text = ed.text unless ed.text.empty?
+      when 1
+        self[data].image = ed.text.to_i unless ed.text.empty?
+      when 2
+        ed.hide
+      end
+      refresh
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_lv_rclick(lv, idx)
+      if idx < 0
+        [:addnode, "Add Tab"]
+      else
+        ar = controls.inject([]){|r, i| r << i.name.to_s unless i.respond_to?(:_owner); r}
+        a = []
+        count.times{|i| self[i].controls.each{|j| a << j.name.to_s}}
+        ar -= a
+        ar.map!{|i| [:additem, i]}.flatten!
+        mn = Menu[:ctrls, "Add Control", *ar]
+        [:addnode, "Add Tab", mn, :sep, :deleteitem, "Remove"]
+      end
+    end
+    
+    def __fd_on_additem(lv, idx, mnu, id)
+      self[lv[idx].data] << controls.__send__(mnu.ctrls[id].caption.intern)
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_addnode(lv, idx)
+      self << "Tab#{count+1}"
+      __fd_update_lv(lv)
+    end
+    
+    def __fd_on_deleteitem(lv, idx)
+      return if idx < 0
+      tabidx = lv[idx].data
+      if lv[idx][1].empty?
+        self[tabidx].delete
+      else
+        self[tabidx].controls.delete(self.__send__(("_"+lv[idx][1]).intern))
+      end
+      __fd_update_lv(lv)
+    end
+     
+    def __fd_output_items(lns, curln, indent)
+      if @_tabs.empty?
+        __fd_delete_items_srcs(lns)
+      else
+        ps = __fd_get_parents_str2
+#        ar = @_tabs.inject([]){|a, i| 
+#          a << "#{ps} << " + (i.image<0 ? "\"#{i.text}\"" : "[\"#{i.text}\", #{i.image}]")
+#        }
+#        curln = __fd_set_items_srcs(lns, curln, indent, ar)
+        ar = @_tabs.inject([]){|a, i| 
+          a << (i.image<0 ? "\"#{i.text}\"" : "[\"#{i.text}\", #{i.image}]")
+        }
+        s = ar.size==1 ? ar[0] : "[#{ar.join(', ')}]"
+        curln = __fd_set_items_srcs(lns, curln, indent, ["#{ps} << #{s}"])
+        
+      end
+      count.times{|i| 
+        self[i].controls.each{|j| j.__fd_tmp_parent_str = "#{ps}[#{i}]"}
+      }      
+      curln
+    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)
+#      if @_tabs.empty?
+#        __fd_delete_items_src(@_tabs, lns)
+#      else
+#        s = @_tabs.inject([]){|a, i| 
+#          a << (i.image<0 ? "\"#{i.text}\"" : "[\"#{i.text}\", #{i.image}]")
+#        }.join(', ')
+#        s = __fd_get_parents_str2 + " << [#{s}]"
+#        __fd_set_items_src(@_tabs, lns, curln+=1, indent, s)
+#      end
+#      
+#      ps = __fd_get_parents_str2
+#      count.times{|i| 
+#        self[i].controls.each{|j| j.__fd_tmp_parent_str = "#{ps}[#{i}]"}
+#      }
+#      curln
+#    end
+    
+  end
+end