wrb 2.0.0

data/lib/wrb/components/inifile.rb

@@ -0,0 +1,97 @@
+require 'wrb'
+module WR
+  
+  # Handles a Inifile (*.ini) like a Hash. (WRB orignal)<br>
+  # Inifile formats are following.<pre>
+  #   [section]
+  #   key=value
+  #   ...</pre>
+  class Inifile < Hash
+    
+=begin
+Singleton method:
+  self.new(path, &block)
+=end
+    
+    # Opens a file specified <i>path</i>.<br>
+    # If <i>block</i> is given, opens for writing and closes automaticaly.
+    def self.open(path, &block)
+      self.new().open(path, &block)
+    end
+    
+    private 
+    def _parse(str)
+      section = nil
+      str.each_line{|l|
+        if l =~ /\[(.+)\]/
+          sec_key = $1.strip
+          section = self[sec_key] || (self[sec_key] = {})
+        elsif l =~ /(.+)=(.+)/
+          key, val = $1.strip, $2.strip
+          section[key] = val
+        end
+      }
+    end
+    
+    def _format()
+      str = ""
+      self.each{|k,v|
+        str << "[#{k}]\n"
+        v.each{|k1, v1| str << "#{k1}=#{v1}\n" }
+      }
+      str
+    end
+    
+    def initialize(fname=nil, &block)
+      return unless fname
+      open(fname, &block)
+    end
+    
+    public
+    
+    # Opens a file specified <i>path</i>.<br>
+    # If block is given, opens for writing and closes automaticaly.
+    def open(path)
+      @_path = File.expand_path(path)
+      if block_given?
+        Mutex.new.synchronize {
+          File.open(@_path, 'w+'){|f|
+            _parse(f.read)
+            yield self
+            f.write(_format)
+          }
+        }
+      else
+        File.open(@_path, 'r'){|f| _parse(f.read)}
+      end
+      self
+    end
+    
+    # Closes and writes out to the file.
+    def close()
+      File.open(@_path, 'w'){|f| f.write(_format) }
+    end
+    alias flash close
+    
+    # Gets an absolute path to this inifile.
+    def path()
+      @_path
+    end
+  end
+end
+
+module WR
+  Inifile.new("mytest.ini"){|ini|
+    ini['Section1'] = {'a' => 1, 'b' => 2}
+    ini['Section1']['c'] = 100
+#    ini['Section1'].delete('c')
+  }
+  
+  begin
+    ini = Inifile.open("mytest.ini"); dpp ini
+    ini['Section1'].delete('c')
+  ensure
+    ini.close
+  end
+end if $0 == __FILE__
+  

data/lib/wrb/components/listbox.rb

@@ -0,0 +1,149 @@
+require 'wrb'
+require 'wrb/listcommon'
+
+module WR
+  module RC
+    LBS_NOTIFY            = 0x0001
+    LBS_SORT              = 0x0002
+    LBS_NOREDRAW          = 0x0004
+    LBS_MULTIPLESEL       = 0x0008
+    LBS_OWNERDRAWFIXED    = 0x0010
+    LBS_OWNERDRAWVARIABLE = 0x0020
+    LBS_HASSTRINGS        = 0x0040
+    LBS_USETABSTOPS       = 0x0080
+    LBS_NOINTEGRALHEIGHT  = 0x0100
+    LBS_MULTICOLUMN       = 0x0200
+    LBS_WANTKEYBOARDINPUT = 0x0400
+    LBS_EXTENDEDSEL       = 0x0800
+    LBS_DISABLENOSCROLL   = 0x1000
+    LBS_NODATA            = 0x2000
+    LBS_NOSEL             = 0x4000
+    LBS_COMBOBOX          = 0x8000
+    LBS_STANDARD = (LBS_NOTIFY | LBS_SORT | WS_VSCROLL | WS_BORDER)
+    LBS_DEFAULT  = (LBS_NOTIFY | WS_VSCROLL | WS_BORDER)
+      
+    LB_ADDSTRING    = 0x0180
+    LB_INSERTSTRING = 0x0181
+    LB_DELETESTRING = 0x0182
+    LB_SETSEL       = 0x0185
+    LB_SETCURSEL    = 0x0186
+    LB_GETSEL       = 0x0187
+    LB_GETCURSEL    = 0x188
+    LB_GETTEXT      = 0x189
+    LB_GETTEXTLEN   = 0x18a
+    LB_GETCOUNT     = 0x18b
+    LB_SELECTSTRING = 0x18c
+    LB_DIR          = 0x18d
+    LB_FINDSTRING   = 0x18f
+    LB_GETSELCOUNT  = 0x190
+    LB_GETSELITEMS  = 0x191
+    LB_GETITEMDATA  = 0x199
+    LB_SETITEMDATA  = 0x19a
+      
+    LBN_SELCHANGE = 1
+    LBN_DBLCLK    = 2
+    LBN_SELCANCEL = 3
+    LBN_SETFOCUS  = 4
+    LBN_KILLFOCUS = 5
+  end
+  
+  # This control contains a simple list from which the user can generally select one or more items.<br>
+  # See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Listbox < WinControl
+    include ModStdCtrl
+    include ModListItems
+    
+    WinStyles = {
+      :notify => LBS_NOTIFY,
+      :sort => LBS_SORT,
+      :noredraw => LBS_NOREDRAW,
+      :multiplesel => LBS_MULTIPLESEL,
+      :ownerdrawfixed => LBS_OWNERDRAWFIXED,
+      :ownerdrawvariable => LBS_OWNERDRAWVARIABLE,
+      :hasstrings => LBS_HASSTRINGS,
+      :usetabstops => LBS_USETABSTOPS,
+      :nointegralheight => LBS_NOINTEGRALHEIGHT,
+      :multicolumn => LBS_MULTICOLUMN,
+      :wantkeyboardinput => LBS_WANTKEYBOARDINPUT,
+      :extendedsel => LBS_EXTENDEDSEL,
+      :disablenoscroll => LBS_DISABLENOSCROLL,
+      :nodata => LBS_NODATA,
+      :nosel => LBS_NOSEL,
+      :combobox => LBS_COMBOBOX,
+      :standard => LBS_STANDARD,
+      :default => LBS_DEFAULT
+    }
+    
+    PreDefinedEvents = {
+      :selchange => [WM_COMMAND, LBN_SELCHANGE, 'hi'],
+      :dblclk    => [WM_COMMAND, LBN_DBLCLK, 'hi'],
+      :selcancel => [WM_COMMAND, LBN_SELCANCEL, 'hi'],
+      :setfocus  => [WM_COMMAND, LBN_SETFOCUS, 'hi'],
+      :killfocus => [WM_COMMAND, LBN_KILLFOCUS, 'hi']
+    }
+    
+    DefaultEvents = [
+      :selchange # ???_selchange(idcmd, code, hwnd)
+    ]
+    
+#    def self.sym2style(*args) _sym2style(WinStyles, args); end
+    
+    ########## Main ##########
+    
+    def initialize(*args)
+      super
+      @_classname = "LISTBOX"
+#      self.style |= LBS_STANDARD
+      @_items = []
+      @_ar_data = []
+      @_acceptable_events = PreDefinedEvents.dup
+    end
+    
+    #
+    def create()
+      if self.style & 0x0ffffff == 0
+        self.style |= LBS_DEFAULT
+      end
+      super
+      @_items.each{|i| insert_item(self.count, *i)}
+      @_items.clear
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st=WinStyles[arg]
+        self.style |= st
+        return nil
+      end
+      super
+    end
+
+    ###### common named methods to wrap SendMessage for ModListItems #####
+    private
+    def _setitemdata(wp, lp) SendMessage(LB_SETITEMDATA, wp, lp); end
+    def _addstring(wp, lp) SendMessage(LB_ADDSTRING, wp, lp); end
+    def _insertstring(wp, lp) SendMessage(LB_INSERTSTRING, wp, lp); end
+    def _deletestring(wp, lp) SendMessage(LB_DELETESTRING, wp, lp); end
+    def _getcount(wp, lp) SendMessage(LB_GETCOUNT, wp, lp); end
+    def _gettextlen(wp, lp) SendMessage(LB_GETTEXTLEN, wp, lp); end
+    def _gettext(wp, lp) SendMessage(LB_GETTEXT, wp, lp); end
+    def _getitemdata(wp, lp) SendMessage(LB_GETITEMDATA, wp, lp); end
+    def _findstring(wp, lp) SendMessage(LB_FINDSTRING, wp, lp); end
+    def _getcursel(wp, lp) SendMessage(LB_GETCURSEL, wp, lp); end
+    def _setcursel(wp, lp) SendMessage(LB_SETCURSEL, wp, lp); end
+      
+  end
+end 
+
+module WR
+  class Myform < Form
+    def initialize()
+      resize 320, 240
+      _<< Listbox[:lb1, "", 0, 0, 200, 200]
+      _.lb1 << [['a', 1], 'b', 'c']
+    end
+    
+    self.start
+  end
+end if $0 == __FILE__

data/lib/wrb/components/listview.rb

