wrb 2.0.0

data/lib/wrb/components/trackbar.rb

@@ -0,0 +1,298 @@
+require 'wrb'
+require 'wrb/commctrlconst'
+
+module WR
+  module RC
+    TBS_AUTOTICKS      = 0x1
+    TBS_VERT           = 0x2
+    TBS_HORZ           = 0x0
+    TBS_TOP            = 0x4
+    TBS_BOTTOM         = 0x0
+    TBS_LEFT           = 0x4
+    TBS_RIGHT          = 0x0
+    TBS_BOTH           = 0x8
+    TBS_NOTICKS        = 0x10
+    TBS_ENABLESELRANGE = 0x20
+    TBS_FIXEDLENGTH    = 0x40
+    TBS_NOTHUMB        = 0x80
+    TBS_TOOLTIPS       = 0x100
+    TBS_REVERSED       = 0x200
+    TBS_DOWNISLEFT     = 0x400
+
+    TBM_GETPOS         = WM_USER
+    TBM_GETRANGEMIN    = WM_USER+1
+    TBM_GETRANGEMAX    = WM_USER+2
+    TBM_GETTIC         = WM_USER+3
+    TBM_SETTIC         = WM_USER+4
+    TBM_SETPOS         = WM_USER+5
+    TBM_SETRANGE       = WM_USER+6
+    TBM_SETRANGEMIN    = WM_USER+7
+    TBM_SETRANGEMAX    = WM_USER+8
+    TBM_CLEARTICS      = WM_USER+9
+    TBM_SETSEL         = WM_USER+10
+    TBM_SETSELSTART    = WM_USER+11
+    TBM_SETSELEND      = WM_USER+12
+    TBM_GETPTICS       = WM_USER+14
+    TBM_GETTICPOS      = WM_USER+15
+    TBM_GETNUMTICS     = WM_USER+16
+    TBM_GETSELSTART    = WM_USER+17
+    TBM_GETSELEND      = WM_USER+18
+    TBM_CLEARSEL       = WM_USER+19
+    TBM_SETTICFREQ     = WM_USER+20
+    TBM_SETPAGESIZE    = WM_USER+21
+    TBM_GETPAGESIZE    = WM_USER+22
+    TBM_SETLINESIZE    = WM_USER+23
+    TBM_GETLINESIZE    = WM_USER+24
+    TBM_GETTHUMBRECT   = WM_USER+25
+    TBM_GETCHANNELRECT = WM_USER+26
+    TBM_SETTHUMBLENGTH = WM_USER+27
+    TBM_GETTHUMBLENGTH = WM_USER+28
+    TBM_SETTOOLTIPS    = WM_USER+29
+    TBM_GETTOOLTIPS    = WM_USER+30
+    TBM_SETTIPSIDE     = WM_USER+31
+    TBM_SETBUDDY       = WM_USER+32
+    TBM_GETBUDDY       = WM_USER+33
+    TBM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT
+    TBM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT
+
+    TBTS_TOP    = 0
+    TBTS_LEFT   = 1
+    TBTS_BOTTOM = 2
+    TBTS_RIGHT  = 3
+    
+    TB_LINEUP        = 0
+    TB_LINEDOWN      = 1
+    TB_PAGEUP        = 2
+    TB_PAGEDOWN      = 3
+    TB_THUMBPOSITION = 4
+    TB_THUMBTRACK    = 5
+    TB_TOP           = 6
+    TB_BOTTOM        = 7
+    TB_ENDTRACK      = 8
+
+    TBCD_TICS    = 0x1
+    TBCD_THUMB   = 0x2
+    TBCD_CHANNEL = 0x3
+    
+    TRBN_FIRST = -1501
+    TRBN_THUMBPOSCHANGING = TRBN_FIRST-1
+  end
+  
+  # A window that contains a slider in a channel, and optional tick marks.
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Trackbar < WinControl
+    include ModCommCtrl
+    
+    TRBTHUMBPOSCHANGING = API.defstruct  "
+      NMHDR hdr;
+      DWORD dwPos;
+      int nReason;"
+
+    WinStyles = {
+      :autotics       => TBS_AUTOTICKS,
+      :vert           => TBS_VERT,
+      :horiz          => TBS_HORZ,
+      :top            => TBS_TOP,
+      :bottom         => TBS_BOTTOM,
+      :left           => TBS_LEFT,
+      :right          => TBS_RIGHT,
+      :both           => TBS_BOTH,
+      :notics         => TBS_NOTICKS,
+      :enableselrange => TBS_ENABLESELRANGE,
+      :fixedlength    => TBS_FIXEDLENGTH,
+      :nothumb        => TBS_NOTHUMB,
+      :tooltips       => TBS_TOOLTIPS,
+      :reversed       => TBS_REVERSED,
+      :downisleft     => TBS_DOWNISLEFT,
+    }
+#    def self.sym2style(*args) _sym2style(WinStyles, args); end
+    
+    PreDefinedEvents = {
+      :releasedcapture  => [WM_NOTIFY, NM_RELEASEDCAPTURE, 'xs', NMHDR], 
+      :thumbposchanging => [WM_NOTIFY, TRBN_THUMBPOSCHANGING, 'xs', TRBTHUMBPOSCHANGING],
+      :customdraw       => [WM_NOTIFY, NM_CUSTOMDRAW, 'xs', NMCUSTOMDRAW]
+    }
+    
+    DefaultEvents = [:releasedcapture]
+    
+    def initialize(*args)
+      super
+      @_classname = "msctls_trackbar32"
+      @_acceptable_events = PreDefinedEvents.dup
+    end
+    #
+    def create()
+      super
+      self.pos = @_pos if @_pos
+      self.range = @_range if @_range
+      self.tics = @_tics if @_tics
+      self.thumblength = @_thumblength if @_thumblength
+      self.buddy = @_buddy if @_buddy
+    end
+    
+    # Retrieves the current logical position of the slider in this trackbar.
+    def pos()
+      alive? ? SendMessage(TBM_GETPOS, 0, 0) : @_pos
+    end
+    # pos=(pos, redraw=true)
+    # Sets the current logical position of the slider in a trackbar.
+    def pos=(*args)
+      ps, redraw = args[0].is_a?(Array) ? args[0] : args[0], true
+      alive? ? SendMessage(TBM_SETPOS, redraw ? 1 : 0, ps) : @_pos = ps
+    end
+    
+    # Retrieves the minimum and maximum position for the slider in this trackbar.
+    def range()
+      if alive?
+        [SendMessage(TBM_GETRANGEMIN, 0, 0), SendMessage(TBM_GETRANGEMAX, 0, 0)]
+      else
+        @_range
+      end
+    end
+    # range=(min, max, redraw)
+    # Sets the range of minimum and maximum logical positions for the slider in this trackbar.
+    def range=(*args)
+      lo, hi, redraw = args[0].is_a?(Array) ? args[0] : [0, args[0], true]
+      redraw = true if redraw.nil?
+      if alive? 
+        SendMessage(TBM_SETRANGE, redraw ? 1 : 0, MAKELPARAM(lo, hi)) 
+      else
+        @_range = [lo, hi, redraw]
+      end
+    end
+    
+    def selectionrange()
+      if alive?
+        [SendMessage(TBM_GETSELSTART, 0, 0), SendMessage(TBM_GETSELEND, 0, 0)]
+      else
+        @_selectionrange
+      end
+    end
+    # Gets/Sets the starting and ending position of the current selection range in this trackbar.<br>
+    # These methods are ignored if the trackbar has no TBS_ENABLESELRANGE style.
+    def selectionrange=(*args)
+      lo, hi, redraw = args[0].is_a?(Array) ? args[0] : [0, args[0], true]
+      redraw = true if redraw.nil?
+      if alive? 
+        SendMessage(TBM_SETSEL, redraw ? 1 : 0, MAKELPARAM(lo, hi)) 
+      else
+        @_selectionrange = [lo, hi, redraw]
+      end
+    end
+    
+    # Retrieves all logical position of a tick mark in this trackbar. 
+    def tics()
+      if alive?
+        tics = []
+        n = SendMessage(TBM_GETNUMTICS, 0, 0)
+        (n - 2).times{|i| tics << SendMessage(TBM_GETTIC, i, 0)}
+        tics
+      else
+        @_tics
+      end
+    end
+    # Sets all logical position of a tick mark in this trackbar.<br>
+    # Give an array of [int1, int2, ... ].
+    def tics=(*args)
+      arg = args[0]
+      if alive?
+        if arg.nil? 
+          SendMessage(TBM_CLEARTICS, 0, 0) 
+        else
+          arg.each{|i| SendMessage(TBM_SETTIC, 0, i.to_i)}
+        end
+      else
+        @_tics = arg
+      end
+    end
+    
+    def thumblength()
+      if alive?
+        SendMessage(TBM_GETTHUMBLENGTH, 0, 0)
+      else
+        @_thumblength
+      end
+    end
+    # Gets/Sets the length of the slider in a trackbar. 
+    # This methods are ignored if the trackbar does not have the TBS_FIXEDLENGTH style. 
+    def thumblength=(len)
+      if alive?
+        SendMessage(TBM_SETTHUMBLENGTH, len, 0)
+      else
+        @_thumblength = len
+      end
+    end
+    
+    # Retrieves a tooltip control assigned to this trackbar, if any.
+    def tooltips()
+      if alive?
+        APP.hwnd2ref(SendMessage(TBM_GETTOOLTIPS, 0, 0))
+      else
+        @_tooltips
+      end
+    end
+    # Assigns a tooltip control to this trackbar control.
+    def tooltips=(tt)
+      if alive?
+        SendMessage(TBM_SETTOOLTIPS, tt._hwnd, 0)
+      else
+        @_tooltips
+      end
+    end
+    
+    # Retrieves the two buddy windows to this trackbar control at both left/top and right/bottom locations. 
+    def buddy()
+      if alive? 
+        [APP.hwnd2ref(SendMessage(TBM_GETBUDDY, 1, 0)), 
+         APP.hwnd2ref(SendMessage(TBM_GETBUDDY, 0, 0))]
+      else
+        @_buddy
+      end
+    end
+    # Assigns the two windows as the buddy window for this trackbar control.
+    # Give an array of [left_top_control, right_bottm_control].
+    def buddy=(args)
+      lt, rb = args
+      if alive?
+        SendMessage(TBM_SETBUDDY, 1, lt._hwnd) if lt
+        SendMessage(TBM_SETBUDDY, 0, rb._hwnd) if rb
+      else
+        @_buddy = args
+      end
+    end
+    
+    # The channel is the area over which the slider moves. 
+    # It contains the highlight when a range is selected.
+    def channelrect()
+      SendMessage(TBM_GETCHANNELRECT, 0, rect=RECT.new)
+      rect.to_a
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st=WinStyles[arg]
+        self.style |= st
+      end
+      super
+    end
+  end
+end
+
+module WR
+  class Form1 < Form
+    def initialize()
+      self.inheritfont = Font['Meiryo', 18]
+      resize 640, 480
+      controls << Edit[:buddy2, "min", 0, 250, 40, 22]
+      controls << Button[:buddy3, "max", 0, 250, 40, 24]
+      controls << Trackbar.new(:track1, 80, 100, 50, 150, :vert, #:reversed,
+                           :tics=>[20,40,60,80], :buddy=>[_buddy3, _buddy2])
+    end
+    def created()
+      dp "@%#x, %d", _track1.style, _track1.pos 
+    end
+    
+    self.start
+  end
+end if $0 == __FILE__

