wrb 2.0.0

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

@@ -0,0 +1,1315 @@
+require_relative './fdmodules'
+require_relative './fdparseform'
+require_relative './fddialogs'
+require 'pathname'
+
+module WR
+  FdDir = File.dirname(__FILE__)
+  class FDMain < Form
+    attr_accessor :selected_klass, :frm, :modified
+    attr_reader :selected_ctrl, :selected_rs_klass, :selected_cursor, :selected_rsc_cursor
+    attr_reader :forms
+    
+    def initialize()
+      $fd_main_frm = self # Set only one global variable
+      _<< Imagelist.new(:image0, 13, 13, true) << Bitmap.fromfile(FdDir+'/img13.bmp')
+      @selected_cursor = Cursor.fromfile(FdDir+'/angle.cur')
+      @selected_rsc_cursor = Cursor.fromfile(FdDir+'/angle2.cur')
+#      @selected_cursor = Cursor.loadb64( "AAAAQAAIACAQAEAYACAFgAAAAAtAEAUQCAgJgABBAQAAwIAgLgAAAAAAAAAA
+#AAAAAAABAPp/v9/wH/gkA8IJgJAAAAAJAAAAAJAAAAAJCAhCfcAAACAguggI
+#MIP+AYEEMX/BHB/v8AACAYoPgrgD3+AAAD3+AAAD3+AABAQkAB+FSAfAAAAE
+#AhA=")
+      self.caption = "FormDesigner"
+      self.visible = false
+      self.style &= ~WS_MAXIMIZEBOX
+      self.size = 1100, 600
+      self.font = Font['Yu Gothic UI', -12]
+      self.inheritfont = :force
+      _<< Menubar[:main1, Menu[:file1, 'File', Menu[:new1, "New", :newform1, "Form", :newdialog1, "Dialog"], :open1, "Open", :save1, "Save\tCtrl+S", :saveas1, "Save as", :sep, :exit1, "Exit"], Menu[:insert1, "Insert", :insdlg1, "Dialog", :insfrm1, "Form"], Menu[:window1, "Window", :sep, :delfrm1, "Delete this"], Menu[:prf1, "Preferences", MFT_RIGHTJUSTIFY, :raise1, "RaiseForTest"]]
+      @spl1 = _<< Splitter[:spl1, 200, 224, 6, 6, :horiz, :dot]
+      
+      @tabs1 = @spl1.upper << Tabctrl[:tabs1, 0, 0, 200, 200, :mintabwidth=>0, :margin=>[0,0,0,0]]
+      _tabs1[0, 0] = "Standard", "Common", "Resources", "Hierarchy"
+      
+      @stbr1 = _<< Statusbar[:stbr1, '', 0,0,0,0, :simple=>true]
+      @lvstd = _tabs1[0] << Listview[:lvstd, 0, 0, 200, 200, :smalliconview, :margin=>[0,24,0,0]]
+      @lvcmn = _tabs1[1] << Listview[:lvcmn, 0, 0, 200, 200, :smalliconview, :margin=>[0,24,0,0]]
+      @spl2 = _tabs1[2] << Splitter[:spl2, 180, 24, 3, 3, :face=>:none, :margin=>[nil,24,100,0]]
+      @lvrs1 = _tabs1._spl2.rl_pane << Listview[:lvrs1, 0, 0, 110, 200, :smalliconview, :margin=>[0,0,0,0], :visible=>false]
+      @lvrs2 = _tabs1._spl2.lu_pane << Listview[:lvrs2, 0, 0, 100, 200, :smalliconview, :showselalways, :sortascending, :margin=>[0,0,0,0], :bkcolor=>0xf0f0f0, :textbkcolor=>0xf0f0f0, :visible=>false]
+#       _tabs1._spl2.lu_pane <<  _tabs1._lvrs2
+#       _tabs1._spl2.rl_pane <<  _tabs1._lvrs1
+#      _tabs1[2] << Button[:btrscadd, '<', 96, 0, 16, 200, :margin=>[nil, 34, 100, 10]]
+      @tvhrc = _tabs1[3] << Treeview[:tvhrc, 0, 0, 200, 200, :showselalways, :margin=>[0,24,20,0]]
+      @udhrc = _tabs1[3] << Updown[:udhrc, 0, 0, 20, 50, :margin=>[nil, 24, 0, nil]]
+      @tabs2 = @spl1.lower << Tabctrl[:tabs2, 0,0,200,200, :mintabwidth=>0, :margin=>[0,0,0,24]]
+#      _tabs2 << ["Attributes", "Styles", "Events"]
+      _tabs2[0, 0] = "Attributes", "Styles", "Events"
+      @lvattr = _tabs2[0] << Listview[:lvattr, 0, 0, 200,200, :reportview, :nocolumnheader, :gridlines, :fullrowselect, :margin=>[0,24,0,0], :columns=>[['',116],['',144]],  :imagelist=>_image0]
+      @lvstyles = _tabs2[1] << Listview[:lvstyles, 0, 0, 200,200,:listview, :checkboxes, :margin=>[0,24,0,0]]
+      @lvevents = _tabs2[2] << Listview[:lvevents, 0, 0, 200,200, :listview, :checkboxes, :margin=>[0,24,0,0]]
+      @lvitems = _tabs2[1] << Listview[:lvitems, 0,0, 100, 100, :listview, :gridlines,  :nocolumnheader, :fullrowselect, :margin=>[0, 24, 0, 0], :columns=>[['',120],['', 144]], :visible=>false]
+      
+      @ied1 = _<< Edit[:ied1, "", 0, 0, 80, 18, :autohscroll, :wantreturn, :visible=>false]
+      @ied1.exstyle &= ~WS_EX_CLIENTEDGE
+      @ied1.set_subclass.register_event WM_KEYDOWN, 'key_down', 'ii'
+      class << @ied1
+        attr_accessor :iitem, :isubitem
+        def key_down(wp, lp)
+          case wp
+          when 13, 9
+            $fd_main_frm.PostMessage(WM_KEYDOWN, wp, lp)
+            CancelDefWindowProc
+          when 38, 40
+            parent.PostMessage(WM_KEYDOWN, wp, lp)
+            CancelDefWindowProc
+          end
+        end
+      end
+      _<< Menu[:popup1]
+      _<< Menu[:popup2, :deleteitem2, "Delete"]
+      _<< Menu[:popup3, :deleteitem3, "Delete"]
+#      _<< Menu[:popup3, :additem3, "Add", :deleteitem3, "Delete"]
+#      _<< Menu[:popup4, :additem4, "Add Item", :addmenu4, "Add Menu", :sep, :deleteitem4, "Delete"]
+#      _<< Menu[:popup5, :additemunder4, "Add Item under", :addmenuunder4, "Add Menu under",:additem4, "Add Item", :addmenu4, "Add Menu",  :sep, :deleteitem4, "Delete"]
+      
+      @forms = []
+      @lvattr.events = :keydown
+      @lvrs1.events = :dblclk
+      @lvrs2.events = :rclick
+      @lvitems.events = :rclick, :beginlabeledit, :endlabeledit
+      @tvhrc.events = :rclick
+      self.events = :keydown, :activate
+      @selected_rs_klass = nil
+      @selected_klass = nil
+      @opend_file = nil
+      @modified = nil
+      load_controls
+    end
+    
+    def load_controls()
+      @imgstdctl = Imagelist.new(20, 20, true)
+      @imgcmnctl = Imagelist.new(20, 20, true)
+      @imgrscctl = Imagelist.new(20, 20, true)
+      @fdstdctls = [['Unselect', 0]]
+      @fdcmnctls = [['Unselect', 0]]
+      @fdrscctls = [['Unselect', 0]]
+      dir = FdDir + '/controls/'
+      @imgstdctl << Bitmap.fromfile(dir+'unselect.bmp')
+      @imgcmnctl << Bitmap.fromfile(dir+'unselect.bmp')
+      @imgrscctl << Bitmap.fromfile(dir+'unselect.bmp')
+      istd = icmn = irsc = 0
+      Dir.glob(dir+"*.rb"){|i|
+        next unless File.basename(i) =~ /^[A-Z]/
+        load i
+        klassname = File.basename(i, '.rb')
+        klass = WR.module_eval(klassname)
+        case klass::FDConfig[:classify]
+        when :commonctrl
+          @imgcmnctl << klass::FDConfig[:bitmap]
+          @fdcmnctls << [klassname, icmn+=1, 0, klass]
+        when :resources
+          @imgrscctl << klass::FDConfig[:bitmap]
+          @fdrscctls << [klassname, irsc+=1, 0, klass]
+        else
+          @imgstdctl << klass::FDConfig[:bitmap]
+          @fdstdctls << [klassname, istd+=1, 0, klass]
+        end
+      }
+      @imgstdctl << Bitmap.fromfile(dir + 'default.bmp')
+    end
+    
+    def created()
+      move(x+800, y, w-800, h).show
+      register_hotkey(_main1.file1.save1.idcmd, 'Ctrl+S')
+      @lvstd.imagelist = @imgstdctl
+      @lvcmn.imagelist = @imgcmnctl
+      @lvrs1.imagelist = @imgrscctl
+      @lvrs2.set_subclass(true)
+      @lvrs2.register_event(WM_SETCURSOR, 'lvrs2_setcursor', 'ih')
+      class << @lvrs2
+        def lvrs2_setcursor(hwnd, hittest, msg)
+          return unless hittest == 1
+          return unless $fd_main_frm.selected_rs_klass
+          APP.SetCursor $fd_main_frm.selected_rsc_cursor
+          CancelDefWindowProc
+        end
+      end
+      @lvrs2.imagelist = @imgrscctl
+      
+      insert_toplevelwin('Form').move(self.x-800, self.y, 800, 600).show
+      self.SetFocus
+      accept_events :move, :resize, :close
+      update_attributes(@frm)
+      @ied1.parent = @lvattr
+      update_hierarchy()
+      @fdrscctls.each{|i| @lvrs1 << i}
+      @fdstdctls.each{|i| @lvstd << i}
+      @fdcmnctls.each{|i| @lvcmn << i}
+      unless ARGV.empty?
+        fname=ARGV.shift
+        begin
+          open1(fname)
+        rescue => err
+          STDERR.puts err
+        end
+      end
+    end
+    
+    def self_move(*) #; dpp self.x, self.y
+      @forms.each{|i| i.move(self.x-i.w, self.y) unless i.active?}
+    end
+    
+    def self_resize(*)
+      @forms.each{|i| i.move(self.x-i.w, self.y) unless i.active?}
+    end
+    
+    def check_winclassname(nm)
+      base = nm.sub(/\d+$/, '')
+      suffix = $~[0].to_i
+      while
+        @forms.find{|i| i.class.to_s.split('::').last == base+suffix.to_s}
+        suffix += 1
+      end
+      base + suffix.to_s
+    end
+    
+    def insert_toplevelwin(cname)
+      nm = check_winclassname(cname + '1')
+      @frm = WR.module_eval(
+      "class #{nm}<#{cname};
+         if defined? FDConfig 
+           FDConfig.clear
+         else
+           FDConfig={}
+         end
+         def initialize();end
+       end;
+       #{nm}.new"
+      )
+      @frm.visible = false
+#      @frm.size = 640, 480
+      @frm.extend(ModToplevelHook).create
+      @forms << @frm
+      _main1.window1.insert(_main1.window1.count-2, [:windows1, nm])
+      update_attributes(@frm)
+      update_hierarchy
+      @modified = true if @forms.size > 1
+      @frm
+    end
+    
+    def insdlg1_clicked(*)
+      dlg = insert_toplevelwin('Dialog')
+      dlg.show.move(x-dlg.w, y)
+    end
+    
+    def insfrm1_clicked(*)
+      _x, _y = self.position
+      frm = insert_toplevelwin('Form')
+      frm.show.move(_x-640, _y, 640, 480)
+    end
+    
+    def delfrm1_clicked(*)
+      return msgbox("This form is last one.", "Formdesigner", 0x10) if @forms.size==1
+      @forms.delete(@frm)
+      classname = @frm.class.to_s.split("::").last
+      _main1.window1.each{|i|
+        if i.caption == classname
+          i.delete
+          break
+        end
+      } #; dpp @frm.__fd_src[:classname]
+      unless  @frm.__fd_src.empty?
+        lns = @frm.__fd_src[:lines]
+        soc = ModFDCommon.index_of_src(lns, @frm.__fd_src[:classname][2])
+        eoc = ModFDCommon.index_of_src(lns,@frm.__fd_src[:endofclass][2])
+        while lns[eoc+=1] =~ /^\s*$/; end
+        eoc -= 1
+        lns.slice!(soc..eoc)
+      end
+      @frm.close
+      @frm = @forms.last
+      @modified = true
+      update_attributes(@frm)
+    end
+    
+    def windows1_clicked(id, st)
+      if @frm!=@forms[_main1.window1.index(id)]
+        (@frm=@forms[_main1.window1.index(id)]).activate
+        update_attributes(@frm)
+      end
+    end
+    
+    def check_modified()
+      case msgbox("Would you like to save this project?", "FormDesigner", 0x23) # QUESTION + YESNOCANCEL
+      when 6 # Yes
+        return save1_clicked
+      when 2 # Cancel
+        return nil
+      end if @modified
+      true
+    end
+    
+    def close_current_project()
+      @forms.each{|i| i.close if i.alive?}
+      @forms.clear
+      _main1.window1.clear
+      GC.start
+      @modified = nil
+    end
+    
+    def newform1_clicked(*)
+      return unless check_modified
+      _x, _y = self.position
+      close_current_project
+      @binded_files = nil
+      insert_toplevelwin('Form')
+      frm.show.move(_x-800, _y, 800, 600)
+      _main1.window1 << [:sep, [:delfrm1, "Delete this"]]
+    end
+    
+    def newdialog1_clicked(*)
+      return unless check_modified
+      close_current_project
+      dlg = insert_toplevelwin('Dialog')
+      dlg.show.move(x-dlg.w, y)
+      _main1.window1 << [:sep, [:delfrm1, "Delete this"]]
+    end
+    
+    def open1_clicked(*)
+      return unless check_modified
+      if fname = OpenFileNameDlg.show(self, caption: "Please select file")
+        open1(fname)
+      end
+    end
+    
+    def open1(fname)
+      current_src = open(fname){|f| f.read}
+      Dir.chdir(File.dirname(fname))
+      src = FDParseForm.new(current_src, fname)
+      src.parse
+      res = src.result #; PP.pp res, STDERR, 95
+      return MessageBox("No Form class in this file.", "FormDesigner", 0x10) if res.empty?
+      close_current_project
+      
+      lines = current_src.lines
+      res.reverse_each{|fm|
+        classname = fm.shift #; dpp classname
+        WR.module_eval(classname +
+        ";defined?(FDConfig) ? FDConfig.clear : FDConfig={};def initialize();end;end\n")
+        klass = WR.module_eval(classname.sub(/class\s+(\w+).*/m, '\1'))
+        frm = klass.new
+        frm.extend(ModToplevelHook)
+        frm.__fd_src[:filename] = fname
+        frm.__fd_src[:lines] = lns = lines
+        frm.__fd_src[:classname] = classname.column, classname.size, lns[classname.line]
+        endline = fm.pop
+        frm.__fd_src[:endofclass] = endline.column, endline.size, lns[endline.line]
+        
+        thickframeP = frm.style & WS_THICKFRAME
+        contexthelpP = frm.style & 0x00000002
+        frm.style |= WS_THICKFRAME
+        frm.style &= ~0x00000002
+#        if frm.is_a?(Dialog)
+#          frm.move self.x-(frm.w||800), self.y, frm.w||400, frm.h||300
+#        else
+#          frm.move self.x-(frm.w||800), self.y, frm.w||800, frm.h||600
+#        end
+        
+        self_x = self.x
+        self_y = self.y
+        frm.create
+        
+        fm.each{|i|
+          ln = i.line
+          cl = i.column
+          lsrc = lns[ln].extend(ModFDSrcLine)
+          asrc = [cl, i.size, lsrc]
+          if i =~ /^\s*self\.(\w+)\s*\=/
+            k = $1
+            next if !ModToplevelHook::FDAttributes.index{|i| i[0]==k} &&
+            k!='events' && k!='style'
+            k.extend(ModFDAttrSrcLine)
+            frm.__fd_src[k] = [cl, i.size, lsrc]
+            k.__fd_src = [cl, i.size, lsrc]
+            lsrc.binded_obj = k
+            if k=='events'
+              frm.__fd_events.clear
+              if (evs=eval(i.sub(/^\s*self\.\w+\s*\=/,''))).is_a?(Array)
+                frm.__fd_events.concat(evs)
+              else
+                frm.__fd_events << evs
+              end
+            elsif k=='style'
+              frm.style = eval(i.sub(/^\s*self\.\w+\s*\=/,''))
+            else
+              frm.instance_eval(i)
+            end
+          elsif i=~/^(s*[a-z_][\w\.\[\]]*\.?)\s*<<(.+)/m
+            lcount = $~.to_s.lines.size
+            begin
+              sobj = $1
+              sln = $~.to_s
+              sobj.sub!(/\.$/, '')
+              obj = frm.instance_eval(sobj)
+              ct = frm.instance_eval(sln)
+            rescue => err
+              MessageBox "At line#{ln}: #{err} (Skipped)", "FormDesigner", 0x10
+              next
+            end
+            lsrc.binded_obj = ct
+            if ct.is_a?(Window)
+              ct.class.module_eval "FDConfig={} unless defined?(FDConfig);" # for unregisterd
+              ct.extend(ModControlHook) unless ct.respond_to?(:__fd_destroy)
+              ct.__fd_src = [cl, i.size, lsrc, lcount]
+              i.match(/:events=>\[(.+?)\]/);
+              if evs=$1
+                ar = evs.split(',').map{|i| i.strip.tr(':', '').intern}
+                ct.__fd_events.concat(ar)
+              end
+            elsif ct.is_a?(Menu) || ct.is_a?(Timer)
+              ct.extend(ModResourceHook)
+              ct.__fd_src = [cl, i.size, lsrc]
+            elsif ct.is_a?(Imagelist)
+              ct.extend(ModResourceHook)
+              class << ct
+                attr_accessor :__fd_bindedfile, :__fd_toplevelwin
+              end
+              if i =~ /.*Imagelist.fromfile\W/
+                bf = i.split(",")
+                ct.__fd_bindedfile = bf.last.tr(' "()\'', '') if bf
+              end
+              ct.__fd_toplevelwin = frm
+              ct.__fd_src = [cl, i.size, lsrc, lcount]
+            else #if ct.is_a?(Array)#; dpp ln, i, ct # have items # obj is child
+              ct.each{|j|
+                (j.extend(ModControlHook) rescue nil) if j.is_a?(WinControl)
+              } if ct.respond_to?(:each)
+              if obj.is_a?(WinControl)
+                robj = obj
+                obj.__fd_item_loaded(ct, asrc) if obj.respond_to?(:__fd_item_loaded)
+              elsif obj.is_a?(Menu)
+                obj.extend(ModResourceHook)
+                obj.__fd_src = [cl, i.size, lsrc]
+                sobj.match(/^((:?_|_.|controls\.)\w+)\./)
+                owner = frm.instance_eval($1)
+                owner.__fd_item_loaded(ct, asrc) if obj.respond_to?(:__fd_item_loaded)
+              elsif obj.respond_to?(:owner)
+                obj.extend ModFDItemsSrcLine
+                obj.owner.__fd_item_loaded(ct, asrc) if obj.owner.respond_to?(:__fd_item_loaded)
+              else
+                dp "@%s", "At line #{ln}: \"#{i}\" was igonored."
+              end
+            end
+          else
+            dp "@%s", "At line #{ln}: \"#{i}\" was igonored."
+          end
+        }
+
+        frm.style &= ~WS_THICKFRAME if thickframeP==0
+        frm.style |= contexthelpP
+        frm.SendMessage(WM_SIZE, 0, MAKELPARAM(*frm.clientsize))
+        frm.refresh
+        if frm.is_a?(Dialog)
+          frm.move self_x-(frm.w||800), self_y, frm.w||400, frm.h||300
+        else
+          frm.move self_x-(frm.w||800), self_y, frm.w||800, frm.h||600
+        end
+        @forms << frm
+        _main1.window1 << [:windows1, klass.to_s.split('::')[1]]
+      }
+      _main1.window1 << [:sep, [:delfrm1, "Delete this"]]
+      @binded_files = {fname=>lines}
+      @frm = @forms[0]
+      @frm.activate
+      _tabs1.cursel = 0
+      _tabs2.cursel = 0
+      update_attributes(@frm)
+      update_hierarchy
+      self.caption = File.basename(fname)
+    end
+    
+    def save1_clicked(*)
+      return saveas1_clicked unless @binded_files # if new file
+      insert_point = nil
+      lns = nil
+      indentlevel = ['  ', 0]
+      @forms.each{|frm|
+        if frm.__fd_src.empty? # Newly added form/dialog
+          frm.__fd_src[:lines] = lns
+          ar = frm.__fd_frm2str(indentlevel)
+          lns[insert_point, 0] = ar + [indentlevel[0] * indentlevel[1] + "\n"]
+          lns.flatten
+        else
+          frm.__fd_modify_src
+          lns = frm.__fd_src[:lines]
+          lsrc = frm.__fd_src[:classname][2]
+          insert_point = ModFDCommon.index_of_src(lns, lsrc)
+        end
+      }
+      @binded_files.each{|fname, lns| open(fname, 'w'){|f| f.write(lns.join)}}
+      @modified = nil
+      true
+    end
+    
+    def saveas1_clicked(*) # need revise if exists file opned
+      return unless fname = SaveFileNameDlg.show(self, caption: "Save as",
+                                                       flags: OFN_OVERWRITEPROMPT)
+      if @binded_files
+        k = @binded_files.keys[0]
+        @binded_files[fname] = @binded_files.delete(k)
+        save1_clicked
+      else  # new file
+        indentlevel = ['  ', 0]
+        lns = ["require 'wrb'\n", "module WR\n"]
+        @forms.reverse_each{|frm|
+          ar = frm.__fd_frm2str(indentlevel, frm==@forms[0])
+          frm.__fd_src[:lines] = lns
+          frm.__fd_src[:filename] = fname
+          lns.concat(ar)
+          lns << "#{indentlevel[0]*indentlevel[1]}\n" unless frm==@forms[0]
+          indentlevel[1] -= 1
+        }
+        lns << "end\n"
+        open(fname, 'w'){|f| f.write(lns.join)}
+        @binded_files = {fname=>lns}
+        @modified = nil
+      end
+      true
+    end
+    
+    def exit1_clicked(*) #; dp "@exit: hwnd=%#x", _hwnd
+      return unless check_modified
+      @forms.each{|i| i.close if i.alive?}
+      APP.quit!
+    end
+    
+    def self_close(*) #; dp "@close: hwnd=%#x", _hwnd
+      return CancelDefWindowProc unless check_modified
+      @forms.each{|i| i.close if i.alive?}
+    end
+    
+    def lvstd_click(nm)
+      @selected_klass = @lvstd[nm.iItem].data
+    end
+    
+    def lvcmn_click(nm)
+      @selected_klass = @lvcmn[nm.iItem].data
+    end
+    
+    def lvrs1_click(nm)
+      @selected_rs_klass = @lvrs1[nm.iItem].data
+    end
+
+    
+    def get_attributes(ctrl, ar)
+      ar.map{|i| 
+        str, tp , defval = i #; dpp str, tp #, ctrl.__send__(str).to_s
+        if atr=parse_template4rd(ctrl, str, tp, defval)
+          [str + "\t" + atr, nil, nil, tp]
+        end
+      }.compact
+    end
+    
+    def parse_template4rd(ctrl, cmd, tp, defval=nil) #; dpp cmd, atr, tp, defval
+      begin
+        atr = ctrl.__send__(cmd)
+      rescue => err #; dpp err if err
+        if cmd=ctrl.class::FDConfig[(cmd+"_get").intern]
+          (atr = cmd.call(ctrl, atr)) rescue return nil
+        else
+          return nil
+        end
+      end
+      return atr.to_s unless tp
+      return '' if atr == defval
+      
+      tps = tp.split(',') #; dpp cmd, atr, tps[0]
+      atr = atr.to_a if tps[0].size>1 && atr.respond_to?(:to_a)
+      
+#      if atr.is_a?(Array)
+#        tp = tps[0]
+#      elsif atr.is_a?(Margin)
+#        tp = tps[0]
+#        atr = atr.to_a
+      if atr.is_a?(RWin::Font)
+        tp = tps[0]
+        atr = [atr.facename, atr.height, atr.attrstr]
+        atr.delete("")
+      else
+        if (c=@selected_ctrl.class) < WinControl && (f=c::FDConfig["#{cmd}_get".intern])
+          r = f.call(@selected_ctrl, atr)
+          return r && r.to_s.tr('"', '')
+        end
+        tp = tps.last
+        case tp
+        when 'h'
+          return atr ? sprintf("%#x", atr) : ''
+        when 'n'
+          return atr.respond_to?(:name) ? atr.name.to_s : atr.to_s
+        when 't'
+          return atr.nil? ? '' : sprintf("%p", atr).tr(':"', '')
+        else
+          return atr.to_s
+        end if tp.size==1
+      end #; dpp cmd, tp
+      res = []
+      [tp.size, atr.size].min.times{|i| #dpp i, tp[i], ar[i]
+        if (c=@selected_ctrl.class) < WinControl && (f=c::FDConfig["#{cmd}_get".intern])
+          break res << f.call(@selected_ctrl, atr).to_s.tr('":', '')
+        end
+        case tp[i]
+        when 'h' # parse as Hex
+          res << sprintf("%#x", atr[i])
+        when 'i', 'b' # parse as Integer or  true / false / nil
+          res << sprintf("%p", atr[i])
+#        when 's', 'm' # parse as  cmdid or Symbol
+#          res << atr[i].to_s
+        when 'n'# parse as control's name
+          res << (atr[i].respond_to?(:name) ? atr[i].name : (atr[i] ? atr[i].to_s : 'nil'))
+        when 't' # parse as 3 state value
+          res << (atr[i].nil? ? '' : sprintf("%p", atr[i]).tr(':"', ''))
+        when 'a'
+          break res << atr.to_s
+        else
+          res << atr[i].to_s
+        end
+      }
+      res.size > 1 ? "[#{res.join(', ')}]" : res[0].to_s
+    end
+    
+    def get_styles(ctrl)
+      ctrl.class::FDConfig[:styles] || ctrl.class::WinStyles.keys.map{|i| i.to_s}
+    end
+    
+    def get_events(ctrl) #dpp ctrl, ctrl.acceptable_events
+#      ctrl.class::FDConfig[:events] || ctrl.class::PreDefinedEvents.keys #rescue nil
+      ctrl.class::FDConfig[:events] || ctrl.acceptable_events.keys
+    end
+    
+    def update_attributes(ctrl) #; dpp ctrl, caller[0]
+      attrs = ctrl.__fd_attributes__
+      cursel = @tabs2.cursel
+      @tabs2.tabs = ctrl.class::FDConfig[:attr_tabs] || ['Attributes', 'Styles', 'Events']
+      @tabs2.tabs.each{|i| i.controls.clear}
+      @tabs2.controls.each{|i| i.hide}
+      @tabs2[0] << @lvattr
+      case @tabs2.count
+      when 2
+        @tabs2[1] << @lvitems
+      when 3
+        @tabs2[1] << @lvstyles
+        @tabs2[2] << @lvevents
+      when 4, 5
+        @tabs2[1] << @lvstyles
+        @tabs2[2] << @lvevents
+        @tabs2[3] << @lvitems
+        set_object2lvitems(ctrl)
+      end
+      @tabs2.cursel = cursel
+      tabs2_selchange(nil)
+      
+      if ctrl.is_a?(RWin::Window)
+        @lvrs2.selections.clear
+        @lvrs2.focused = nil
+        @lvstyles.clear
+        if as = get_styles(ctrl)
+          @_lvstyles_updating = true
+          @lvstyles[0, 0] = as 
+          ass = ctrl.style2symbols
+          @lvstyles.each{|i| i.checked = true if ass.index(i.text.intern)}
+          @_lvstyles_updating = nil
+        end
+
+        @lvevents.clear
+        if ev = get_events(ctrl)
+          @_lvevents_updating = true
+          ev.each_with_index{|v, i|
+            @lvevents << v.to_s
+            @lvevents[i].checked = true if ctrl.__fd_events && ctrl.__fd_events.index(v.intern)
+          }
+           @_lvevents_updating = nil
+        end
+      end
+      @stbr1.caption = if ctrl.respond_to?(:name) 
+        "#{ctrl.class}: #{ctrl.name}" 
+      else
+        "#{ctrl.class} < #{ctrl.class.ancestors[1].to_s.split('::')[1]}"
+      end
+      @selected_ctrl = ctrl
+      @lvattr.clear
+      @ied1.visible = false
+      @lvattr[0, 0] = get_attributes(ctrl, attrs)
+      tvhrc_select_ctrl()
+    end
+    
+    def update_inpledit(lv, i, j)
+      l, t, r, b = lv[i].rect
+      cw0 = lv.columns[0].width
+      cw1 = lv.columns[1].width
+      cw2 = lv.columns[2].width
+      cw3 = lv.columns[3].width
+      cw4 = lv.columns[4].width
+      @ied1.iitem = i
+      @ied1.isubitem = j
+      @ied1.visible = true
+      @ied1.show
+      @ied1.font = lv.font #; dpp @ied1.visible, @ied1.caption, @ied1.position, @ied1.size
+      case j
+      when 0
+        offset = 4 + 13 + lv[i].indent*13 # Bad magic numbers...
+        @ied1.move(offset, t+2, cw0-offset, b-t-4)
+      when 1
+        @ied1.move(cw0+5, t+2, cw1-5, b-t-4)
+      when 2
+        @ied1.move(cw0+cw1+5, t+2, cw2-5, b-t-4)
+      when 3
+        @ied1.move(cw0+cw1+cw2+5, t+2, cw3-5, b-t-4)
+      when 4
+        @ied1.move(cw0+cw1+cw2+cw3+5, t+2, cw4-5, b-t-4)
+      else
+        return @ied1.visible = false
+      end
+      @ied1.caption = lv[i][j]
+      @ied1.selection = 0, @ied1.length;
+      @ied1.readonly = lv[i].data ? false : true if lv==@lvattr
+      @ied1.SetFocus
+    end
+    
+    def parse_template4wr(cmd, str, tp)
+      tps = tp.split(',')
+      ar = str.sub(/^\[(.*)\]$/,'\1').split(',').map{|i| i.strip}
+      if ar.empty?
+        return tp=='s' ? '' : nil
+      end
+
+      tp = tps.find{|i| i.size==ar.size} || tps[0]
+      res = []
+      [tp.size, ar.size].min.times{|i| #dpp i, tp[i], ar[i]
+        if (c=@selected_ctrl.class)<WinControl && (f=c::FDConfig["#{cmd}_set".intern])
+          begin
+            res << f.call(@selected_ctrl, ar[i, ar.size-i])
+          rescue => err
+            MessageBox "#{err}", "FormDesigner", 0x10
+          end
+          break
+        end
+        case tp[i]
+        when 'h', 'i' # parse as Integer with prefix
+          res << (ar[i].nil?||ar[i]=='nil'||ar[i]=='n'||ar[i].empty? ? nil : ar[i].to_i(0))
+        when 's' # parse as  String
+          res << ar[i].to_s
+        when 'm' # parse as  Symbol
+          res << ar[i].intern
+        when 'b' # parse as  true or false
+          res << (ar[i].empty?||ar[i]=='false'||ar[i]=='nil'||ar[i]=='f'||ar[i]=='n' ? false : true)
+        when 'n' # parse as control's name
+          res << (@frm.controls.__send__(ar[i]) if !ar[i].nil? && ar[i]!='nil' rescue nil)
+        when 't' # parse as 3 state value and :parent
+          res << case ar[i]
+          when 'false', 'f'
+            false
+          when 'nil', 'n', '', nil
+            nil
+          when 'parent', 'p'
+            :parent
+          when 'force'
+            :force
+          else
+            true
+          end
+        when 'a'
+          res.concat ar[i, ar.size-i]
+          break
+        else
+          raise "Unknown template '#{tp[i]}'"
+        end
+      }
+      res.size==1 ? res[0] : res
+    end
+    
+    def reset_toplevelwin(newfrm, ctrl)
+      ctrl.parent = newfrm
+      ctrl._toplevelwin = newfrm
+      ctrl.controls.each{|i| reset_toplevelwin(newfrm, i)} if ctrl.respond_to?(:controls)
+    end
+    
+    API.defun "SetParent(hwndself, hwndparent)"
+    
+    def modify_class_name(frm, newname)
+      mod, oldname = frm.class.to_s.split('::')
+      newname = newname.split('::').last.to_s
+#      newname.split('::').last
+      
+      unless newname =~ /[A-Z]\w*/
+        return msgbox "Invalid class name: #{newname}", "FormDesigner", 0x10
+      end
+      return if oldname == newname #; dpp frm, newname
+      if @forms.find{|i| i.class.to_s.split('::').last == newname}
+        return msgbox "#{newname} is already exists.", "FormDesigner", 0x10
+      end
+      superclass = frm.class.ancestors[1].to_s
+      newfrm = WR.module_eval("
+class #{mod}::#{newname}<#{superclass}
+   FDConfig={} unless defined? FDConfig
+   def intialize();end
+ end
+#{newname}.new")
+      newfrm.extend(ModToplevelHook)
+      newfrm.move(@frm.x, @frm.y, @frm.w, @frm.h)
+      newfrm.__fd_attributes__.each{|k, v| next if k=='class' || k=='clientsize'
+        newfrm.__send__((k+"=").intern, @frm.__send__(k.intern))
+      }
+      newfrm.__fd_src.update(@frm.__fd_src)
+      oldfrm = @frm
+      newfrm.create
+      oldfrm.controls.each{|i|
+        reset_toplevelwin(newfrm, i) if i.is_a?(Window)
+        newfrm.controls[newfrm.controls.count, 0] = i
+        if i.is_a?(Menubar)
+          oldfrm.SetMenu(nil)
+          i.parent = newfrm
+          newfrm.SetMenu(i)
+        end
+      }
+      oldfrm.close
+      idx = @forms.index(oldfrm)
+      @selected_ctrl = @frm = newfrm
+      @forms[idx] = @frm
+      _main1.window1[idx].caption = newname
+      GC.start
+    end
+    
+    def refrect2ctrl(lvitem)
+      cmd = (lvitem[0] + "=").intern
+      template = lvitem.data #; dpp cmd, template
+      return if template.nil?
+      return modify_class_name(@selected_ctrl, lvitem[1]) if cmd == :class= && template == 'c'
+      return unless @selected_ctrl.respond_to?(cmd)
+      args = parse_template4wr(lvitem[0], lvitem[1], template) #; dpp cmd, args
+      begin
+        @selected_ctrl.__send__(cmd, args) #; dpp @selected_ctrl.__send__(lvitem[0].intern)
+      rescue => err
+        MessageBox "#{err}\n#{cmd}, #{args}", 'FormDesigner error', 0x10
+      end
+      if @selected_ctrl.is_a?(Window)
+        if @selected_ctrl.respond_to?(:_toplevelwin)
+          @selected_ctrl._toplevelwin.move_end
+        else
+          @selected_ctrl.move_end
+        end
+      elsif @selected_ctrl.is_a?(Dialog)
+        @selected_ctrl.x = self.x - @selected_ctrl.w
+        update_lvrs2()
+      else
+        update_lvrs2()
+      end
+    end
+    
+    def lvattr_click(nm) # Show inplace editor
+      return if API.uint2int(nm.iItem) < 0
+      update_inpledit(@lvattr, nm.iItem, 1)
+    end
+    
+    def lvattr_itemchanged(nm)
+      if nm.uOldState == LVIS_FOCUSED
+        lvitem = @lvattr[nm.iItem]
+        lvitem[1] = @ied1.caption #; dpp lvitem[1]
+        return if !lvitem.data || lvitem[1].empty?
+        refrect2ctrl(lvitem)
+      elsif nm.uNewState == LVIS_FOCUSED | LVIS_SELECTED
+        update_inpledit(@lvattr, nm.iItem, 1)
+      end
+    end
+    
+    def self_activate(state, minimize, hwnd)
+      return if state!=2
+      return unless @frm
+#      @frm.setorder(self)
+#      setorder(@frm)
+    end
+    
+    def self_keydown(vk, *) #; dpp vk
+      case vk
+      when 13 # LF
+        lv = @lvitems.visible ?  @lvitems : @lvattr
+        lvitem = lv[f=@ied1.iitem]
+        itm, subitm = lv.hittest(@ied1.x, @ied1.y)
+        lvitem[subitm] = @ied1.caption
+        if @lvitems.visible
+          so = @selected_object
+          if so.respond_to?(:__fd_edit_item)
+            so.__fd_edit_item(@lvitems, itm, subitm, @ied1)
+          else
+            so.class::FDConfig[:edit_item].call(so, @lvitems, itm, subitm, @ied1)
+          end
+        else
+          refrect2ctrl(lvitem)
+        end
+        lv[f].focused = true
+        update_inpledit(lv, f, subitm)
+      when 9 # TAB
+      end
+    end
+    
+    def update_nested_hierarchy(node, ctrl)
+      ctrl.controls.each{|i|
+        node << [i.name.to_s, nil, nil, i] if i.is_a?(WinControl)
+        node.expand
+        update_nested_hierarchy(node.last, i) if i.respond_to?(:controls)
+      }
+    end
+    
+    def update_hierarchy(ctrl=nil)
+      @tvhrc.clear.root << [@frm.class.to_s.sub(/^.*::/, ''), nil, nil, @frm]
+      @frm.controls.each{|i|
+        @tvhrc.root[0] <<  [i.name.to_s, nil, nil, i] if i.is_a?(WinControl)
+        update_nested_hierarchy(@tvhrc.root[0].last, i) if i.respond_to?(:controls)
+      }
+      @tvhrc.root.each{|i| i.expand}
+      tvhrc_select_ctrl
+    end
+    
+    def tvhrc_selchanged(nmtreeview)
+      ctrl = @tvhrc.hitem2ref(nmtreeview.itemNew.hItem).data
+      @frm.select_control_from_main(ctrl) if ctrl != @selected_ctrl
+    end 
+    
+    def tvhrc_select_ctrl(node=nil)
+      if node
+        node.each{|i|
+          if i.data == (@selected_ctrl || @frm)
+            return i.select
+          elsif i.count>0
+            tvhrc_select_ctrl(i)
+          end
+        }            
+      else
+        tvhrc_select_ctrl(@tvhrc.root)
+      end
+    end
+    
+#    def lvrs1_dblclk(*)
+#      add_resource2form()
+#    end
+#    def btrscadd_clicked(*)
+#      add_resource2form()
+#            klass =  @lvrs1[@lvrs1.focused].data
+#    end
+    
+    def add_resource2form
+      klass =  @selected_rs_klass
+      @selected_rs_klass = nil
+      @lvrs1[@lvrs1.focused].focused = false
+      return unless klass.is_a?(Class)
+      
+      conf = klass::FDConfig
+      defcap = klass.to_s.sub(/.*::/, '')
+      capt = conf[:default_caption] || defcap
+      name = conf[:default_name] || defcap.downcase
+      name = @frm.suffixed_name(name + "1").intern
+      ctls = @frm.controls
+      if klass <= Imagelist
+        iml = ImageSizeInput.open_modal(self, [klass, @frm])
+        return unless iml
+        iml.name = name
+        ct = ctls << iml
+        itemcap = "#{name} (#{w}, #{h})"
+      else #; dpp @frm
+        ct = ctls << klass.new(name, capt)
+        itemcap = name.to_s
+      end
+      
+      if (sz=ctls._size) > 1
+        a_mnb = []; s_mnb = []
+        a_mnu = []; s_mnu = []
+        a_tim = []; s_tim = []
+        a_iml = []; s_iml = []
+        lns = @frm.__fd_src[:lines]
+        sol = lns ? lns.size : 0
+        ctls._size.times{|j| # Sort by priority
+          i = sz-j-1; 
+          c = ctls[i]
+          if c.is_a?(Menubar)
+            a_mnb << ctls._delete_at(i)
+            if c.respond_to?(:__fd_src) && c.__fd_src
+              l = lns.index(lsrc=c.__fd_src[2])
+              sol = l if l && sol > l
+              s_mnb << lns.delete(lsrc)
+            end
+          elsif c.is_a?(Menu)
+            a_mnu << ctls._delete_at(i)
+            if c.respond_to?(:__fd_src) && c.__fd_src
+              l = lns.index(lsrc=c.__fd_src[2])
+              sol = l if l && sol > l
+              s_mnu << lns.delete(lsrc)
+            end
+          elsif c.is_a?(Timer)
+            a_tim << ctls._delete_at(i)
+            if c.respond_to?(:__fd_src) && c.__fd_src
+              l = lns.index(lsrc=c.__fd_src[2])
+              sol = l if l && sol > l
+              s_tim << lns.delete(lsrc)
+            end
+          elsif c.is_a?(Imagelist)
+            a_iml << ctls._delete_at(i)
+            if c.respond_to?(:__fd_src) && c.__fd_src
+              lsrc, lcount = c.__fd_src[2, 2]
+              l = lns.index(lsrc)
+              sol = l if l && sol > l
+              if lcount
+                ll = lns.index(lsrc)
+                s_iml << lns.slice!(ll, lcount)
+              else
+                s_iml << lns.delete(lsrc)
+              end #; dpp s_iml
+            end
+          end
+        }
+        
+        ar = (a_mnb + a_mnu + a_tim + a_iml).compact
+        ar.each{|c| ctls[0, 0] = c}
+        if lns
+          as = (s_iml + s_tim + s_mnu + s_mnb ).compact.flatten
+          lns[sol, 0] = as
+        end
+      end
+#      dpp ctls.map{|i| i.name}
+      
+      ct.extend(ModResourceHook)
+      @tabs2.cursel = 0
+      @lvattr.visible=true
+      update_lvrs2
+      @lvrs2.SetFocus
+      selidx = @lvrs2.find(param: ct.__id__)
+      @lvrs2.selections.clear
+      @lvrs2[selidx].selected = true
+      @lvrs2[selidx].focused = true
+      set_object2lvitems(ct)
+    end
+    
+    def tabs1_selchange(nmhdr)
+      @selected_rs_klass = nil
+      @selected_klass = nil
+      case @tabs1.cursel
+      when 0
+        @lvstd.clear
+        @fdstdctls.each{|i| @lvstd << i}
+      when 1
+        @lvcmn.clear
+        @fdcmnctls.each{|i| @lvcmn << i}
+      when 2
+        @lvrs1.clear
+        @fdrscctls.each{|i| @lvrs1 << i}
+        update_lvrs2
+      when 3
+        update_hierarchy()
+        tvhrc_select_ctrl()
+      end
+    end
+    
+    def tabs2_selchange(nmhdr)
+      @ied1.visible = false
+      @ied1.caption = ''
+      obj = @selected_ctrl
+      case @tabs2.cursel
+      when 0
+        @ied1.parent = @lvattr
+        @stbr1.caption = obj.respond_to?(:name) ? "#{obj.class}: #{obj.name}" : obj.class.to_s
+      when 1
+        if @tabs2[1].text != "Styles"
+          @ied1.parent = @lvitems
+          @stbr1.caption = "Right click to add an item."
+          if obj.respond_to?(:__fd_update_lv)
+            obj.__fd_update_lv(@lvitems)
+          else
+            (prc=obj.class::FDConfig[:update_lv]) && prc.call(obj, @lvitems)
+          end
+        else
+          @ied1.hide
+          @stbr1.caption = obj.respond_to?(:name) ? "#{obj.class}: #{obj.name}" : obj.class.to_s
+        end
+      when 3
+        @ied1.parent = @lvitems
+        @stbr1.caption = "Right click to add an item."
+        if obj.respond_to?(:__fd_update_lv)
+          obj.__fd_update_lv(@lvitems)
+        else
+          (prc=obj.class::FDConfig[:update_lv]) && prc.call(obj, @lvitems)
+        end
+      when 4
+        @lvitems.show
+        @ied1.parent = @lvitems
+        @stbr1.caption = "Right click to add an item."
+#        (prc=obj.class::FDConfig[:update_lv_alt]) && prc.call(obj, @lvitems)
+        obj.__fd_update_lv_alt(@lvitems)
+      else
+        @ied1.hide
+        @stbr1.caption = obj.respond_to?(:name) ? "#{obj.class}: #{obj.name}" : obj.class.to_s
+      end
+    end
+    
+    def update_lvrs2()
+      selidx = @lvrs2.focused
+      @lvrs2.clear
+      @frm.controls.each{|i|
+        unless i.is_a?(Window)
+          if i.is_a?(Menubar)
+            nm = i.name
+            img = 3
+          elsif i.is_a?(Menu)
+            nm = i.name
+            img = 2
+          elsif i.is_a?(Imagelist)
+            w, h =  i.iconsize
+            nm = "#{i.name} (#{w}, #{h})"
+            img = 1
+          elsif i.is_a?(Timer)
+            nm = i.name
+            img = 4
+          end #;dpp [nm, img, nil, i]
+          @lvrs2 << [nm.to_s, img, nil, i]
+        end
+      }
+      return if selidx < 0
+      @lvrs2[selidx].focused = true
+      @lvrs2[selidx].selected = true
+    end
+    
+    def lvrs2_click(nmitem)
+      return add_resource2form() if @selected_rs_klass
+#      @selected_rs_klass = nil
+      obj = @lvrs2[nmitem.iItem].data
+      @frm.TrackPopupMenu(obj, 0,0) if obj.is_a?(Menu) && !obj.is_a?(Menubar)
+    end
+    
+    def lvrs2_itemchanged(nmlv)
+      return if nmlv.uNewState & LVIS_FOCUSED == 0
+      obj = @lvrs2[nmlv.iItem].data
+      update_attributes(obj)
+      set_object2lvitems(obj)
+    end
+    
+    def set_object2lvitems(obj)
+      @ied1.visible = false
+      @ied1.caption = ''
+      if obj.respond_to?(:__fd_set_lvitem)
+        @selected_object = obj
+        @frm.select_control_from_main(nil) unless obj.is_a?(Window)
+        obj.__fd_set_lvitem(@lvitems, _image0)
+      elsif setobject=obj.class::FDConfig[:setobject]
+        @selected_object = obj
+        @frm.select_control_from_main(nil) unless obj.is_a?(Window)
+        setobject.call(obj, @lvitems, _image0) if setobject
+      else
+        return
+      end
+      case @tabs2.cursel
+      when 0
+        @stbr1.caption = obj.respond_to?(:name) ? "#{obj.class}: #{obj.name}" : obj.class
+      when 1
+        @stbr1.caption = "Right click to add an item."
+      end
+    end
+    
+    def lvrs2_rclick(nmitem)
+      cx, cy = nmitem.ptAction.to_a
+      TrackPopupMenu(_.popup2, @lvrs2.x + cx, @lvrs2.y + cy)
+    end
+    
+    def additem_clicked(idcmd, state)
+      return unless so = @selected_object
+      if so.respond_to?(:__fd_on_additem)
+        so.__fd_on_additem(@lvitems, @lvitems.focused, _popup1, idcmd)
+        return
+      end
+      so.class::FDConfig[:on_additem].call(so, @lvitems, @lvitems.focused, _popup1, idcmd)
+    end
+    def insertitem_clicked(*)
+      return unless so = @selected_object
+      if so.respond_to?(:__fd_on_insertitem)
+        so.__fd_on_insertitem(@lvitems, @lvitems.focused)
+        return
+      end
+      so.class::FDConfig[:on_insertitem].call(so, @lvitems, @lvitems.focused)
+    end
+    def additem_under_clicked(*)
+      return unless so = @selected_object
+      if so.respond_to?(:__fd_on_additem_under)
+        so.__fd_on_additem_under(@lvitems, @lvitems.focused)
+        return
+      end
+      so.class::FDConfig[:on_additem_under].call(so, @lvitems, @lvitems.focused)
+    end
+    def addnode_clicked(*)
+      return unless so = @selected_object
+      if so.respond_to?(:__fd_on_addnode)
+        so.__fd_on_addnode(@lvitems, @lvitems.focused)
+        return
+      end
+      so.class::FDConfig[:on_addnode].call(so, @lvitems, @lvitems.focused)
+    end
+    def addnode_under_clicked(*)
+      return unless so = @selected_object
+      if so.respond_to?(:__fd_on_addnode_under)
+        so.__fd_on_addnode_under(@lvitems, @lvitems.focused)
+        return
+      end
+      so.class::FDConfig[:on_addnode_under].call(so, @lvitems, @lvitems.focused)
+    end
+    def deleteitem_clicked(*)
+      return unless so = @selected_object
+      if so.respond_to?(:__fd_on_deleteitem)
+        so.__fd_on_deleteitem(@lvitems, @lvitems.focused)
+        return
+      end
+      so.class::FDConfig[:on_deleteitem].call(so, @lvitems, @lvitems.focused)
+    end
+    
+    def deleteitem2_clicked(*)
+      obj = @lvrs2[@lvrs2.focused].data
+      obj.__fd_on_delete_this() if obj.respond_to?(:__fd_on_delete_this)
+      @lvrs2[@lvrs2.focused].delete
+      @frm.controls.delete(obj)
+      @frm.SetMenu(nil) if obj.is_a?(Menubar)
+      @lvrs2.selections.clear
+      @lvrs2.clear
+      update_lvrs2
+    end
+    
+    def tvhrc_rclick(nmhdr)
+      cx, cy = @tvhrc.ScreenToClient(*APP.GetCursorPos)
+      if caret = @tvhrc.hittest(cx, cy)
+        caret.select
+        TrackPopupMenu(_popup3, cx, cy) if caret.data != @frm
+      end
+    end
+    
+    def udhrc_deltapos(ud)
+      ctl = @tvhrc.selection.data
+      return if !ctl || ctl==@frm
+      ctls = ctl.parent.controls
+      idx = ctls.index(ctl)
+      if ud.iDelta < 0 # UP
+        return if idx == 0
+        ctls.delete_at(idx)
+        ctls[idx-1, 0] = ctl
+      else             # DOWN
+        ctls.delete_at(idx)
+        ctls[idx+1, 0] = ctl
+      end
+      ctls.compact!
+      update_hierarchy()
+      tvhrc_select_ctrl()
+    end
+    
+    def deleteitem3_clicked(*)
+      @tvhrc.selection.data.delete
+      @tvhrc.selection.delete
+    end
+    
+    def lvitems_rclick(nmitem) #; dpp nmitem
+      @ied1.visible = false
+      so = @selected_object || @selected_ctrl
+      idx = nmitem.iItem #; dpp so, idx
+      if so.respond_to?(:__fd_on_lv_rclick) #; dpp so, _popup1, _popup1.count
+        _popup1.clear
+        r = so.__fd_on_lv_rclick(@lvitems, idx)#; dpp idx, r
+        _popup1[0, 0] = r
+      else
+        _popup1.clear[0, 0] = so.class::FDConfig[:on_lv_rclick].call(so, @lvitems, idx)
+      end
+      cx, cy = ScreenToClient(*APP.GetCursorPos)
+      TrackPopupMenu(_popup1, cx, cy)
+    end
+    
+    def lvitems_click(nmia)
+      if @ied1.iitem && @ied1.isubitem &&
+        (nmia.iItem==@ied1.iitem && nmia.iSubItem!=@ied1.isubitem)
+        so = @selected_object
+        update_inpledit(@lvitems, nmia.iItem, nmia.iSubItem)
+        if so.respond_to?(:__fd_edit_item)
+          so.__fd_edit_item(@lvitems, nmia.iItem, nmia.iSubItem, @ied1)
+        elsif prc=so.class::FDConfig[:edit_item]
+          prc.call(so, @lvitems, nmia.iItem, nmia.iSubItem, @ied1)
+        end
+      else
+        update_inpledit(@lvitems, nmia.iItem, nmia.iSubItem)
+      end
+      @lvitems_cursubitem = nmia.iSubItem
+    end
+    
+    def lvitems_itemchanged(nmlv)
+      if nmlv.uOldState == LVIS_FOCUSED
+        so = @selected_object
+        lvitem = @lvitems[nmlv.iItem]
+        @lvitems[nmlv.iItem][@lvitems_cursubitem] = @ied1.caption
+        if so.respond_to?(:__fd_edit_item)
+          so.__fd_edit_item(@lvitems, nmlv.iItem, @lvitems_cursubitem, @ied1)
+        elsif prc=so.class::FDConfig[:edit_item]
+          prc.call(so, @lvitems, nmlv.iItem, @lvitems_cursubitem, @ied1)
+        end
+      elsif nmlv.uNewState == LVIS_FOCUSED | LVIS_SELECTED
+        update_inpledit(@lvitems, nmlv.iItem, @lvitems_cursubitem)
+      end
+    end
+    
+    def lvstyles_itemchanged(nmlv)
+      return if @_lvstyles_updating
+      win = (@selected_ctrl || @frm)
+      nm = @lvstyles[nmlv.iItem].text.intern
+      st = win.class::WinStyles[nm]
+      altmask = win.class::FDConfig[:altanate_mask]
+      m = altmask.find{|i| i&st > 0 || (i&1>0 && st==0)} if altmask # check LSB of mask
+      mm = win.class::WinStyles.inject([]){|r, v|
+        r << v[0] if (v[1]&m > 0) || (v[1]==0 && m&1==1)
+        r
+      } if m
+      case nmlv.uNewState >> 12
+      when 1 # not checked
+        win.style &= ~st
+      when 2  # checked
+        if m
+          mm.each{|i|
+            if (fi=@lvstyles.find(string: i.to_s)) >= 0 && i != nm
+              @_lvstyles_updating = true
+              @lvstyles[fi].checked = false
+              @_lvstyles_updating = nil
+            end
+          }
+          win.style = (win.style & ~m) | st
+        else
+          win.style |= st
+        end
+      end
+      if win.respond_to?(:__fd_recreate_this)
+        @selected_ctrl = win.__fd_recreate_this()
+      elsif win.class::FDConfig[:need_recreate]
+        @selected_ctrl = win.__fd_recreate
+      end
+      win.refresh
+    end
+    
+    def lvevents_itemchanged(nmlv)
+      return if @_lvevents_updating
+      win = (@selected_ctrl || @frm)
+      case nmlv.uNewState >> 12
+      when 1 # not checked
+        if win.class::DefaultEvents.index(@lvevents[nmlv.iItem].text.intern)
+          @lvevents[nmlv.iItem].checked = true
+        else
+          win.__fd_events.delete(@lvevents[nmlv.iItem].text.intern)
+        end
+      when 2 # checkd
+        win.__fd_events << @lvevents[nmlv.iItem].text.intern
+        win.__fd_events.uniq!
+      end
+    end
+    
+    def raise1_clicked(*)
+      raise
+    end
+    
+    self.start if $0==__FILE__
+  end
+end