@@ -0,0 +1,1467 @@
+require 'wrb' 
+
+module WR
+  module RC
+    LVM_FIRST = 0x1000
+    LVM_GETBKCOLOR    = LVM_FIRST+0
+    LVM_SETBKCOLOR    = LVM_FIRST+1
+    LVM_GETIMAGELIST  = LVM_FIRST+2
+    LVM_SETIMAGELIST  = LVM_FIRST+3
+    LVM_GETITEMCOUNT  = LVM_FIRST+4
+    LVM_DELETEITEM    = LVM_FIRST+8
+    LVM_DELETEALLITEM = LVM_FIRST+9
+    LVM_GETCALLBACKMASK=LVM_FIRST+10
+    LVM_SETCALLBACKMASK=LVM_FIRST+11
+    LVM_GETNEXTITEM   = LVM_FIRST+12
+    
+    LVM_GETITEMRECT   = LVM_FIRST+14
+    LVM_SETITEMPOSITION=LVM_FIRST+15
+    LVM_GETITEMPOSITION=LVM_FIRST+16
+    LVM_HITTEST       = LVM_FIRST+18
+    LVM_ENSUREVISIBLE = LVM_FIRST+19
+    LVM_SCROLL        = LVM_FIRST+20
+    LVM_REDRAWITEMS   = LVM_FIRST+21
+    LVM_ARRANGE       = LVM_FIRST+22
+    LVM_GETEDITCONTROL= LVM_FIRST+24
+    LVM_DELETECOLUMN  = LVM_FIRST+28
+    LVM_GETCOLUMNWIDTH= LVM_FIRST+29
+    LVM_SETCOLUMNWIDTH= LVM_FIRST+30
+    LVM_GETHEADER     = LVM_FIRST+31
+    LVM_CREATEDRAGIMAGE=LVM_FIRST+33
+    LVM_GETVIEWRECT   = LVM_FIRST+34
+    LVM_GETTEXTCOLOR  = LVM_FIRST+35
+    LVM_SETTEXTCOLOR  = LVM_FIRST+36
+    LVM_GETTEXTBKCOLOR = LVM_FIRST+37
+    LVM_SETTEXTBKCOLOR = LVM_FIRST+38
+    LVM_GETTOPINDEX   = LVM_FIRST+39
+    LVM_GETCOUNTPERPAGE = LVM_FIRST+40
+    LVM_GETORIGIN     = LVM_FIRST+41
+    LVM_UPDATE        = LVM_FIRST+42
+    LVM_SETITEMSTATE  = LVM_FIRST+43
+    LVM_GETITEMSTATE  = LVM_FIRST+44
+    
+    LVM_SORTITEMS     = LVM_FIRST+48
+    LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 54
+    LVM_GETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 55
+    LVM_SUBITEMHITTEST= LVM_FIRST+57
+    
+    LVM_GETITEMA       = LVM_FIRST+5
+    LVM_SETITEMA       = LVM_FIRST+6 
+    LVM_INSERTITEMA    = LVM_FIRST+7 
+    LVM_FINDITEMA      = LVM_FIRST+13
+    LVM_GETSTRINGWIDTHA= LVM_FIRST+17
+    LVM_EDITLABELA     = LVM_FIRST+23
+    LVM_GETCOLUMNA     = LVM_FIRST+25
+    LVM_SETCOLUMNA     = LVM_FIRST+26
+    LVM_INSERTCOLUMNA  = LVM_FIRST+27
+    LVM_GETITEMTEXTA   = LVM_FIRST+45
+    LVM_SETITEMTEXTA   = LVM_FIRST+46
+    LVM_GETSELECTEDA   = LVM_FIRST+50
+    LVM_SETBKIMAGEA = LVM_FIRST+68
+    LVM_GETBKIMAGEA = LVM_FIRST+69
+    LVM_SETTOOLTIPS = LVM_FIRST+74
+    LVM_GETTOOLTIPS = LVM_FIRST+78
+    
+    LVM_GETITEMW       = LVM_FIRST+75
+    LVM_SETITEMW       = LVM_FIRST+76
+    LVM_INSERTITEMW    = LVM_FIRST+77
+    LVM_FINDITEMW      = LVM_FIRST+83
+    LVM_GETSTRINGWIDTHW= LVM_FIRST+87
+    LVM_GETCOLUMNW     = LVM_FIRST+95
+    LVM_SETCOLUMNW     = LVM_FIRST+96
+    LVM_INSERTCOLUMNW  = LVM_FIRST+97
+    LVM_GETITEMTEXTW   = LVM_FIRST+115
+    LVM_SETITEMTEXTW   = LVM_FIRST+116
+    LVM_EDITLABELW     = LVM_FIRST+118
+    LVM_GETSELECTEDW   = LVM_FIRST+120
+    LVM_SETBKIMAGEW = LVM_FIRST+138
+    LVM_GETBKIMAGEW = LVM_FIRST+139
+    
+    if RWin::UNICODE
+      LVM_GETITEM       = LVM_GETITEMW
+      LVM_SETITEM       = LVM_SETITEMW
+      LVM_INSERTITEM    = LVM_INSERTITEMW
+      LVM_FINDITEM      = LVM_FINDITEMW
+      LVM_GETSTRINGWIDTH= LVM_GETSTRINGWIDTHW
+      LVM_GETCOLUMN     = LVM_GETCOLUMNW
+      LVM_SETCOLUMN     = LVM_SETCOLUMNW
+      LVM_INSERTCOLUMN  = LVM_INSERTCOLUMNW
+      LVM_GETITEMTEXT   = LVM_GETITEMTEXTW
+      LVM_SETITEMTEXT   = LVM_SETITEMTEXTW
+      LVM_EDITLABEL     = LVM_EDITLABELW
+      LVM_GETSELECTED   = LVM_GETSELECTEDW
+      LVM_SETBKIMAGE    = LVM_SETBKIMAGEW
+      LVM_GETBKIMAGE    = LVM_GETBKIMAGEW
+    else
+      LVM_GETITEM       = LVM_GETITEMA
+      LVM_SETITEM       = LVM_SETITEMA
+      LVM_INSERTITEM    = LVM_INSERTITEMA
+      LVM_FINDITEM      = LVM_FINDITEMA
+      LVM_GETSTRINGWIDTH= LVM_GETSTRINGWIDTHA
+      LVM_GETCOLUMN     = LVM_GETCOLUMNA
+      LVM_SETCOLUMN     = LVM_SETCOLUMNA
+      LVM_INSERTCOLUMN  = LVM_INSERTCOLUMNA
+      LVM_GETITEMTEXT   = LVM_GETITEMTEXTA
+      LVM_SETITEMTEXT   = LVM_SETITEMTEXTA
+      LVM_EDITLABEL     = LVM_EDITLABELA
+      LVM_GETSELECTED   = LVM_GETSELECTEDA
+      LVM_SETBKIMAGE    = LVM_SETBKIMAGEA
+      LVM_GETBKIMAGE    = LVM_GETBKIMAGEA
+    end
+    
+    LVNI_ALL = 0x0
+    LVNI_FOCUSED = 0x1
+    LVNI_SELECTED = 0x2
+    LVNI_CUT = 0x4
+    LVNI_DROPHILITED = 0x8
+    LVNI_ABOVE = 0x100
+    LVNI_BELOW = 0x200
+    LVNI_TOLEFT = 0x400
+    LVNI_TORIGHT = 0x800
+
+    LVN_FIRST = -100
+    LVN_ITEMCHANGING = LVN_FIRST-0
+    LVN_ITEMCHANGED = LVN_FIRST-1
+    LVN_INSERTITEM = LVN_FIRST-2
+    LVN_DELETEITEM = LVN_FIRST-3
+    LVN_DELETEALLITEMS = LVN_FIRST-4
+    LVN_BEGINLABELEDITA = LVN_FIRST-5
+    LVN_BEGINLABELEDITW = LVN_FIRST-75
+    LVN_ENDLABELEDITA = LVN_FIRST-6
+    LVN_ENDLABELEDITW = LVN_FIRST-76
+    LVN_COLUMNCLICK = LVN_FIRST-8
+    LVN_BEGINDRAG = LVN_FIRST-9
+    LVN_BEGINRDRAG = LVN_FIRST-11
+
+    LVN_ODCACHEHINT = LVN_FIRST-13
+    LVN_ODFINDITEMA = LVN_FIRST-52
+    LVN_ODFINDITEMW = LVN_FIRST-79
+    
+    LVN_ITEMACTIVATE = LVN_FIRST-14
+    LVN_ODSTATECHANGED = LVN_FIRST-15
+    
+    LVN_HOTTRACK = LVN_FIRST-21
+    LVN_GETDISPINFOA = LVN_FIRST-50
+    LVN_GETDISPINFOW = LVN_FIRST-77
+    LVN_SETDISPINFOA = LVN_FIRST-51
+    LVN_SETDISPINFOW = LVN_FIRST-78
+    LVN_KEYDOWN = LVN_FIRST-55
+
+    if RWin::UNICODE
+      LVN_ODFINDITEM = LVN_ODFINDITEMW
+      LVN_BEGINLABELEDIT = LVN_BEGINLABELEDITW
+      LVN_ENDLABELEDIT = LVN_ENDLABELEDITW
+      LVN_GETDISPINFO = LVN_GETDISPINFOW
+      LVN_SETDISPINFO = LVN_SETDISPINFOW
+    else
+      LVN_ODFINDITEM = LVN_ODFINDITEMA
+      LVN_BEGINLABELEDIT = LVN_BEGINLABELEDITA
+      LVN_ENDLABELEDIT = LVN_ENDLABELEDITA
+      LVN_GETDISPINFO = LVN_GETDISPINFOA
+      LVN_SETDISPINFO = LVN_SETDISPINFOA
+    end
+    
+    LVS_ICON            = 0x0
+    LVS_REPORT          = 0x1
+    LVS_SMALLICON       = 0x2
+    LVS_LIST            = 0x3
+    LVS_TYPEMASK        = 0x3
+    LVS_SINGLESEL       = 0x4
+    LVS_SHOWSELALWAYS   = 0x8
+    LVS_SORTASCENDING   = 0x10
+    LVS_SORTDESCENDING  = 0x20
+    LVS_SHAREIMAGELISTS = 0x40
+    LVS_NOLABELWRAP     = 0x80
+    LVS_AUTOARRANGE     = 0x100
+    LVS_EDITLABELS      = 0x200
+    LVS_OWNERDATA       = 0x1000
+    LVS_NOSCROLL        = 0x2000
+    LVS_TYPESTYLEMASK   = 0xfc00
+    LVS_ALIGNTOP        = 0x0
+    LVS_ALIGNLEFT       = 0x800
+    LVS_ALIGNMASK       = 0xc00
+    LVS_OWNERDRAWFIXED  = 0x400
+    LVS_NOCOLUMNHEADER  = 0x4000
+    LVS_NOSORTHEADER    = 0x8000
+      
+    LVIF_TEXT        = 0x1
+    LVIF_IMAGE       = 0x2
+    LVIF_PARAM       = 0x4
+    LVIF_STATE       = 0x8
+    LVIF_INDENT      = 0x10
+    LVIF_NORECOMPUTE = 0x800
+    LVIF_GROUPID     = 0x100
+    LVIF_COLUMNS     = 0x200
+    LVIF_STD = LVIF_TEXT | LVIF_IMAGE | LVIF_PARAM | LVIF_INDENT
+      
+    LVIS_FOCUSED        = 0x1
+    LVIS_SELECTED       = 0x2
+    LVIS_CUT            = 0x4
+    LVIS_DROPHILITED    = 0x8
+    LVIS_GLOW           = 0x10
+    LVIS_ACTIVATING     = 0x20
+    LVIS_OVERLAYMASK    = 0xf00
+    LVIS_STATEIMAGEMASK = 0xf000
+      
+    LVCF_FMT     = 0x1
+    LVCF_WIDTH   = 0x2
+    LVCF_TEXT    = 0x4
+    LVCF_SUBITEM = 0x8
+    LVCF_IMAGE   = 0x10
+    LVCF_ORDER   = 0x20
+    LVCF_STD     = LVCF_FMT | LVCF_WIDTH | LVCF_TEXT | LVCF_SUBITEM
+    
+    LVCFMT_LEFT            = 0x0
+    LVCFMT_RIGHT           = 0x1
+    LVCFMT_CENTER          = 0x2
+    LVCFMT_JUSTIFYMASK     = 0x3
+    LVCFMT_IMAGE           = 0x800
+    LVCFMT_BITMAP_ON_RIGHT = 0x1000
+    
+    LVSIL_NORMAL = 0
+    LVSIL_SMALL  = 1
+    LVSIL_STATE  = 2
+    LVSIL_GROUPHEADER = 3
+    
+    LVS_EX_GRIDLINES            = 0x1
+    LVS_EX_SUBITEMIMAGES        = 0x2
+    LVS_EX_CHECKBOXES           = 0x4
+    LVS_EX_TRACKSELECT          = 0x8
+    LVS_EX_HEADERDRAGDROP       = 0x10
+    LVS_EX_FULLROWSELECT        = 0x20
+    LVS_EX_ONECLICKACTIVATE     = 0x40
+    LVS_EX_TWOCLICKACTIVATE     = 0x80
+    LVS_EX_FLATSB               = 0x100
+    LVS_EX_REGIONAL             = 0x200
+    LVS_EX_INFOTIP              = 0x400
+    LVS_EX_UNDERLINEHOT         = 0x800
+    LVS_EX_UNDERLINECOLD        = 0x1000
+    LVS_EX_MULTIWORKAREAS       = 0x2000
+    LVS_EX_LABELTIP             = 0x4000
+    LVS_EX_BORDERSELECT         = 0x8000
+    LVS_EX_DOUBLEBUFFER         = 0x10000
+    LVS_EX_HIDELABELS           = 0x20000
+    LVS_EX_SINGLEROW            = 0x40000
+    LVS_EX_SNAPTOGRID           = 0x80000
+    LVS_EX_SIMPLESELECT         = 0x100000
+    LVS_EX_JUSTIFYCOLUMNS       = 0x200000
+    LVS_EX_TRANSPARENTBKGND     = 0x400000
+    LVS_EX_TRANSPARENTSHADOWTEXT= 0x800000
+    LVS_EX_AUTOAUTOARRANGE      = 0x1000000
+    LVS_EX_HEADERINALLVIEWS     = 0x2000000
+    LVS_EX_AUTOCHECKSELECT      = 0x8000000
+    LVS_EX_AUTOSIZECOLUMNS      = 0x10000000
+    LVS_EX_COLUMNSNAPPOINTS     = 0x40000000
+    LVS_EX_COLUMNOVERFLOW       = 0x80000000
+    
+    LVFI_PARAM = 0x1
+    LVFI_STRING = 0x2
+    LVFI_PARTIAL = 0x8
+    LVFI_WRAP = 0x20
+    LVFI_NEARESTXY = 0x40
+    
+    HDM_GETITEMCOUNT = 0x1200 unless defined? HDM_GETITEMCOUNT
+    
+    LVBKIF_SOURCE_NONE = 0x0
+    LVBKIF_SOURCE_HBITMAP = 0x1
+    LVBKIF_SOURCE_URL = 0x2
+    LVBKIF_SOURCE_MASK = 0x3
+    
+    LVBKIF_STYLE_NORMAL = 0x0
+    LVBKIF_STYLE_TILE = 0x10
+    LVBKIF_STYLE_MASK = 0x10
+    LVBKIF_FLAG_TILEOFFSET = 0x100
+    LVBKIF_TYPE_WATERMARK = 0x10000000
+    
+  end
+    
+  # A window that displays a collection of items. This provides several ways to arrange and display items.
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Listview < WinControl
+    include ModCommCtrl
+    
+    LVITEM = API.defstruct "
+      UINT mask;
+      int iItem;
+      int iSubItem;
+      UINT state;
+      UINT stateMask;
+      LPTSTR pszText;
+      int cchTextMax;
+      int iImage;
+      LPARAM lParam;
+      int iIndent;  
+      int    iGroupId;
+      UINT   cColumns;
+      UINT*  puColumns;"
+
+    LVCOLUMN = API.defstruct "
+      UINT mask;
+      int fmt;
+      int cx;
+      LPTSTR pszText;
+      int cchTextMax;
+      int iSubItem;
+      int iImage;
+      int iOrder;"
+
+    LVFINDINFO = API.defstruct "
+      UINT flags;
+      LPTSTR psz;
+      LPARAM lParam;
+      POINT pt;
+      UINT vkDirection;"
+
+    LVHITTEST = API.defstruct "
+      POINT pt;
+      UINT flags;
+      int iItem;
+      int iSubItem"
+
+    NMLISTVIEW = API.defstruct "
+      NMHDR hdr;
+      int iItem;
+      int iSubItem;
+      UINT uNewState;
+      UINT uOldState;
+      UINT uChanged;
+      POINT ptAction;
+      LPARAM lParam;"
+    
+    NMLVCUSTOMDRAW = API.defstruct "
+      NMCUSTOMDRAW nmcd;
+      COLORREF clrText;
+      COLORREF clrTextBk;
+      int iSubItem;
+      DWORD dwItemType;
+      COLORREF clrFace;
+      int iIconEffect;
+      int iIconPhase;
+      int iPartId;
+      int iStateId;
+      RECT rcText;
+      UINT uAlign;"
+    
+    LVKEYDOWN = API.defstruct "
+      NMHDR hdr;
+      WORD wVKey;
+      UINT flags;"
+    
+    NMLVGETINFOTIP = API.defstruct "
+      NMHDR hdr;
+      DWORD dwFlags;
+      LPTSTR pszText;
+      int cchTextMax;
+      int iItem;
+      int iSubItem;
+      LPARAM lParam;"
+    
+    NMITEMACTIVATE = API.defstruct "
+      NMHDR  hdr;
+      int    iItem;
+      int    iSubItem;
+      UINT   uNewState;
+      UINT   uOldState;
+      UINT   uChanged;
+      POINT  ptAction;
+      LPARAM lParam;
+      UINT   uKeyFlags;"
+    
+    NMLVDISPINFO = API.defstruct "
+      NMHDR  hdr;
+      LVITEM item;"
+    
+    LVBKIMAGE = API.defstruct "
+      ULONG ulFlags;
+      HBITMAP hbm;
+      LPTSTR pszImage;
+      UINT cchImageMax;
+      int xOffsetPercent;
+      int yOffsetPercent;"
+
+    
+    MAXCOLUMN = 0xffff
+    MaxText = 256
+    
+    class Column # wrapper of LVCOLUMN and index
+      include RC
+      ColumnFormats = {
+        :left            => LVCFMT_LEFT,
+        :right           => LVCFMT_RIGHT,
+        :center          => LVCFMT_CENTER,
+        :image           => LVCFMT_IMAGE,
+        :bitmap_on_right => LVCFMT_BITMAP_ON_RIGHT
+      }
+      
+      def self.[](*args) self.new(*args); end
+      
+      def initialize(*args)
+        @owner = args.shift if args[0].is_a?(RWin::Window)
+        @index = args.shift if args[0].is_a?(Integer)
+        @text = args.shift if args[0].is_a?(String)
+        sz = @text ? @text.size : nil
+        
+        width, fmt, image = args
+        width = width ? width.to_i : 80
+        fmt = fmt.is_a?(Symbol) ? ColumnFormats[fmt] : fmt.to_i#; dpp width, fmt, image
+        @lvcolumn = LVCOLUMN[LVCF_STD, fmt, width, @text, sz, @index, image]
+#        dpp @lvcolumn.to_hsh
+        if image
+          @lvcolumn.mask |= LVCF_IMAGE
+          @lvcolumn.fmt |= LVCFMT_IMAGE
+        end
+      end
+      
+      def owner=(owner) 
+        @owner = owner
+        self
+      end
+      
+      def format_to_sym()
+        ColumnFormats.key(@lvcolumn.fmt & 0x1fff)
+      end
+      
+      def format()
+        if @owner.alive?
+          @lvcolumn.clear(LVCF_FMT)
+          @owner.SendMessage(LVM_GETCOLUMN, @index, @lvcolumn)
+          @lvcolumn.fmt & 0x1fff
+        else
+          @format
+        end
+      end
+      def format=(fmt)
+        fmt = ColumnFormats[fmt] if fmt.is_a?(Symbol)
+        if @owner.alive?
+          @lvcolumn.clear(LVCF_FMT, fmt.to_i)
+          @owner.SendMessage(LVM_SETCOLUMN, @index, @lvcolumn)
+        else
+          @format = fmt
+        end
+      end
+      
+      def text() 
+        if @owner.alive?
+          buff = TCHAR[MaxText]
+          @lvcolumn.clear(LVCF_TEXT, nil, nil, buff, buff.size)
+          @owner.SendMessage(LVM_GETCOLUMN, @index, @lvcolumn)
+          buff.to_s
+        else
+          @text
+        end
+      end
+      def text=(txt)
+        if @owner.alive?
+          @lvcolumn.clear(LVCF_TEXT, nil, nil, txt, txt.size)
+          @owner.SendMessage(LVM_SETCOLUMN, @index, @lvcolumn)
+        else
+          @text = txt
+        end
+      end
+      
+      def width()
+        if @owner.alive?
+          @lvcolumn.clear(LVCF_WIDTH)
+          @owner.SendMessage(LVM_GETCOLUMN, @index, @lvcolumn)
+        end
+        @lvcolumn.cx
+      end
+      def width=(w)
+        if @owner.alive?
+          @lvcolumn.clear(LVCF_WIDTH, nil, w.to_i)
+          @owner.SendMessage(LVM_SETCOLUMN, @index, @lvcolumn)
+        else
+          @lvcolumn.cx = w
+        end
+      end
+      
+      def image()
+        if @owner.alive?
+          @lvcolumn.clear(LVCF_FMT|LVCF_IMAGE)
+          @owner.SendMessage(LVM_GETCOLUMN, @index, @lvcolumn)
+        end
+        @lvcolumn.fmt & LVCFMT_IMAGE > 0 ? @lvcolumn.iImage : nil
+      end
+      def image=(i)
+        if @owner.alive?
+          @lvcolumn.clear(LVCF_FMT|LVCF_IMAGE, LVCFMT_IMAGE)
+          @lvcolumn.iImage = i
+          @owner.SendMessage(LVM_SETCOLUMN, @index, @lvcolumn)
+        else
+          @lvcolumn.iImage = i
+        end
+      end
+      
+      def delete() 
+        @owner.SendMessage(LVM_DELETECOLUMN, @index, 0)
+      end
+      
+      def lvcolumn()
+        @lvcolumn.pszText = @text
+        @lvcolumn.cchTextMax = @text ? @text.size : nil
+        @lvcolumn
+      end
+    end
+    
+    class Columns #< Array
+      include RC
+      attr_reader :owner
+      def initialize(owner)
+        @owner = owner
+        @columns = []
+#        super()
+      end
+      
+      def <<(arg)
+        @owner.alive? ? self[size, 0] = arg : @columns[size, 0] = arg #super
+        self
+      end
+      
+      def size()
+        if @owner.alive?
+          API.SendMessage(@owner.SendMessage(LVM_GETHEADER, 0, 0), HDM_GETITEMCOUNT, 0, 0)
+        else
+          @columns.size
+        end
+      end
+      alias count size
+      
+      def clear()
+        @owner.alive? ? size.times{self[0].delete} : @columns.clear
+      end
+      
+      def [](idx)
+        if @owner.alive?
+          Column.new(@owner, idx)
+        else
+          @columns[idx]
+        end
+      end
+      
+      def []=(idx, *args)
+        case args.size
+        when 1
+          n = 1; args = args[0]
+        when 2
+          n, args = args #; dpp args
+        else
+          raise ArgumentError, "invalid num of arguments"#, caller(1)
+        end
+        args = [args] unless args.is_a?(Array)
+        if @owner.alive?
+          n.times{|i| _delete_column(idx)}
+          j = 0
+          item = args[0].is_a?(String) ? [args.shift] : [] #; dpp args
+          while i=args.shift
+            if i.is_a?(String) #; dpp i, j, item
+              unless item.empty?
+                _insert_column(idx+j, item)
+                j += 1
+              end
+              item = []
+            elsif i.is_a?(Array) || i.is_a?(Column) # ; dpp i, j, item
+              unless item.empty?
+                _insert_column(idx+j, item)
+                j += 1
+              end
+              _insert_column(idx+j, i)
+              j += 1
+              item = []
+              next
+            elsif i.nil?
+              next
+            end
+            item << i
+          end
+          _insert_column(idx+j, item) if !item.empty? #; dpp @_pages,idx, num, ar_pages, anum
+        else
+          @columns[idx, n] = args
+        end
+      end
+      
+      def each()
+        count.times{|i| yield self[i]}
+      end
+      
+      private
+      def _create_substance()
+        self[0, 0] = @columns
+        @columns = nil
+      end
+      
+      def _insert_column(idx, arg) #; dpp arg
+        if @owner.alive?
+          clmn = arg.is_a?(Column) ? arg : Column[*arg]
+          clmn.owner = @owner
+          @owner.SendMessage(LVM_INSERTCOLUMN, idx, clmn.lvcolumn)
+        else
+          idx = idx > self.size ? self.size : idx
+          self.insert(idx, arg)
+        end
+      end
+      
+      def _delete_column(idx)
+        @owner.SendMessage(LVM_DELETECOLUMN, idx, 0)
+      end
+    end
+    
+    class Item # Wrapper of index
+      include RC
+      
+      ItemStates = {
+        :focused       => LVIS_FOCUSED,
+        :selected      => LVIS_SELECTED,
+        :cut           => LVIS_CUT,
+        :drophilited   => LVIS_DROPHILITED,
+        :glow          => LVIS_GLOW,
+        :activating    => LVIS_ACTIVATING,
+        :overlaymask   => LVIS_OVERLAYMASK,
+        :stateimagemsk => LVIS_STATEIMAGEMASK
+      }
+      
+      def initialize(owner, idx)
+        @owner = owner
+        @index = idx
+      end
+     
+      def [](idx)
+        if @owner.alive?
+          item = LVITEM[LVIF_TEXT, @index, idx]
+          item.pszText = TCHAR[MaxText]
+          item.cchTextMax = MaxText
+          @owner.SendMessage(LVM_GETITEMTEXT, @index, item)
+          item.pszText
+        else
+          @owner._items[@index][0].split("\t")[idx]
+        end
+      end
+      def []=(idx, txt)
+        if @owner.alive?
+          item = LVITEM[LVIF_TEXT, @index, idx]
+          item.pszText = txt
+          item.cchTextMax = txt.size
+          @owner.SendMessage(LVM_SETITEMTEXT, @index, item)
+        else
+          ar = @owner._items[@index][0].split("\t")
+          ar[idx] = txt
+          @owner._items[@index][0] = ar.join("\t")
+        end
+      end
+      
+      def text() self[0]; end
+      def text=(txt) self[0] = txt; end
+      
+      def image()
+        item = LVITEM[LVIF_IMAGE, @index]
+        @owner.SendMessage(LVM_GETITEM, 0, item)
+        item.iImage
+      end
+      def image=(idx)
+        item = LVITEM[LVIF_IMAGE, @index]
+        item.iImage = idx
+        @owner.SendMessage(LVM_SETITEM, 0, item)
+      end
+      
+      def indent()
+        item = LVITEM[LVIF_STD, @index]
+        @owner.SendMessage(LVM_GETITEM, 0, item)
+        item.iIndent
+      end
+      def indent=(idt)
+        item = LVITEM[LVIF_INDENT, @index]
+        item.iIndent = idt
+        @owner.SendMessage(LVM_SETITEM, 0, item)
+      end
+      
+      def data
+        item = LVITEM[LVIF_PARAM, @index]
+        @owner.SendMessage(LVM_GETITEM, 0, item)
+        ObjectSpace._id2ref(item.lParam)
+      end
+      def data=(data)
+        item = LVITEM[LVIF_PARAM, @index]
+        item.lParam = data.__id__
+        @owner.SendMessage(LVM_SETITEM, 0, item)
+      end
+      
+      def getstate(mask)
+        @owner.SendMessage(LVM_GETITEMSTATE, @index, mask)
+      end
+      def setstate(mask, state)
+        item = LVITEM[LVIF_STATE, 0, 0, state, mask]
+        @owner.SendMessage(LVM_SETITEMSTATE, @index, item)
+      end
+      
+      def focused() 
+        r = @owner.SendMessage(LVM_GETITEMSTATE, @index, LVIS_FOCUSED)
+        r == LVIS_FOCUSED ? true : false
+      end 
+      def focused=(f)
+        item = LVITEM[LVIF_STATE, 0, 0, f ? LVIS_FOCUSED : 0, LVIS_FOCUSED]
+        @owner.SendMessage(LVM_SETITEMSTATE, @index, item)
+      end
+      
+      def selected() (state & LVIS_SELECTED) > 0; 
+        r = @owner.SendMessage(LVM_GETITEMSTATE, @index, LVIS_SELECTED)
+        r == LVIS_SELECTED ? true : false
+      end 
+      def selected=(f) 
+        item = LVITEM[LVIF_STATE, 0, 0, f ? LVIS_SELECTED : 0, LVIS_SELECTED]
+        @owner.SendMessage(LVM_SETITEMSTATE, @index, item)
+      end
+      
+      def checked()
+        r = @owner.SendMessage(LVM_GETITEMSTATE, @index, LVIS_STATEIMAGEMASK) >> 12
+        r == 1 ? false : true
+      end
+      alias cheched? checked
+      def checked=(f)
+        item = LVITEM[LVIF_STATE]
+        item.state = (f ? 2 : 1) << 12
+        item.stateMask = LVIS_STATEIMAGEMASK
+        @owner.SendMessage(LVM_SETITEMSTATE, @index, item)
+      end
+      
+      def columns()
+        item = LVITEM[LVIF_COLUMNS, @index]
+        @owner.SendMessage(LVM_GETITEM, 0, item)
+        
+      end
+      
+      def rect()
+        rc = RECT.new
+        @owner.SendMessage(LVM_GETITEMRECT, @index, rc)
+        rc.to_a
+      end
+      
+      def delete()
+        @owner.delete(@index)
+      end
+      
+      def editlabel()
+        @owner.editlabel(@index)
+      end
+    end # Listview::Item
+    
+    #################### Main ####################
+
+    WinStyles = {
+      :iconview        => LVS_ICON,
+      :reportview      => LVS_REPORT,
+      :smalliconview   => LVS_SMALLICON,
+      :listview        => LVS_LIST,
+      :singlesel       => LVS_SINGLESEL,
+      :showselalways   => LVS_SHOWSELALWAYS,
+      :sortascending   => LVS_SORTASCENDING,
+      :sortdescending  => LVS_SORTDESCENDING,
+      :shareimagelists => LVS_SHAREIMAGELISTS,
+      :nolabelwrap     => LVS_NOLABELWRAP,
+      :autoarrange     => LVS_AUTOARRANGE,
+      :editlabels      => LVS_EDITLABELS,
+      :ownerdata       => LVS_OWNERDATA,
+      :noscroll        => LVS_NOSCROLL,
+      :alingtop        => LVS_ALIGNTOP,
+      :alignleft       => LVS_ALIGNLEFT,
+      :ownerdrawfixed  => LVS_OWNERDRAWFIXED,
+      :nocolumnheader  => LVS_NOCOLUMNHEADER,
+      :nosortheader    => LVS_NOSORTHEADER
+    }
+    
+    LvsExStyles = {
+      :gridlines             => LVS_EX_GRIDLINES,
+      :subitemimages         => LVS_EX_SUBITEMIMAGES,
+      :checkboxes            => LVS_EX_CHECKBOXES,
+      :trackselect           => LVS_EX_TRACKSELECT,
+      :headerdragdrop        => LVS_EX_HEADERDRAGDROP,
+      :fullrowselect         => LVS_EX_FULLROWSELECT,
+      :oneclickactivate      => LVS_EX_ONECLICKACTIVATE,
+      :twoclickactivate      => LVS_EX_TWOCLICKACTIVATE,
+      :flatsb                => LVS_EX_FLATSB,
+      :regional              => LVS_EX_REGIONAL,
+      :infotip               => LVS_EX_INFOTIP,
+      :underlinehot          => LVS_EX_UNDERLINEHOT,
+      :underlinecold         => LVS_EX_UNDERLINECOLD,
+      :multiworkareas        => LVS_EX_MULTIWORKAREAS,
+      :labeltip              => LVS_EX_LABELTIP,
+      :borderselect          => LVS_EX_BORDERSELECT,
+      :doublebuffer          => LVS_EX_DOUBLEBUFFER,
+      :hidelabels            => LVS_EX_HIDELABELS,
+      :singlerow             => LVS_EX_SINGLEROW,
+      :snaptoglid            => LVS_EX_SNAPTOGRID,
+      :simpleselect          => LVS_EX_SIMPLESELECT,
+      :justifycolumns        => LVS_EX_JUSTIFYCOLUMNS,
+      :transparentbkgnd      => LVS_EX_TRANSPARENTBKGND,
+      :transparentshadowtext => LVS_EX_TRANSPARENTSHADOWTEXT,
+      :autoautoarrange       => LVS_EX_AUTOAUTOARRANGE,
+      :headerinallivews      => LVS_EX_HEADERINALLVIEWS,
+      :autocheckselect       => LVS_EX_AUTOCHECKSELECT,
+      :autosizecolumns       => LVS_EX_AUTOSIZECOLUMNS,
+      :columnsnappoints      => LVS_EX_COLUMNSNAPPOINTS,
+      :columnoverflow        => LVS_EX_COLUMNOVERFLOW,
+    }
+    
+    PreDefinedEvents = {
+      :click        => [WM_NOTIFY, NM_CLICK, 'xs', NMITEMACTIVATE],
+      :dblclk       => [WM_NOTIFY, NM_DBLCLK, 'xs', NMITEMACTIVATE],
+      :return       => [WM_NOTIFY, NM_RETURN, 'xs', NMHDR],
+      :rclick       => [WM_NOTIFY, NM_RCLICK, 'xs', NMITEMACTIVATE],
+      :rdblclk      => [WM_NOTIFY, NM_RDBLCLK, 'xs', NMITEMACTIVATE],
+      :setfocus     => [WM_NOTIFY, NM_SETFOCUS, 'xs', NMHDR],
+      :killfocus    => [WM_NOTIFY, NM_KILLFOCUS, 'xs', NMHDR],
+      :customdraw   => [WM_NOTIFY, NM_CUSTOMDRAW, 'xs', NMLVCUSTOMDRAW],
+      :hover        => [WM_NOTIFY, NM_HOVER, 'xs', NMHDR],
+      :releasedcapture => [WM_NOTIFY, NM_RELEASEDCAPTURE, 'xs', NMHDR],
+      :keydown      => [WM_NOTIFY, LVN_KEYDOWN, 'xs', LVKEYDOWN],
+      :itemactivate => [WM_NOTIFY, LVN_ITEMACTIVATE, 'xs', NMITEMACTIVATE],
+      :itemchanging => [WM_NOTIFY, LVN_ITEMCHANGING, 'xs', NMLISTVIEW],
+      :itemchanged  => [WM_NOTIFY, LVN_ITEMCHANGED, 'xs', NMLISTVIEW],
+      :insertitem   => [WM_NOTIFY, LVN_INSERTITEM, 'xs', NMLISTVIEW],
+      :deleteitem   => [WM_NOTIFY, LVN_DELETEITEM, 'xs', NMLISTVIEW],
+      :columnclick  => [WM_NOTIFY, LVN_COLUMNCLICK, 'xs', NMLISTVIEW],
+      :begindrag    => [WM_NOTIFY, LVN_BEGINDRAG, 'xs', NMLISTVIEW],
+      :beginrdrag   => [WM_NOTIFY, LVN_BEGINRDRAG, 'xs', NMLISTVIEW],
+      :beginlabeledit => [WM_NOTIFY, LVN_BEGINLABELEDIT, 'xs', NMLVDISPINFO],
+      :endlabeledit => [WM_NOTIFY, LVN_ENDLABELEDIT, 'xs', NMLVDISPINFO]
+    }
+    
+    DefaultEvents = [
+      :click,       #???_click(NMITEMACTIVATE)
+      :itemchanged  #???_itemchanged(NMLISTVIEW)
+    ]
+    
+    attr_reader :_items
+    
+    def initialize(*args)
+      @_extendedstyle = 0
+      @_columns = Columns.new(self)
+      super(*args)
+      @_classname = "SysListView32"
+      self.exstyle = WS_EX_CLIENTEDGE
+      @_acceptable_events = PreDefinedEvents.dup
+      @lvhit = LVHITTEST[POINT[*self.clientpos]]
+      @_items = []
+      @_ar_data = []
+      @_lvitem4delete = LVITEM[LVIF_PARAM] # for delete method
+    end
+    
+    #
+    def create()
+      if @_parent.event_registered?(idcmd, WM_NOTIFY, LVN_DELETEITEM, "__deleteitem__", self)
+        @_parent.register_event(self.idcmd, WM_NOTIFY, LVN_DELETEITEM, "__deleteitem__", 'xs',
+                               NMLISTVIEW, self) # for internal use
+      end
+      super
+      self.extendedstyle = @_extendedstyle if @_extendedstyle && @_extendedstyle > 0
+      self.imagelist = @_imagelist if @_imagelist
+      self.normalimagelist = @_normalimagelist if @_normalimagelist
+      self.smallimagelist = @_smallimagelist if @_smallimagelist
+      self.stateimagelist = @_stateimagelist if @_stateimagelist
+      self.groupheaderimagelist = @_groupheaderimagelist if @_groupheaderimagelist
+      self.bkcolor = @_bkcolor if @_bkcolor
+      self.textcolor = @_textcolor if @_textcolor
+      self.textbkcolor = @_textbkcolor if @_textbkcolor
+      self.tooltip = @_tooltip if @_tooltip
+      @_columns.__send__(:_create_substance) if @_columns
+      _create_substance if @_items
+      @_extendedstyle = @_normalimagelist = @_smallimagelist = @_stateimagelist =
+      @_groupheaderimagelist = @_bkcolor = @_textcolor = @_tooltip = @_items = nil
+    end
+    
+#    def close()
+#      parent.unregister_event(self.idcmd, WM_NOTIFY, LVN_DELETEITEM, "__deleteitem__", self)
+#      super
+#    end
+    
+    # Gets the columns of a listview.
+    # Returns a instance of Listview::Columns.
+    def columns()
+      @_columns
+    end
+    
+    # Sets the collumns of header of a Listview
+    def columns=(args)
+      return @_columns.clear if args.nil? || args.empty?
+      args = [args] unless args.is_a?(Array)
+      @_columns[0, @_columns.size] = args
+    end
+    
+    # Inserts an item into the Listview.
+    # This is low level method, so shuld be used `[]=' or `insert'.
+    def insert_item(idx, lvitem, arg)
+      if alive?
+        lvitem.mask = LVIF_STD
+        lvitem.iItem = idx
+        lvitem.iSubItem = 0
+        txt, image, indent, data = arg
+        txts = txt.to_s.split("\t")
+        lvitem.pszText = t = txts.shift.to_s
+        lvitem.cchTextMax = t.size + 1
+        lvitem.iImage = image.nil? ? -1 : image.to_i
+        lparam = data.__id__
+        @_ar_data << data if (lparam&1)==0 && lparam>NilID
+        lvitem.lParam = lparam  #; dp "@%p", lvitem.to_a
+        lvitem.iIndent = indent.to_i
+        SendMessage(LVM_INSERTITEM, 0, lvitem)
+        # set subitems
+        lvitem.mask = LVIF_TEXT
+        txts.each_with_index{|itxt, i|
+          lvitem.iSubItem = i+1
+          lvitem.pszText = itxt.to_s
+          lvitem.cchTextMax = itxt.size
+          SendMessage(LVM_SETITEMTEXT, idx, lvitem)
+        }
+      else
+        @_items.insert(idx, arg)
+      end
+    end
+    
+    # insert(index, length=1, *args)
+    # Inserts and replaces at the specified <i>index</i> and <i>length</i> by the <i>items</i>.<br>
+    # Give the arrays of [[<i>text</i>, <i>image</i>, <i>indent</i>, <i>data</i>], ... ] as <i>args</i>.
+    def insert(idx, *args)
+      idx = self.count if idx == -1
+      case args.size
+      when 2
+        len = args.shift
+      when 1
+        len = 1
+      else #; dpp idx, len, args
+        raise ArgumentError, "Illegal num of args: #{args.size + 1}"
+      end
+      len.times{delete_item(idx)} 
+      args = args[0] #;dpp args
+      if args.is_a?(String)
+        insert_item(idx, LVITEM.new, args)
+      elsif args[0].is_a?(String) && !args[1].is_a?(String)
+        insert_item(idx, LVITEM.new, args)
+      else
+        args.each_with_index{|arg, i| insert_item(idx + i, LVITEM.new, arg)}
+      end
+    end
+    alias []= insert
+    
+    # Gets an image-list item specified index.
+    def fetch(idx)
+      Listview::Item.new(self, idx)
+    end
+    
+    # Retreives the array of Listview::Item at the specified index and length.
+    def slice(idx, num=1)
+      if num == 1
+        fetch(idx)
+      else
+        ret = []
+        num.times{|i| ret << fetch(idx + i)}
+        ret
+      end
+    end
+    alias [] slice
+    
+    # Deletes item of specified <i>index</i> from this control.
+    def delete_item(index)
+      alive? ? SendMessage(LVM_DELETEITEM, index, 0) : @_items.delete_at(index)
+    end
+      
+    # delete(index=nil, number=1)
+    # Deletes items at specified <i>index</i> and <i>number</i> from this control.<br>
+    # If no arguments given, deletes self.
+    def delete(*args)
+      return super() if args.empty?
+      index, len = args
+      len ||= 1
+      len.times{ delete_item(index) }
+    end
+    
+    # Retreives count of items.
+    def count()
+      alive? ? SendMessage(LVM_GETITEMCOUNT, 0, 0) : @_items.size
+    end
+    
+    # Adds the args at last of the items.<br>
+    # Give a String or a Array of [String, Object] as args.
+    def <<(arg)
+      self[count, 0] = arg
+    end
+    
+    # each(){|item| ... }
+    # Performs the block for each <i>item</i> in this listview as a block parameter.
+    def each()
+      count.times{|i| yield self.fetch(i)} if block_given?
+    end
+    
+    #######################################################################
+    
+    # Gets a normal and a small imagelist assigned to this Listview control.
+    def imagelist()
+      if alive?
+        [APP.hrsc2ref(SendMessage(LVM_GETIMAGELIST, LVSIL_NORMAL, 0))||nil,
+         APP.hrsc2ref(SendMessage(LVM_GETIMAGELIST, LVSIL_SMALL, 0))||nil]
+      else
+        @_imagelist
+      end
+    end
+    
+    # imagelist=([normaliamge,] smallimage)
+    # Assignes a normal and a small imagelist to this Listview control.
+    def imagelist=(*args) #([normaliamge,] smallimage)
+      args = args[0] if args[0].is_a?(Array)#; dpp args
+      if alive?
+        im1, im2 = args
+        im1 = Imagelist.loadb64(im1) if im1.is_a?(String)
+        im2 = Imagelist.loadb64(im2) if im2.is_a?(String)
+        if im1.iconsize[0]==32
+          SendMessage(LVM_SETIMAGELIST, LVSIL_NORMAL, im1 ? im1._himagelist : 0)
+          SendMessage(LVM_SETIMAGELIST, LVSIL_SMALL, im2 ? im2._himagelist : 0) if im2
+        else
+          SendMessage(LVM_SETIMAGELIST, LVSIL_SMALL, im1 ? im1._himagelist : 0)
+        end
+      else
+        @_imagelist = args
+      end
+    end
+    
+    # Gets a normal imagelist assigned to this control.
+    def normalimagelist() 
+      alive? ? APP.hrsc2ref(SendMessage(LVM_GETIMAGELIST, LVSIL_NORMAL, 0)) || nil : @_nomalimagelist
+    end
+    # Assignes a normal imagelist to this control.
+    def normalimagelist=(il) # dp "@%p", arg
+      il = Imagelist.loadb64(il) if il.is_a?(String)
+      alive? ? SendMessage(LVM_SETIMAGELIST, LVSIL_NORMAL, il ? il._himagelist : 0) :
+               @_normalimagelist = il
+    end
+    
+    # Gets a small imagelist assigned to this control.
+    def smallimagelist() 
+      alive? ? APP.hrsc2ref(SendMessage(LVM_GETIMAGELIST, LVSIL_SMALL, 0)) || nil :
+               @_smallimagelist
+    end
+    # Assignes a small imagelist to this control.
+    def smallimagelist=(il) # dp "@%p", arg
+      il = Imagelist.loadb64(il) if il.is_a?(String)
+      alive? ? SendMessage(LVM_SETIMAGELIST, LVSIL_SMALL, il ? il._himagelist : 0) :
+               @_smallimagelist = il
+    end
+    
+    # Gets a state imagelist assigned to this control.
+    def stateimagelist() 
+      alive? ? APP.hrsc2ref(SendMessage(LVM_GETIMAGELIST, LVSIL_STSATE, 0)) || nil : 
+               @_stateimagelist
+    end
+    # Assignes a state imagelist to this control.
+    def stateimagelist=(il) # dp "@%p", arg
+      il = Imagelist.loadb64(il) if il.is_a?(String)
+      alive? ? SendMessage(LVM_SETIMAGELIST, LVSIL_STATE, il ? il._himagelist : 0) : 
+               @_stateimagelist = il
+    end
+    
+    # Gets a group-header imagelist assigned to this control.
+    def groupheaderimagelist() 
+      alive? ? APP.hrsc2ref(SendMessage(LVM_GETIMAGELIST, LVSIL_GROUPHEADER, 0)) || nil :
+               @_groupheaderimagelist
+    end
+    # Assignes a group-header imagelist to this control.
+    def groupheaderimagelist=(il)
+      il = Imagelist.loadb64(il) if il.is_a?(String)
+      alive? ? SendMessage(LVM_SETIMAGELIST, LVSIL_GROUPHEADER, il ? il._himagelist : 0) : 
+                           @_groupheaderimagelist = il
+    end
+    
+    # Gets the background color of this control.
+    def bkcolor()
+      alive? ? SendMessage(LVM_GETBKCOLOR, 0, 0) & 0xffffff : @_bkcolor
+    end
+    # Sets the background color of this control.
+    def bkcolor=(clr) 
+      alive? ? SendMessage(LVM_SETBKCOLOR, 0, clr) : @_bkcolor = clr
+    end
+    
+# set/getbkimage is not work well...
+#    # Gets the background image in this control.
+#    def getbkimage()
+#      bkimg = LVBKIMAGEA.new
+#      SendMessage(LVM_GETBKIMAGE, 0, bkimg)
+#      bkimg
+#    end
+#    
+#    # Sets the background image in this control by specified aruments.
+#    def setbkimage(image, x=50, y=50, tile=nil)
+#      bkimg = LVBKIMAGE.new
+#      if image.is_a?(RWin::Bitmap); dpp image
+#        @image = image
+#        bkimg.ulFlags = LVBKIF_SOURCE_HBITMAP
+#        bkimg.hbm = @image._hddbitmap()
+#      elsif image.is_a?(String)
+#        if image=~/^\w+:\/\//
+#          bkimg.ulFlags = LVBKIF_SOURCE_URL
+#          bkimg.pszImage = image
+#          bkimg.cchImageMax = image.size
+#        else
+#          image = Bitmap.loadb64(image)
+#          bkimg.ulFlags = LVBKIF_SOURCE_HBITMAP
+#          bkimg.hbm = image._hddbitmap
+#        end
+#      else
+#        raise TypeError, "image is neither Bitmap nor String."
+#      end
+#      bkimg.ulFlags |= LVBKIF_STYLE_TILE if tile
+#      bkimg.xOffsetPercent = x
+#      bkimg.yOffsetPercent = y
+#      SendMessage(LVM_SETBKIMAGE, 0, bkimg)
+#    end
+    
+    # Gets the text color of this list-view control. 
+    def textcolor()
+      alive? ? SendMessage(LVM_GETTEXTCOLOR, 0, 0) & 0xffffff : @_textcolor
+    end
+    # Sets the text color of a list-view control.
+    def textcolor=(clr)
+      alive? ? SendMessage(LVM_SETTEXTCOLOR, 0, clr) : @_textcolor = clr
+    end
+    
+    # Gets the text background color of this list-view control. 
+    def textbkcolor()
+      alive? ? SendMessage(LVM_GETTEXTBKCOLOR, 0, 0) & 0xffffff : @_textbkcolor
+    end
+    # Sets the background color of text in this list-view control. 
+    def textbkcolor=(clr)
+      alive? ? SendMessage(LVM_SETTEXTBKCOLOR, 0, clr) : @_textbkcolor = clr
+    end
+    
+    # Retrieves the tooltip control that the list-view control uses to display tooltips.
+    def tooltip()
+      alive? ? APP.hwnd2ref(SendMessage(LVM_GETTOOLTIPS, 0, 0)) || nil : @_tooltip
+    end
+    # Sets the tooltip control that the list-view control will use to display tooltips.
+    def tooltip=(tt)
+      alive? ? SendMessage(LVM_SETTOOLTIPS, 0, tt ? tt.hWnd : 0) : @_tooltip = tt
+    end
+    
+    #### styles ####
+    
+    # Gets whether selection is shown always, if any.
+    def showselalways() (self.style & LVS_SHOWSELALWAYS) > 0; end
+    # The selection, if any, is always shown, even if the control does not have the focus. 
+    def showselalways=(f) f ? 
+      self.style |= LVS_SHOWSELALWAYS : self.style &= ~LVS_SHOWSELALWAYS
+    end
+    
+    # Gets wheter the multiple items may be selected.
+    def multiselect() (self.style & LVS_SIGLESEL) == 0; end
+    # Sets wheter the multiple items may be selected. By default, multiple items may be selected.
+    def multiselect=(f) f ? self.style &= ~LVS_SINGLESEL : self.style |= LVS_SINGLESEL; end
+    
+    #### extended styles (not exstyle) ####
+    
+    # Gets the extended styles that are currently in use for this list-view control. 
+    def get_extendedstyle(xstyle)
+      alive? ? SendMessage(LVM_GETEXTENDEDLISTVIEWSTYLE, 0, xstyle)>0 || nil : @_extendedstyle
+    end
+    
+    # Sets extended styles in this list-view control. 
+    def set_extendedstyle(xstyle, f=true)
+      if alive?
+        SendMessage(LVM_SETEXTENDEDLISTVIEWSTYLE,xstyle,f ? xstyle : 0)
+      else
+        f ?  @_extendedstyle |= xstyle : @_extendedstyle &= ~xstyle
+      end
+    end
+    alias extendedstyle= set_extendedstyle
+    
+    # Retreives whether displays gridlines around items and subitems.
+    def gridlines() get_extendedstyle(LVS_EX_GRIDLINES); end
+    # Sets whether displays gridlines around items and subitems.
+    def gridlines=(f) set_extendedstyle(LVS_EX_GRIDLINES, f); end
+    
+    # Retreives whether check boxes for items is enabled in this list-view control. 
+    def checkboxes() get_extendedstyle(LVS_EX_CHECKBOXES); end
+    # Sets whether check boxes for items is enabled in this list-view control. 
+    def checkboxes=(f) set_extendedstyle(LVS_EX_CHECKBOXES, f); end
+    
+    # Retreives whether hot-track selection is enabled in this list-view control. 
+    def trackselect() get_extendedstyle(LVS_EX_TRACKSELECT); end
+    # Sets whether hot-track selection is enabled in this list-view control. 
+    def trackselect=(f) set_extendedstyle(LVS_EX_TRACKSELECT, f); end
+    
+    # Retreives whether drag-and-drop reordering of columns is enabled in this list-view control. 
+    def headerdragdrop() get_extendedstyle(LVS_EX_HEADERDRAGDROP); end
+    # Sets whether drag-and-drop reordering of columns is enabled in this list-view control. 
+    def headerdragdrop=(f) get_extendedstyle(LVS_EX_HEADERDRAGDROP, f); end
+    
+    # Retreives whether full-row selection is enabled in this list-view control.
+    def fullrowselect() get_extendedstyle(LVS_EX_FULLROWSELECT); end
+    # Sets whether full-row selection is enabled in this list-view control.
+    def fullrowselect=(f) set_extendedstyle(LVS_EX_FULLROWSELECT, f); end
+    
+    ViewModes = {
+      :iconview => LVS_ICON,
+      :reportview => LVS_REPORT,
+      :smalliconview => LVS_SMALLICON,
+      :listview => LVS_LIST
+    }
+    # Gets a view-mode of this list-vew control.
+    def viewmode() self.style & LVS_TYPEMASK; end
+    # Converts a integer value of view-mode to symbol.
+    def viewmode_to_sym() ViewModes.key(self.style & LVS_TYPEMASK); end
+    # Sets a view-mode of this lis-view control. You can use following symbols instead of integer value.<br>
+    # :reportview, :iconview, :smalliconview, :listview
+    def viewmode=(mode)
+      mode = ViewModes[mode] if mode.is_a?(Symbol)
+      self.style = (self.style & ~LVS_TYPEMASK) | mode
+    end
+    
+    # Retreives the list of selected items in this list-view control.
+    def selections()
+      ret = []
+      def ret.clear()
+        self.each{|j| j.selected = false}
+        super
+      end
+      i = -1
+      while (i=SendMessage(LVM_GETNEXTITEM, i, LVNI_SELECTED)) > -1
+        ret << Item.new(self, i)
+      end
+      ret
+    end
+    
+    # Gets the last of item in this list-view control.
+    def last()
+      self[count-1]
+    end
+    
+    # Clears all items in this list-view control.
+    def clear() 
+      alive? ? SendMessage(LVM_DELETEALLITEM, 0, 0) : items.clear()
+      self
+    end
+    
+    # Ensures that specified list-view item is either entirely or partially visible, scrolling the list-view control if necessary.
+    def ensurevisible(i, partial=true)
+      SendMessage(LVM_ENSUREVISIBLE, i.to_i, partial ? 1 : 0)
+    end
+    
+    # Determines which list-view item, if any, is at a specified position.
+    def hittest(x, y)
+      @lvhit.pt.x = x
+      @lvhit.pt.y = y
+      SendMessage(LVM_SUBITEMHITTEST, 0, @lvhit)
+      [@lvhit.iItem, @lvhit.iSubItem, @lvhit.flags]
+    end
+    
+    #Determines the width of a specified string using this list-view control's current font.
+    def stringwidth(txt)
+      SendMessage(LVM_GETSTRINGWIDTH, 0, txt)
+    end
+    
+    # Searches for a list-view item that has the specified properties and bears the specified relationship to a specified item. 
+    def getnextitem(start, flag)
+      SendMessage(LVM_GETNEXTITEM, start, flag)
+    end
+    
+    # Searches the index of focused item.
+    def focused()
+      getnextitem(-1, LVNI_FOCUSED)
+    end
+    
+    # Sets the specified item to focused. 
+    def focused=(idx)
+      if idx && idx > 0
+        self[idx].focused = true
+      else
+        self[focused].focused = nil
+      end
+    end
+    
+    # Searches for a list-view item with the specified characteristics. 
+    def find(start=-1, param: nil, string: nil, substring: nil, wrap: nil, nearestxy: nil, direction: nil)
+      lvfi = LVFINDINFO.new
+      if param
+        lvfi.lParam = param.to_i
+        lvfi.flags |= LVFI_PARAM
+      end
+      if string
+        lvfi.psz = string.to_s
+        lvfi.flags |= LVFI_STRING
+        lvfi.flags |= LVFI_WRAP if wrap
+      end
+      if substring
+        lvfi.psz = string.to_s
+        lvfi.flags |= LVFI_PARTIAL
+        lvfi.flags |= LVFI_WRAP if wrap
+      end
+      if nearestxy
+        lvfi.pt.x = nearestxy[0]
+        lvfi.pt.y = nearestxy[1]
+        lvfi.vkDirection = direction.to_i if direction
+        lvfi.flags |= LVFI_NEARESTXY
+      end
+      SendMessage(LVM_FINDITEM, start, lvfi)
+    end
+    
+    # Begins in-place editing of the specified list-view item's text. 
+    def editlabel(idx)
+      SendMessage(LVM_EDITLABEL, idx.to_i, 0)
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st = WinStyles[arg]
+        self.style |= st
+        return nil
+      elsif es = LvsExStyles[arg]
+        @_extendedstyle |= es
+        return nil
+      end
+      super
+    end
+    
+    private
+    def _create_substance() #; dp "@%p", @_items
+      Mutex.new.synchronize{
+        lvitem = LVITEM.new
+        @_items.each_with_index{|val, idx| insert_item(idx, lvitem, val)}
+      }
+    end
+    
+    def __deleteitem__(nmlistview)
+      return unless @_ar_data # recycled?
+      lparam = nmlistview.lParam #; dpp lparam
+      if (lparam&1)==0 && lparam>NilID
+        data = (ObjectSpace._id2ref(lparam) rescue nil) #; dp "@data=%p", data
+        if data && (n = @_ar_data.index(data))
+          @_ar_data.delete_at(n)
+        end
+      end
+    end
+  end
+end
+
+module WR
+  class Form1 < Form
+    def initialize()
+      self.windowsize = 640, 480
+      _<< Imagelist.loadb64(:image1, "JJMAIBAYAAwAAgACAACAAf7/f7/AsAYoBQkImnYAAAAACAIEAgRRAMAgQEAEEBQADAwCA2QEgQoAAAAAAAABANhAAAAICB6CAQEAc4BoQCwADAYDAACAgEiAH+AAA/4LoP9/wBzgIBALCEAMFH4MfwdfhD/CZ+FX8L34Z/w4fh5/EF+Iv8Sn4nfxTfiv/Fx+MH8ZX40/xufjl/Hd+Pf8gH5CfyJfkb/JJ+S38o4hmMxmMxmMAAAEQiEQiERJkEEQCilEsP1+v1+v4EAwKRHEsEARLWF8SqWHb7fb7fcEAEWg4JQyqABD/RCIR8CB4ICo9cQQUggfBAN9wQUggfCAJHr9cQmThAfBASESEMAoQFw4FR8MgYEBzlwhgOi33D4NFwCEAEMDAQiJ2pgiAQkCAH/DiCdT87tYgBTrRnmfP/KKAMExZ9/gAARgBgf/QZ+hX9D36OAEImj6jskAgaO1gGkgYBo7fSpGl8FI/6UP0s/pi/TX+nT9Pv6aJVRBqbgHwAH3AA4BBA+AQgHgIIA4DCAGBAgAgUJAwUPwEJR7/R7/gkDWaFwAepqFaMHAD4BCB+AgdTpIf5A=")
+      _<< Listview[:listview1, '', 10, 30, 300, 200, :smalliconview,:smallimagelist=>_image1]
+#      _listview1.columns[0, 0] = ['a', 80], ['b', 100, 1]
+      _<< Button[:button1, "Test", 0, 0, 80, 24]
+    end
+    
+    def created()
+#      _listview1.columns = 'a', 75, 2, 'b', 100, 2, 'c'
+      _listview1.columns[0, 0] = ["a", 80], ["b", 100, 1]
+#      _listview1.columns[0].format = 2
+      #      _listview1.fullrowselect = true
+      dpp Listview::NMLISTVIEW::Offsets
+      
+      controls.listview1 << ["text_1\t123\tabc", 1, 1]
+      _listview1[0].data = 1000
+      controls.listview1 << ["text_2\t456\tdef", 2, 2]
+#      dpp _listview1.columns.each{|i| dpp i}
+#      @bmp = Bitmap.fromfile('../../../tests/resources/win32.png')
+#      dpp @bmp.width, @bmp.height, @bmp.depth
+#      dpp _listview1.setbkimage @bmp, 0, 0, true
+#dpp       _listview1.setbkimage "file:///D:/Users/78071071/hg/wrb_sandbox/tests/resources/win32.bmp"
+    end
+    
+    def listview1_itemchanged(nmlv)
+      dpp _listview1[nmlv.iItem].data
+    end
+      
+    def button1_clicked(*)
+      _listview1.columns.clear
+      _listview1.columns[0, 0] = ["a", 80], ["b", 100, 1]
+      #_listview1.columns.each{|i| dpp i}
+    end
+    
+    self.start
+  end 
+  
+#  class Form1 < Form
+#   def initialize()
+#      self.caption = "Ruby #{RUBY_VERSION}"
+#      resize 640, 480
+#      inheritfont 'Meiryo', -12
+#      _<< Menubar[:main, Menu[:viewmode, "Viewmode", :vmode, "Listview", :vmode, "Iconview", :vmode, "SmallIconview", :vmode, "Reportview"]]
+#      _<< Menu[:popup1, :delete1, "Delete"]
+#      @lv1 = controls << Listview[:listview1, '', 10, 30, 300, 200, :reportview, :gridlines, :fullrowselect, :showselalways , :margin=>[0, 30, 0, 0], :imagelist=>
+#["JJMAIBAYAAwAAgACAACAAf7/f7/AsAYoBQkImnYAAAAACAIEAgRRAMAgQEAEEBQADAwCA2QEgQoAAAAAAAABANhAAAAICB6CAQEAc4BoQCwADAYDAACAgEiAH+AAA/4LoP9/wBzgIBALCEAMFH4MfwdfhD/CZ+FX8L34Z/w4fh5/EF+Iv8Sn4nfxTfiv/Fx+MH8ZX40/xufjl/Hd+Pf8gH5CfyJfkb/JJ+S38o4hmMxmMxmMAAAEQiEQiERJkEEQCilEsP1+v1+v4EAwKRHEsEARLWF8SqWHb7fb7fcEAEWg4JQyqABD/RCIR8CB4ICo9cQQUggfBAN9wQUggfCAJHr9cQmThAfBASESEMAoQFw4FR8MgYEBzlwhgOi33D4NFwCEAEMDAQiJ2pgiAQkCAH/DiCdT87tYgBTrRnmfP/KKAMExZ9/gAARgBgf/QZ+hX9D36OAEImj6jskAgaO1gGkgYBo7fSpGl8FI/6UP0s/pi/TX+nT9Pv6aJVRBqbgHwAH3AA4BBA+AQgHgIIA4DCAGBAgAgUJAwUPwEJR7/R7/gkDWaFwAepqFaMHAD4BCB+AgdTpIf5A="]]
+#      
+##      controls.listview1.columns << ["aaa", 80]
+##      controls.listview1.columns << ["bbb", 80, :center]
+#      
+#      controls.listview1 << ["text_0", 1, 0, [1]]
+#      controls.listview1 << ["text_1\t123\tabc", 2, 1]
+#      controls.listview1 << ["text_2\t456\tdef", 2, 1, 2]
+#      _<< Button[:btn1, "Send", 0, 0, 80, 24]
+#      _<< Button[:btn2, "Set Columns", 80, 0, 100, 24]
+#      _<< Button[:btn3, "Find", 180, 0, 80, 24]
+#      _<< Button[:btn4, "ClearSel", 260, 0, 80, 24]
+#      @lv1.accept_events :keydown
+#      @lv1.normalimagelist = Imagelist.new(32, 32, true) << Bitmap.fromfile('../resources/fileimg32.bmp')
+#      @lv1.accept_events :rclick
+#      @lv1.columns[0] = ['a', 80, 1], ['b', 100, 1]
+#    end
+#    
+#    def created_()
+##      @lv1.columns = 'a', 'b'
+#      controls.listview1.columns << Listview::Column["ccc", 50, :right]     
+#      controls.listview1.columns[2, 0] = ['ddd', 50]
+##      _.listview1.columns[0].image = 1
+#      controls.listview1 << ["text_3\t789\tghi", 2, nil, 1]
+#      controls.listview1.columns[2].delete
+#      @lv1[0,0] = 'aaaa', 'bbbb', 'cccc', 'dddd'
+#      @lv1.insert 0, 0, [['pqw', nil], ['xyz', 2]]
+#      @lv1[-1, 0] =  ["cc\txx", 1, 0, [1]], 'mno', 'Tabcde'
+#      dpp @lv1.columns[1].image
+#    end
+#    
+#    def btn1_clicked(*)
+#      @lv1.SetFocus
+#      @lv1.count.times{|i| @lv1[i].selected = false}
+#      @lv1[2].selected = true
+#      @lv1[2].focused = true
+#    end
+#    
+#    def btn2_clicked(*)
+#      @lv1.columns = ['aa'], ['bb', 100, 2]
+#    end
+#    def btn3_clicked(*)
+#     dpp @lv1.find string: "cc"
+#    end
+#    
+#    def btn4_clicked(*)
+#      dpp @lv1.selections
+#       @lv1.selections.clear
+#    end
+#    
+#    def listview1_rclick(nmact)
+#      px, py = *nmact.ptAction
+#      TrackPopupMenu(_.popup1, @lv1.x+px, @lv1.y+py)
+#    end
+#    
+#    def delete1_clicked(*)
+#      @lv1[@lv1.focused].delete
+#    end
+#    
+#    def listview1_itemchanged(nmlistview)
+#      return unless nmlistview.uOldState == 0
+#      dpp @lv1[nmlistview.iItem].data, @lv1[nmlistview.iItem].indent
+#    end
+#    
+#    def vmode_clicked(id, state)
+#      case _.main.viewmode.index(id)
+#      when 0 # Listview
+#        @lv1.viewmode = :listview
+#      when 1 # Iconview
+#        @lv1.viewmode = :iconview
+#      when 2 # SmallIconview
+#        @lv1.viewmode = :smalliconview
+#      when 3 # Reportview
+#        @lv1.viewmode = :reportview
+#      end
+#    end
+#    self.start
+#  end
+end if $0 == __FILE__
+