data/lib/wrb/components/treeview.rb

@@ -0,0 +1,845 @@
+require 'wrb'
+
+module WR
+  module RC
+    TVS_HASBUTTONS      = 0x1
+    TVS_HASLINES        = 0x2
+    TVS_LINESATROOT     = 0x4
+    TVS_EDITLABELS      = 0x8
+    TVS_DISABLEDRAGDROP = 0x10
+    TVS_SHOWSELALWAYS   = 0x20
+    TVS_RTLREADING      = 0x40
+    TVS_NOTOOLTIPS      = 0x80
+    TVS_CHECKBOXES      = 0x100
+    TVS_TRACKSELECT     = 0x200
+    TVS_SINGLEEXPAND    = 0x400
+    TVS_INFOTIP         = 0x800
+    TVS_FULLROWSELECT   = 0x1000
+    TVS_NOSCROLL        = 0x2000
+    TVS_NONEVENHEIGHT   = 0x4000
+    TVS_NOHSCROLL       = 0x8000
+    TVS_DEFAULT         = TVS_HASBUTTONS | TVS_HASLINES | TVS_LINESATROOT | TVS_EDITLABELS
+    
+    TV_FIRST          = 0x1100
+    TVM_DELETEITEM    = TV_FIRST+ 1
+    TVM_EXPAND	      = TV_FIRST+ 2
+    TVM_GETCOUNT      = TV_FIRST+ 5
+    TVM_GETINDENT     = TV_FIRST+ 6
+    TVM_SETINDENT     = TV_FIRST+ 7
+    TVM_GETIMAGELIST  = TV_FIRST+ 8
+    TVM_SETIMAGELIST  = TV_FIRST+ 9
+    TVM_GETNEXTITEM   = TV_FIRST+10
+    TVM_SELECTITEM    = TV_FIRST+11
+    
+    TVM_INSERTITEMA   = TV_FIRST
+    TVM_GETITEMA      = TV_FIRST+12
+    TVM_SETITEMA      = TV_FIRST+13
+    TVM_GETISEARCHSTRINGA = TV_FIRST+23
+    
+    TVM_INSERTITEMW   = TV_FIRST+50
+    TVM_GETITEMW      = TV_FIRST+62
+    TVM_SETITEMW      = TV_FIRST+63
+    TVM_GETISEARCHSTRINGW  = TV_FIRST+64
+    
+    if RWin::UNICODE
+      TVM_INSERTITEM  = TVM_INSERTITEMW
+      TVM_GETITEM     = TVM_GETITEMW
+      TVM_SETITEM     = TVM_SETITEMW
+      TVM_GETISEARCHSTRING = TVM_GETISEARCHSTRINGW
+    else
+      TVM_INSERTITEM  = TVM_INSERTITEMA
+      TVM_GETITEM     = TVM_GETITEMA
+      TVM_SETITEM     = TVM_SETITEMA
+      TVM_GETISEARCHSTRING = TVM_GETISEARCHSTRINGA
+    end
+
+    TVM_HITTEST         = TV_FIRST+17
+    TVM_CREATEDRAGIMAGE = TV_FIRST+18
+    TVM_SORTCHILDREN    = TV_FIRST+19
+    TVM_ENSUREVISIBLE   = TV_FIRST+20
+    TVM_SORTCHILDRENCB  = TV_FIRST+21
+    TVM_ENDEDITLABELNOW = TV_FIRST+22
+    TVM_SETTOOLTIPS     = TV_FIRST+24
+    TVM_GETTOOLTIPS     = TV_FIRST+25
+    TVM_SETINSERTMARK   = TV_FIRST+26
+    TVM_SETITEMHEIGHT   = TV_FIRST+27
+    TVM_GETITEMHEIGHT   = TV_FIRST+28
+    TVM_SETBKCOLOR      = TV_FIRST+29
+    TVM_SETTEXTCOLOR    = TV_FIRST+30
+    TVM_GETBKCOLOR      = TV_FIRST+31
+    TVM_GETTEXTCOLOR    = TV_FIRST+32
+    TVM_SETSCROLLTIME   = TV_FIRST+33
+    TVM_GETSCROLLTIME   = TV_FIRST+34
+    TVM_SETINSERTMARKCOLOR = TV_FIRST+37
+    TVM_GETINSERTMARKCOLOR = TV_FIRST+38
+    TVM_GETITEMSTATE    = TV_FIRST+39
+    TVM_SETLINECOLOR    = TV_FIRST+40
+    TVM_GETLINECOLOR    = TV_FIRST+41
+    TVM_MAPACCIDTOHTREEITEM = TV_FIRST+42
+    TVM_MAPHTREEITEMTOACCID = TV_FIRST+43
+    
+    TVN_FIRST         = -400
+    TVN_KEYDOWN       = TVN_FIRST-12
+    TVN_SINGLEEXPAND  = TVN_FIRST-15
+    
+    TVN_SELCHANGINGA  = TVN_FIRST-1
+    TVN_SELCHANGEDA   = TVN_FIRST-2
+    TVN_GETDISPINFOA  = TVN_FIRST-3
+    TVN_SETDISPINFOA  = TVN_FIRST-4
+    TVN_ITEMEXPANDINGA= TVN_FIRST-5
+    TVN_ITEMEXPANDEDA = TVN_FIRST-6
+    TVN_BEGINDRAGA    = TVN_FIRST-7
+    TVN_BEGINRDRAGA   = TVN_FIRST-8
+    TVN_DELETEITEMA   = TVN_FIRST-9
+    TVN_BEGINLABELEDITA = TVN_FIRST-10
+    TVN_ENDLABELEDITA   = TVN_FIRST-11
+    TVN_GETINFOTIPA     = TVN_FIRST-13
+    
+    TVN_SELCHANGINGW  = TVN_FIRST-50
+    TVN_SELCHANGEDW   = TVN_FIRST-51
+    TVN_GETDISPINFOW  = TVN_FIRST-52
+    TVN_SETDISPINFOW  = TVN_FIRST-53
+    TVN_ITEMEXPANDINGW= TVN_FIRST-54
+    TVN_ITEMEXPANDEDW = TVN_FIRST-55
+    TVN_BEGINDRAGW    = TVN_FIRST-56
+    TVN_BEGINRDRAGW   = TVN_FIRST-57
+    TVN_DELETEITEMW   = TVN_FIRST-58
+    TVN_BEGINLABELEDITW = TVN_FIRST-59
+    TVN_ENDLABELEDITW   = TVN_FIRST-60
+    TVN_GETINFOTIPW     = TVN_FIRST-14
+    
+    if RWin::UNICODE
+      TVN_SELCHANGING  = TVN_SELCHANGINGW
+      TVN_SELCHANGED   = TVN_SELCHANGEDW
+      TVN_GETDISPINFO  = TVN_GETDISPINFOW
+      TVN_SETDISPINFO  = TVN_SETDISPINFOW
+      TVN_ITEMEXPANDING = TVN_ITEMEXPANDINGW
+      TVN_ITEMEXPANDED = TVN_ITEMEXPANDEDW
+      TVN_BEGINDRAG    = TVN_BEGINDRAGW
+      TVN_BEGINRDRAG   = TVN_BEGINRDRAGW
+      TVN_DELETEITEM   = TVN_DELETEITEMW
+      TVN_BEGINLABELEDIT = TVN_BEGINLABELEDITW
+      TVN_ENDLABELEDIT = TVN_ENDLABELEDITW
+      TVN_GETINFOTIP   = TVN_GETINFOTIPW
+    else
+      TVN_SELCHANGING  = TVN_SELCHANGINGA
+      TVN_SELCHANGED   = TVN_SELCHANGEDA
+      TVN_GETDISPINFO  = TVN_GETDISPINFOA
+      TVN_SETDISPINFO  = TVN_SETDISPINFOA
+      TVN_ITEMEXPANDING = TVN_ITEMEXPANDINGA
+      TVN_ITEMEXPANDED = TVN_ITEMEXPANDEDA
+      TVN_BEGINDRAG    = TVN_BEGINDRAGA
+      TVN_BEGINRDRAG   = TVN_BEGINRDRAGA
+      TVN_DELETEITEM   = TVN_DELETEITEMA
+      TVN_BEGINLABELEDIT = TVN_BEGINLABELEDITA
+      TVN_ENDLABELEDIT = TVN_ENDLABELEDITA
+      TVN_GETINFOTIP   = TVN_GETINFOTIPA
+    end
+    
+    TVI_ROOT          = -0x10000
+    TVI_FIRST         = TVI_ROOT+1
+    TVI_LAST          = TVI_ROOT+2
+    TVI_SORT          = TVI_ROOT+3
+    
+    TVGN_ROOT = 0x0
+    TVGN_NEXT = 0x1
+    TVGN_PREVIOUS = 0x2
+    TVGN_PARENT = 0x3
+    TVGN_CHILD = 0x4
+    TVGN_FIRSTVISIBLE = 0x5
+    TVGN_NEXTVISIBLE = 0x6
+    TVGN_PREVIOUSVISIBLE = 0x7
+    TVGN_DROPHILITE = 0x8
+    TVGN_CARET = 0x9
+    TVGN_LASTVISIBLE = 0xa
+    
+    TVIF_TEXT          = 0x1
+    TVIF_IMAGE         = 0x2
+    TVIF_PARAM         = 0x4
+    TVIF_STATE         = 0x8
+    TVIF_HANDLE        = 0x10
+    TVIF_SELECTEDIMAGE = 0x20
+    TVIF_CHILDREN      = 0x40
+    TVIF_INTEGRAL      = 0x80
+    TVIF_DEFAULT       = TVIF_TEXT | TVIF_IMAGE | TVIF_PARAM | TVIF_SELECTEDIMAGE
+    
+    TVIS_SELECTED       = 0x2
+    TVIS_CUT            = 0x4
+    TVIS_DROPHILITED    = 0x8
+    TVIS_BOLD           = 0x10
+    TVIS_EXPANDED       = 0x20
+    TVIS_EXPANDEDONCE   = 0x40
+    TVIS_EXPANDPARTIAL  = 0x80
+    TVIS_OVERLAYMASK    = 0xf00
+    TVIS_STATEIMAGEMASK = 0xF000
+    TVIS_USERMASK       = 0xF000
+    
+    TVE_COLLAPSE      = 0x1
+    TVE_EXPAND        = 0x2
+    TVE_TOGGLE        = 0x3
+    TVE_EXPANDPARTIAL = 0x4000
+    TVE_COLLAPSERESET = 0x8000
+  end
+  
+  # A window that displays a hierarchical list of items, such as the headings in a document, the entries in an index. 
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Treeview < WinControl
+    include ModCommCtrl
+    
+    TVITEM = API.defstruct "
+      UINT mask;
+      HANDLE hItem;
+      UINT state;
+      UINT stateMask;
+      LPTSTR pszText;
+      int cchTextMax;
+      int iImage;
+      int iSelectedImage;
+      int cChildren;
+      LPARAM lParam;"
+    
+    TREEINSERTITEM = API.defstruct "
+      HANDLE hParent;
+      HANDLE hInsertAfter;
+      TVITEM item;"
+  
+    TVHITTESTINFO = API.defstruct "
+      POINT pt;
+      UINT flags;
+      HANDLE hItem;"
+  
+    NMTREEVIEW = API.defstruct "
+      NMHDR hdr;
+      UINT action;
+      TVITEM itemOld;
+      TVITEM itemNew;
+      POINT ptDrag;"
+    
+    NMTVCUSTOMDRAW = API.defstruct "
+      NMCUSTOMDRAW nmcd;
+      COLORREF clrText;
+      COLORREF clrTextBk;
+      int iLevel;"
+    
+    NMTVKEYDOWN = API.defstruct "
+      NMHDR hdr;
+      WORD wVKey;
+      UINT flags;"
+    
+    NMTVDISPINFO = API.defstruct "
+      NMHDR hdr;
+      TVITEM item;"
+    
+    API.typealias 'HTREEITEM', 'Q'
+    NMTVGETINFOTIP = API.defstruct "
+      NMHDR hdr;
+      LPTSTR pszText;
+      int cchTextMax;
+      HTREEITEM hItem;
+      LPARAM lParam;"
+    
+    # Wrapper of hitem
+    class Item
+      include RC
+      attr_reader :items, :owner
+      attr_accessor :hitem
+      
+      def initialize(onr, hitm, *args)#; dp "@%p", args
+        @owner = onr
+        @hitem = hitm
+        if @hitem.nil?
+          @items = [] #text, image, selimage, data
+          @_parent, @_text, @_image, @_selimage, @_data = args 
+        end
+      end
+      #
+      def inspect()
+        sprintf("#<%p:%x %p>", self.class, self.__id__, self.text)
+      end
+      
+      # Inserts an item at the specified index of this node.<br>
+      # The item can be an array of [text, image, selimage, data], or a Treeview::Item.<br>
+      # The index can be an integer or a Treeview::Item.<br>
+      # If a Treeview::Item was given as index, inserts the item at next of it.
+      def insert(idx, item)
+        if @owner.alive?
+          if idx.is_a? Integer
+            if idx < 0
+              hinsert = idx
+            elsif idx == 0
+              hinsert = TVI_FIRST
+            else
+              hinsert = self[idx-1].hitem
+            end
+          else
+            hinsert = item.hitem
+          end
+          if item.is_a?(Treeview::Item)
+            titem = TREEINSERTITEM[@hitem, hinsert, item._tvitem]
+            hitem = @owner.SendMessage(TVM_INSERTITEM, 0, titem)
+            item.hitem = hitem
+          else
+            text, image, selimage, data = item #; dp "@%p", item
+            selimage = image unless selimage
+            lparam = data.__id__
+            @owner._ar_data << data if (lparam&1)==0 && lparam>NilID
+            titem = TREEINSERTITEM[@hitem, hinsert, TVITEM[TVIF_DEFAULT, nil, nil, nil, 
+                                          text , text.size, image, selimage, nil, lparam]]
+            item = Item.new(@owner, @owner.SendMessage(TVM_INSERTITEM, 0, titem))
+          end
+        else 
+          if idx.is_a? Integer
+            case idx
+            when TVI_FIRST
+              insert2 = 0
+            when TVI_LAST, TVI_SORT
+              insert2 = @items.size
+            else
+              insert2 = idx > @items.size ? @items.size : idx
+            end
+          else
+            insert2 = @items.index(idx) || @items.size
+          end
+          unless item.is_a?(Treeview::Item)
+            text, image, selimage, data = item
+            selimage = image unless selimage
+            item = Item.new(@owner , nil, self, text, image, selimage, data)
+          end
+          @items.insert(insert2, item)
+          @items.sort!{|a, b| a.text <=> b.text} if idx==TVI_SORT
+        end
+        item
+      end
+      
+      # Delets this node.
+      def delete()
+        if @owner.alive?
+          @owner.SendMessage(TVM_DELETEITEM, 0, @hitem)==0 ? false : true
+        else
+          @_parent.items.delete(self) if @_parent
+        end
+      end
+      
+      # Retreives a parent node of this node.
+      def parent()
+        hitem = @owner.SendMessage(TVM_GETNEXTITEM, TVGN_PARENT, @hitem)
+        Item.new(@owner, hitem)
+      end
+      
+      # Count items in this node.
+      def count()
+        if @owner.alive?
+          hitem = @owner.SendMessage(TVM_GETNEXTITEM, TVGN_CHILD, @hitem)
+          return 0 if hitem == 0
+          n = 1
+          while (hitem = @owner.SendMessage(TVM_GETNEXTITEM, TVGN_NEXT, hitem)) > 0
+            n += 1
+          end
+          n
+        else
+          @items.size
+        end
+      end
+      
+      #
+      def create_substance()
+        @items.each{|i| #dpp i._tvitem.mask, i._tvitem.iImage, i._tvitem.iSelectedImage
+#          hi = @owner.SendMessage(TVM_INSERTITEM, 0, TREEINSERTITEM[@hitem, TVI_LAST, i._tvitem])
+#          i.hitem = hi
+          self << i
+          i.create_substance()
+        }
+        self._cleanup
+      end
+      
+      # Appends the item at the last of this node.
+      def <<(item) # [text, data=nil, state=TVS_DEFAULT]
+        #self.insert(TVI_LAST, item)
+        self[count, 0] = item
+      end
+      
+      # Retreives an item of this node.
+      def [](idx)
+        if @owner.alive?
+          hitem = @owner.SendMessage(TVM_GETNEXTITEM, TVGN_CHILD, @hitem)
+          if hitem == 0
+            nil
+          else
+            if idx == 0
+              Item.new(@owner, hitem)
+            else
+              (idx).times do
+                hitem = @owner.SendMessage(TVM_GETNEXTITEM, TVGN_NEXT, hitem)
+                return nil if hitem == 0
+              end
+              Item.new(@owner, hitem)
+            end
+          end
+        else
+          @items[idx]
+        end
+      end
+      
+      # []=(index, length=1, items)
+      # Inserts and replaces the items at specified index and length with given items.
+      def []=(idx, *args)
+        num = args[0].is_a?(Integer) ? args.shift : 1
+        num.times{self[idx].delete}  #; dp "@%p", args
+        if args[0].is_a?(Array) && (args[0][1].is_a?(String) || args[0][0].is_a?(Array))
+          args[0].each_with_index{|v, i| self.insert(idx+i, v)}
+        else
+          args.each_with_index{|v, i| self.insert(idx+i, v)}
+        end
+      end
+      
+      # Retreives the next sibling item of current item.
+      def next()
+        hitem = @owner.SendMessage(TVM_GETNEXTITEM, TVGN_NEXT, @hitem)
+        hitem==0 ? nil : Item.new(@owner, hitem)
+      end
+      
+      # Retreives the previous sibling item of current item.
+      def previous()
+        hitem = @owner.SendMessage(TVM_GETNEXTITEM, TVGN_PREVIOUS, @hitem)
+        hitem==0 ? nil : Item.new(@owner, hitem)
+      end
+      
+      # Retreives the next visible item of current item.
+      def nextvisible()
+        hitem = @owner.SendMessage(TVM_GETNEXTITEM, TVGN_NEXTVISIBLE, @hitem)
+        hitem==0 ? nil : Item.new(@owner, hitem)
+      end
+      
+      # Retreives the previous visible item of current item.
+      def previousvisible()
+        hitem = @owner.SendMessage(TVM_GETNEXTITEM, TVGN_PREVIOUSVISIBLE, @hitem)
+        hitem==0 ? nil : Item.new(@owner, hitem)
+      end
+      
+      # Retrieves the first item that is visible in this tree-view window. 
+      def firstvisible()
+        hitem = @owner.SendMessage(TVM_GETNEXTITEM, TVGN_FIRSTVISIBLE, @hitem)
+        hitem==0 ? nil : Item.new(@owner, hitem)
+      end
+      # Retrieves the last item that is visible in this tree-view window. 
+      def lastvisible()
+        hitem = @owner.SendMessage(TVM_GETNEXTITEM, TVGN_LASTVISIBLE, @hitem)
+        hitem==0 ? nil : Item.new(@owner, hitem)
+      end
+      
+      # Retrieves the item that is the target of a drag-and-drop operation. 
+      def drophilight()
+        hitem = @owner.SendMessage(TVM_GETNEXTITEM, TVGN_DROPHILIGHT, @hitem)
+        hitem==0 ? nil : Item.new(@owner, hitem)
+      end
+      
+      # Retreives the index of current item in the current node.
+      def index()
+        hparent = @owner.SendMessage(TVM_GETNEXTITEM, TVGN_PARENT, @hitem)
+        hitem = @owner.SendMessage(TVM_GETNEXTITEM, TVGN_CHILD, hparent)
+        return 0 if hitem == @hitem
+        n = 1
+        while (hitem = @owner.SendMessage(TVM_GETNEXTITEM, TVGN_NEXT, hitem)) > 0
+          return n if hitem == @hitem
+          n += 1
+        end
+        raise "Getting index was failed."
+      end
+      
+      # Retreives the last sibling item of current item.
+      def last()
+        self[count-1]
+      end
+      
+      # each(){|item| ... }
+      # Performs the block for each <i>item</i> in current node as a block parameter.
+      def each()
+        count.times{|i| yield self[i]}
+      end
+      
+      # Retreives a text of current item.
+      def text(textsize=260)
+        if @owner.alive?
+          tvitem = TVITEM[TVIF_TEXT, @hitem, nil, nil, TCHAR[textsize], textsize]
+          @owner.SendMessage(TVM_GETITEM, 0, tvitem)
+          tvitem.pszText.to_s
+        else
+          @_text
+        end
+      end
+      
+      # Sete a text of current item.
+      def text=(txt)
+        if @owner.alive?
+          s = txt.to_s
+          tvitem = TVITEM[TVIF_TEXT, @hitem, nil, nil, s, s.size]
+          @owner.SendMessage(TVM_SETITEM, 0, tvitem)
+        else
+          @_text = txt
+        end
+      end
+      
+      # Gets a state of current item.
+      def state()
+        if @owner.alive?
+          tvitem = TVITEM[TVIF_STATE, @hitem]
+          @owner.SendMessage(TVM_GETITEM, 0, tvitem)
+          tvitem.state
+        else
+          @_state
+        end
+      end
+      # Sets a state of current item.
+      def state=(stat)
+        if @owner.alive?
+        tvitem = TVITEM[TVIF_STATE, @hitem, stat]
+          @owner.SendMessage(TVM_SETITEM, 0, tvitem)
+        else
+          @_state = stat
+        end
+      end
+      
+      # Gets an image index of current item.
+      def image()
+        tvitem = TVITEM[TVIF_IMAGE, @hitem]
+        @owner.SendMessage(TVM_GETITEM, 0, tvitem)
+        return tvitem.iImage
+      end
+      # Sets an image index of current item.
+      def image=(*args)
+        if @owner.alive?
+          img, selectedimg = args[0].is_a?(Array) ? args[0] : args
+          tvitem = TVITEM[TVIF_IMAGE | TVIF_SELECTEDIMAGE, @hitem]
+          tvitem.iImage = img
+          tvitem.iSelectedImage = selectedimg || img
+          @owner.SendMessage(TVM_SETITEM, 0, tvitem)
+        else
+          @_image = image
+        end
+      end
+      
+      # Gets a selected image index of current item.
+      def selectedimage()
+        tvitem = TVITEM[TVIF_IMAGE, @hitem]
+        @owner.SendMessage(TVM_GETITEM, 0, tvitem)
+        return tvitem.iSelectedImage
+      end
+      # Sets a selected image index of current item.
+      def selectedimage=(selectedimg)
+        tvitem = TVITEM[TVIF_IMAGE | TVIF_SELECTEDIMAGE, @hitem] 
+        tvitem.iSelectedImage = selectedimg
+        @owner.SendMessage(TVM_SETITEM, 0, tvitem)
+      end
+      
+      # Gets an assigned data that can be an any ofject to current item.
+      def data()
+        if @owner.alive?
+          tvitem = TVITEM[TVIF_PARAM, @hitem]
+          @owner.SendMessage(TVM_GETITEM, 0, tvitem)
+          ObjectSpace._id2ref(tvitem.lParam) rescue nil
+        else
+          @_data
+        end
+      end
+      # Assignes a data that can be an any object to current item.
+      def data=(dat)
+        if @owner.alive?
+          tvitem = TVITEM[TVIF_PARAM, @hitem]
+          @owner.SendMessage(TVM_GETITEM, 0, tvitem)
+          lp = tvitem.lParam
+          if (lp&1)==0 && lp>NilID
+            @owner._ar_data.delete(ObjectSpace._id2ref(tvitem.lParam)) # delete old data
+            @owner._ar_data << dat
+          end
+          tvitem.lParam = dat.__id__
+          @owner.SendMessage(TVM_SETITEM, 0, tvitem)
+        else
+          @_data = dat
+        end
+      end
+      
+      ############# Only for owner is alive ###############
+      
+      # Sets the selection to this item.
+      def select()
+        @owner.SendMessage(TVM_SELECTITEM, TVGN_CARET, self.hitem)
+        self
+      end
+      
+      # Expands the list of this item.
+      def expand()
+        @owner.SendMessage(TVM_EXPAND, TVE_EXPAND, self.hitem)
+        self
+      end
+      
+      # Collapses the list of this item.
+      def fold()
+        @owner.SendMessage(TVM_EXPAND, TVE_COLLAPSE, self.hitem)
+        self
+      end
+      
+      # Collapses the list if it is expanded or expands it if it is collapsed.
+      def toggle()
+        @owner.SendMessage(TVM_EXPAND, TVE_TOGGLE, self.hitem)
+        self
+      end
+      
+      # Ensures that this tree-view item is visible, expanding the parent item or scrolling the tree-view control, if necessary.
+      def ensurevisible()
+        @owner.SendMessage(TVM_ENSUREVISIBLE, 0, self.hitem)
+        self
+      end
+    
+      protected
+      def _tvitem()
+        lp = @_data.__id__
+        if (lp&1)==0 && lp>NilID
+          @owner._ar_data << @_data
+        end
+        TVITEM[TVIF_DEFAULT, nil, nil, nil, @_text , @_text.size, @_image, @_selimage, nil, lp]
+      end
+      
+      def _cleanup()
+        @items.clear
+        @items = @_state = @_text = @_data = nil
+        GC.start
+      end
+    end # class Item
+    
+    
+    ####################### Main #####################
+        
+    WinStyles = {
+      :hasbuttons      => TVS_HASBUTTONS,
+      :haslines        => TVS_HASLINES,
+      :linesatroot     => TVS_LINESATROOT,
+      :editlabels      => TVS_EDITLABELS,
+      :disabledragdrop => TVS_DISABLEDRAGDROP,
+      :showselalways   => TVS_SHOWSELALWAYS,
+      :rtlreadings     => TVS_RTLREADING,
+      :notooltips      => TVS_NOTOOLTIPS,
+      :checkboxes      => TVS_CHECKBOXES,
+      :trackselect     => TVS_TRACKSELECT,
+      :singleexpand    => TVS_SINGLEEXPAND,
+      :infotip         => TVS_INFOTIP,
+      :fullrowselect   => TVS_FULLROWSELECT,
+      :noscroll        => TVS_NOSCROLL,
+      :nonevenheight   => TVS_NONEVENHEIGHT,
+      :nohscroll       => TVS_NOHSCROLL
+      
+#      :default         => TVS_DEFAULT
+    }
+#    def self.sym2style(*args) _sym2style(WinStyles, args); end
+    
+    PreDefinedEvents = {
+      :click         => [WM_NOTIFY, NM_CLICK, 'xs', NMHDR],
+      :dblclk        => [WM_NOTIFY, NM_DBLCLK, 'xs', NMHDR],
+      :return        => [WM_NOTIFY, NM_RETURN, 'xs', NMHDR],
+      :rclick        => [WM_NOTIFY, NM_RCLICK, 'xs', NMHDR],
+      :rdblclk       => [WM_NOTIFY, NM_RDBLCLK, 'xs', NMHDR],
+      :setfocus      => [WM_NOTIFY, NM_SETFOCUS, 'xs', NMHDR],
+      :killfocus     => [WM_NOTIFY, NM_KILLFOCUS, 'xs', NMHDR],
+      :customdraw    => [WM_NOTIFY, NM_CUSTOMDRAW, 'xs', NMTVCUSTOMDRAW],
+      :releasedcapture => [WM_NOTIFY, NM_RELEASEDCAPTURE, 'xs', NMHDR],
+      :setcursor     => [WM_NOTIFY, NM_SETCURSOR, 'xs', NMMOUSE],
+      :keydown       => [WM_NOTIFY, TVN_KEYDOWN, 'xs', NMTVKEYDOWN],
+      :singleexpand  => [WM_NOTIFY, TVN_SINGLEEXPAND, 'xs', NMTREEVIEW],
+      :selchanging   => [WM_NOTIFY, TVN_SELCHANGING, 'xs', NMTREEVIEW],
+      :selchanged    => [WM_NOTIFY, TVN_SELCHANGED, 'xs', NMTREEVIEW],
+      :getdispinfo   => [WM_NOTIFY, TVN_GETDISPINFO, 'xs', NMTVDISPINFO],
+      :setdispinfo   => [WM_NOTIFY, TVN_SETDISPINFO, 'xs', NMTVDISPINFO],
+      :itemexpanding => [WM_NOTIFY, TVN_ITEMEXPANDING, 'xs', NMTREEVIEW],
+      :itemexpanded  => [WM_NOTIFY, TVN_ITEMEXPANDED, 'xs', NMTREEVIEW],
+      :begindrag     => [WM_NOTIFY, TVN_BEGINDRAG, 'xs', NMTREEVIEW],
+      :beginrdrag    => [WM_NOTIFY, TVN_BEGINRDRAG, 'xs', NMTREEVIEW],
+      :deleteitem    => [WM_NOTIFY, TVN_DELETEITEM, 'xs', NMTREEVIEW],
+      :beginlabeledit => [WM_NOTIFY, TVN_BEGINLABELEDIT, 'xs', NMTVDISPINFO],
+      :endlabeledit   => [WM_NOTIFY, TVN_ENDLABELEDIT, 'xs', NMTVDISPINFO],
+      :getinfotip     => [WM_NOTIFY, TVN_GETINFOTIP, 'xs', NMTVGETINFOTIP]
+      
+#      :hover         => [WM_NOTIFY, NM_HOVER, 'xs', NMHDR]
+    }
+    DefaultEvents = [:selchanged]
+    DefaultWindowStyle = TVS_DEFAULT
+    
+    attr_reader :root, :_ar_data
+    
+    def initialize(*args)
+      super(*args)
+      @_classname = "SysTreeView32"
+      self.style |= DefaultWindowStyle
+      self.exstyle = WS_EX_CLIENTEDGE
+      @_acceptable_events = PreDefinedEvents.dup
+      @root = Item.new(self, nil)
+      @_ar_data = []
+    end
+    #
+    def create()
+      if @_parent.event_registered?(idcmd, WM_NOTIFY, TVN_DELETEITEM, "__deleteitem__", self)
+        @_parent.register_event(self.idcmd, WM_NOTIFY, TVN_DELETEITEM, "__deleteitem__", 'xs',
+                                NMTREEVIEW, self) # for internal use
+      end
+      super
+      @root.hitem = TVGN_ROOT
+      @root.create_substance()
+      self.indent = @_indent if @_indent
+      self.imagelist = @_imglist if @_imglist
+      self.tooltip = @_tooltip if @_tooltip
+      self.itemhieght = @_itemhieght if @_itemhieght
+      self.bkcolor = @_bkcolor if @_bkcolor
+      self.textcolor = @_textcolor if @_textcolor
+      self.scrolltime = @_scrolltime if @_scrolltime
+      self.insertmarkcolor = @_imarkclr if @_imarkclr
+      self.linecolor = @_linecolor if @_linecolor
+    end
+    
+    # Same as root[idx]
+    def [](idx) 
+      self.root[idx]
+    end
+    # Same as root[idx, length=1]=args
+    def []=(idx, *args) 
+      if args[0].is_a?(Integer)
+        n = args.shift
+        self.root[idx, n] = *args
+      else
+        self.root[idx, 1] = *args
+      end
+    end
+    
+    # Same as root << arg
+    def <<(arg)
+      @root[@root.count, 0] = arg; 
+    end
+    
+    # Clears all items in this tree-view control.
+    def clear()
+      alive? ? SendMessage(TVM_DELETEITEM, 0, TVGN_ROOT) : @root.delete
+      self
+    end
+    
+    # Retrieves the amount, in pixels, that child items are indented relative to their parent items. 
+    def indent()
+      alive? ? SendMessage(TVM_GETINDENT, 0, 0) : @_indent
+    end
+    # Sets the width of indentation for this tree-view control.
+    def indent=(idt)
+      alive? ? SendMessage(TVM_SETINDENT, idt.to_i, 0) : @_indent = idt
+    end
+    
+    # Retrieves the normal or state image list associated with this tree-view control.
+    def imagelist()
+      alive? ? APP.hrsc2ref(SendMessage(TVM_GETIMAGELIST, 0, 0))||nil : @_imglist
+    end
+    # Sets the normal or state image list for this tree-view control.
+    def imagelist=(il)
+      il = Imagelist.loadb64(il) if il.is_a?(String)
+      alive? ? SendMessage(TVM_SETIMAGELIST,0,il._himagelist) : @_imglist=il
+    end
+    
+    # Retrieves the child tooltip control used by this tree-view control. 
+    def tooltip()
+      alive? ? APP.hwnd2ref(SendMessage(TVM_GETTOOLTIPS, 0, 0))||nil : @_tooltip
+    end
+    # Sets the child tooltip control used by this tree-view control.
+    def tooltip=(tt)
+      alive? ? SendMessage(TVM_SETTOOLTIPS, 0, tt.hWnd) : @_tooltip=tt
+    end
+    
+    # Retrieves the current height of the each tree-view item. 
+    def itemheight()
+      alive? ? SendMessage(TVM_GETITEMHEIGHT, 0, 0) : @_itemhieght
+    end
+    # Sets the height of this tree-view items.
+    def itemheight=(h)
+      alive? ? SendMessage(TVM_SETITEMHEIGHT, h, 0) : @_itemheight=h
+    end
+    
+    # Retreives the background color of this tree-view control. 
+    def bkcolor()
+      alive? ? SendMessage(TVM_GETBKCOLOR, 0, 0) : @_bkcolor
+    end
+    # Sets the background color of this tree-view control. 
+    def bkcolor=(clr)
+      alive? ? SendMessage(TVM_SETBKCOLOR, 0, clr) : @_bkcolor=clr
+    end
+    
+    # Retreives the text color of this tree-view control. 
+    def textcolor()
+      alive? ? SendMessage(TVM_GETTEXTCOLOR, 0, 0) : @_textcolor
+    end
+    # Sets the text color of this tree-view control. 
+    def textcolor=(clr)
+      alive? ? SendMessage(TVM_SETTEXTCOLOR, 0, clr) : @_textcolor=clr
+    end
+    
+    # Retrieves the maximum scroll time for this tree-view control. 
+    def scrollteime()
+      alive? ? SendMessage(TVM_GETSCROLLTIME, 0, 0) : @_scrolltime
+    end
+    # Sets the maximum scroll time for this tree-view control.
+    def scrollteime=(t)
+      alive? ? SendMessage(TVM_SETSCROLLTIME, t, 0) : @_scrolltime=t
+    end
+    
+    # Retrieves the color used to draw the insertion mark for this tree view. 
+    def insertmarkcolor()
+      alive? ? SendMessage(TVM_GETINSERTMARKCOLOR, 0, 0) : @_imarkclr
+    end
+    # Sets the color used to draw the insertion mark for this tree view. 
+    def insertmarkcolor=(c)
+      alive? ? SendMessage(TVM_SETINSERTMARKCOLOR,0,c) : @_imarkclr=c
+    end
+    # Retreives the current line color.
+    def linecolor()
+      alive? ? SendMessage(TVM_GETLINECOLOR, 0, 0) : @_linecolor
+    end
+    # Sets the current line color.
+    def linecolor=(clr)
+      alive? ? SendMessage(TVM_SETLINECOLOR, 0, clr) : @_linecolor=clr
+    end
+    
+    # Retreives a current selected item.
+    def selection()
+      hitem = SendMessage(TVM_GETNEXTITEM, TVGN_CARET, 0)
+      hitem==0 ? nil : Item.new(self, hitem)
+    end
+    
+    # Determines the location of the specified coordinates of this tree-view control. 
+    def hittest(x, y)
+      hi = TVHITTESTINFO.new
+      hi.pt.x = x
+      hi.pt.y = y
+      SendMessage(TVM_HITTEST, 0, hi)==0 ?  nil : hitem2ref(hi.hItem)
+    end
+    
+    # Retreives a Treeview::Item associated to the handle of item.
+    def hitem2ref(hitem)
+      hitem==0 ? nil : Item.new(self, hitem)
+    end
+    
+    # Same as root.each{|item| ... }
+    def each()
+      root.each{|i| yield i}
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st = WinStyles[arg]
+        self.style |= st
+        return nil
+      end
+      super
+    end
+    
+    private
+    def __deleteitem__(nmtreeview)
+      return unless @_ar_data # recycled?
+      data = ObjectSpace._id2ref(nmtreeview.itemOld.lParam) rescue nil
+      if data && n = @_ar_data.index(data) #; dp "@%p, %p, %p", data, n, @_ar_data
+        @_ar_data.delete_at(n)
+      end
+    end
+  end
+end