wrb 2.0.0

data/lib/wrb/components/font.rb

@@ -0,0 +1,35 @@
+require 'wrb'
+module WR
+  
+  # Defines a particular format for text, including font face, size, and style attributes. 
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/gdi/windows-gdi">
+  # GDI section of Microsft Docs</a>
+  class Font
+=begin
+This is a document holder.
+  self.new(facename, fontheigt, style|bold=nil, italic=nil, underline=nil, strikeout=nil)
+  Creates a new font with specified arguments. 
+  <br>Give a String as facename and an Integer as fontheight.
+  Give combination of "b", "i", "u", "s" as style. Otherwize, give true/false as each arguments.
+
+Following methods are defined at the super class.
+:singleton_methods
+  self.wraphandle(hfont)
+
+:instance_methods
+  _hfont()
+    Retrieves a font handle of self. Returns 32/64 bits integer as it.
+  dispose()
+    Destroies self and removes from resource table and sets hfont to 0. Returns true/false.
+  external?()
+    Retreives whether this font is external or not.<br> Returns true/false.
+  facename()
+    Retreives name of this font, such as "Meiryo" and so on.<br> Returnes a String. 
+  height()
+    Retreives height of this font as `em height'.<br> Retruns an Integer.
+  logfont()
+    Retreives a CStruct object. Wrap this with <i>LOGFONT</i> structure to handle by names.
+
+=end
+  end
+end

data/lib/wrb/components/form.rb

@@ -0,0 +1,65 @@
+# The toplevel window
+
+#require 'wrb'
+require 'wrb/toplevelcommon'
+
+module WR
+  # The top level window that is also a container of controls.
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/api/_winmsg/">
+  # Windows and Messages section of Microsoft Docs.</a>
+  class Form < Window
+    include ModToplevelWin
+    
+    undef SetWindowSubclass, RemoveWindowSubclass
+    DefaultWindowStyle = WS_VISIBLE | WS_OVERLAPPEDWINDOW
+    
+    #
+    def create()
+#      self.font = Font.wraphandle(Font::DefaultGuiFontHandle)
+      @_classname = "RUBYWIN"
+      @_style ||= DefaultWindowStyle
+      @_idcmd = 0
+      @_x ||= CW_USEDEFAULT
+      @_y ||= CW_USEDEFAULT
+      @_w ||= CW_USEDEFAULT
+      @_h ||= CW_USEDEFAULT
+      register_event(WM_GETFONT, "__getfont__")
+      super
+      self.icon = @_icon if @_icon
+      SendMessage(WM_SIZE, 0, MAKELPARAM(*self.clientsize))
+      self.transparency = @_transparency if  @_transparency
+      self.transparentcolor = @_transparentcolor if @_transparentcolor
+      self
+    end
+  end
+end
+
+module WR
+  class Form1 < Form
+    def initialize
+#      self.inheritfont = 'Meiryo', -12
+      self.size = 640, 480
+      _<< Button[:bt1, 'Click me', 0, 0, 100, 24]
+#      self.transparency = 255 #,128
+      self.events = :activate
+#      self.transparency = 128
+#      hide
+    end
+    def created()
+      _<< Button[:bt2, 'Click me too', 0, 30, 100, 24]
+      show
+    end
+    
+    def self_activate(*args)
+#      dp "@%#x", self.transparency # Not work ???
+#      dpp args
+    end
+    
+    def bt1_clicked(*)
+      self.transparentcolor = 0xf0f0f0
+#      self.transparency = nil
+      dpp transparency
+    end
+    self.start
+  end
+end if $0 == __FILE__

data/lib/wrb/components/groupbox.rb

@@ -0,0 +1,122 @@
+module WR
+  require_relative './button' unless defined? Button
+  
+  # This control is a rectangle that surrounds a set of controls, such as check boxes or radio buttons. <br>
+  # See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  #window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Groupbox < Button
+    attr_reader :_controls
+#    def self.sym2style(*args) _sym2style(Button::WinStyles, args); end
+    DefaultWindowStyle = BS_GROUPBOX  
+    
+    def initialize(*args)
+      super
+      @_style |= DefaultWindowStyle
+      @_controls = Collection.new
+    end
+    
+    # Adds a control to this group box.<br>
+    # Give a WinControl as ctrl.
+    def <<(ctrl)
+      cnt = parent.controls << ctrl
+      cnt.style |= WS_GROUP if @_controls.empty?
+      @_controls << cnt
+      class << cnt
+        attr_accessor :_owner
+        def delete()
+          @_owner._controls.delete(self)
+          super
+        end
+        def x()
+          super - @_owner.x
+        end
+        def y()
+          super - @_owner.y
+        end
+        def x=(_x)
+          super(_x+@_owner.x)
+        end
+        def y=(_y)
+          super(_y+@_owner.y)
+        end
+        def move(*args)
+          args[0] += @_owner.x
+          args[1] += @_owner.y
+          super
+        end
+      end
+      cnt._owner = self
+      cx, cy = cnt.clientpos
+      cnt.move(cx, cy)
+      cnt
+    end
+    
+    # Removes controls from this group box ad deletes self.
+    def delete()
+      @_controls.each{|i| i.delete}
+      super
+    end
+    
+    # Retreives an control of given index in the group box.<br>
+    # Give an Integer as idx.
+    def [](idx)
+      @_controls[idx]
+    end
+    
+    # Removes a control from the group. (Not deleted)<br>
+    # Give a WinControl as ctrl.
+    def remove(ctrl)
+      @_controls.delete(ctrl)
+    end
+    
+    # move(x, y[, w, h])
+    # Moves controls of this group box according to this coordinates.<br>
+    # Give the integers as x, y, w, h.
+    def move(*args)
+      @_controls.each{|i| i.move(i.x+args[0]-x, i.y+args[1]-y)} if @_controls
+      super
+      parent.refresh if alive?
+    end
+    
+    # Changes visible state of this and controls.<br>
+    # Give true/false as f.
+    def visible=(f)
+      super
+      @_controls.each{|i| i.visible = f}
+    end
+    
+    # Retreives an index of control in the group.<br>
+    # Give a WinControl as ctrl.
+    def index_of(ctrl)
+      @_controls.index(ctrl)
+    end
+  end
+end
+
+module WR
+  class Form1 < Form
+    def initialize
+      resize 640, 480
+      controls << Button[:bt1, "Button", 0, 10, 100, 24]
+#      # sample of groupbox and raidobuttons
+#      controls << [Groupbox, :group1, 'Group1', 10, 100, 200, 200]
+#      controls.group1 << [Radiobutton, :rdbutton1, 'click me', 10, 20, 100, 30]
+#      controls.group1 << [Radiobutton, :rdbutton2, 'click me', 10, 50, 100, 30]
+#      controls.group1 << [Radiobutton, :rdbutton3, 'click me', 10, 80, 100, 30]
+      
+      # sample of control array
+      controls << Groupbox[:group2, 'Group2', 10, 100, 200, 200]
+      controls.group2 << Radiobutton[:rdbutton, 'click me', 10, 20, 100, 30, :flat]
+#      controls.group2 << Radiobutton[:rdbutton, 'click me', 10, 50, 100, 30, :flat]
+#      controls.group2 << Radiobutton[:rdbutton, 'click me', 10, 80, 100, 30, :flat]
+      
+    end
+    
+    def bt1_clicked(*)
+      controls.group2.move(210, 100)
+#      _rdbutton1.position = 0, 0
+    end
+      
+    self.start
+  end
+end if $0 == __FILE__

data/lib/wrb/components/header.rb

@@ -0,0 +1,479 @@
+require 'wrb'
+require 'wrb/commctrlconst'
+
+module WR
+  module RC
+    HDS_HORZ = 0x0
+    HDS_BUTTONS = 0x2
+    HDS_HOTTRACK = 0x4
+    HDS_HIDDEN = 0x8
+    HDS_DRAGDROP = 0x40
+    HDS_FULLDRAG = 0x80
+    HDS_FILTERBAR = 0x100
+    HDS_FLAT = 0x200
+#if (_WIN32_WINNT >= 0x0600)
+    HDS_CHECKBOXES = 0x400
+    HDS_NOSIZING = 0x800
+    HDS_OVERFLOW = 0x1000
+#endif
+
+    HDFT_ISSTRING = 0x0
+    HDFT_ISNUMBER = 0x1
+    HDFT_HASNOVALUE = 0x8000
+    
+    HDI_WIDTH = 0x1
+    HDI_HEIGHT = HDI_WIDTH
+    HDI_TEXT = 0x2
+    HDI_FORMAT = 0x4
+    HDI_LPARAM = 0x8
+    HDI_BITMAP = 0x10
+    HDI_IMAGE = 0x20
+    HDI_DI_SETITEM = 0x40
+    HDI_ORDER = 0x80
+    HDI_FILTER = 0x100
+
+    HDF_LEFT = 0x0
+    HDF_RIGHT = 0x1
+    HDF_CENTER = 0x2
+    HDF_JUSTIFYMASK = 0x3
+    HDF_RTLREADING = 0x4
+
+    HDF_OWNERDRAW = 0x8000
+    HDF_STRING = 0x4000
+    HDF_BITMAP = 0x2000
+    HDF_BITMAP_ON_RIGHT = 0x1000
+    HDF_IMAGE = 0x800
+    HDF_SORTUP = 0x400
+    HDF_SORTDOWN = 0x200
+#if (_WIN32_WINNT >= = 0x0600)
+    HDF_CHECKBOX = 0x40
+    HDF_CHECKED = 0x80
+    HDF_FIXEDWIDTH = 0x100
+    HDF_SPLITBUTTON = 0x1000000
+#endif
+    
+    HDM_FIRST = 0x1200
+    HDM_GETITEMCOUNT = HDM_FIRST+0
+    HDM_INSERTITEMA = HDM_FIRST+1
+    HDM_INSERTITEMW = HDM_FIRST+10
+    HDM_DELETEITEM = HDM_FIRST+2
+    HDM_GETITEMA = HDM_FIRST+3
+    HDM_GETITEMW = HDM_FIRST+11
+    HDM_SETITEMA = HDM_FIRST+4
+    HDM_SETITEMW = HDM_FIRST+12
+    
+    if UNICODE
+      HDM_INSERTITEM = HDM_INSERTITEMW
+      HDM_GETITEM = HDM_GETITEMW
+      HDM_SETITEM = HDM_SETITEMW
+    else
+      HDM_INSERTITEM = HDM_INSERTITEMA
+      HDM_GETITEM = HDM_GETITEMA
+      HDM_SETITEM = HDM_SETITEMA
+    end
+    
+    HHT_NOWHERE = 0x1
+    HHT_ONHEADER = 0x2
+    HHT_ONDIVIDER = 0x4
+    HHT_ONDIVOPEN = 0x8
+    HHT_ONFILTER = 0x10
+    HHT_ONFILTERBUTTON = 0x20
+    HHT_ABOVE = 0x100
+    HHT_BELOW = 0x200
+    HHT_TORIGHT = 0x400
+    HHT_TOLEFT = 0x800
+
+    HDM_GETITEMRECT = HDM_FIRST+7
+    HDM_SETIMAGELIST = HDM_FIRST+8
+    HDM_GETIMAGELIST = HDM_FIRST+9
+    HDM_ORDERTOINDEX = HDM_FIRST+15
+    HDM_CREATEDRAGIMAGE = HDM_FIRST+16
+    HDM_GETORDERARRAY = HDM_FIRST+17
+    HDM_SETORDERARRAY = HDM_FIRST+18
+    HDM_SETHOTDIVIDER = HDM_FIRST+19
+    HDM_SETBITMAPMARGIN = HDM_FIRST+20
+    HDM_GETBITMAPMARGIN = HDM_FIRST+21
+    HDM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT
+    HDM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT
+    HDM_SETFILTERCHANGETIMEOUT = HDM_FIRST+22
+    HDM_EDITFILTER = HDM_FIRST+23
+    HDM_CLEARFILTER = HDM_FIRST+24
+    
+    HDN_FIRST = -300
+    HDN_ITEMCHANGINGA = HDN_FIRST-0
+    HDN_ITEMCHANGINGW = HDN_FIRST-20
+    HDN_ITEMCHANGEDA = HDN_FIRST-1
+    HDN_ITEMCHANGEDW = HDN_FIRST-21
+    HDN_ITEMCLICKA = HDN_FIRST-2
+    HDN_ITEMCLICKW = HDN_FIRST-22
+    HDN_ITEMDBLCLICKA = HDN_FIRST-3
+    HDN_ITEMDBLCLICKW = HDN_FIRST-23
+    HDN_DIVIDERDBLCLICKA = HDN_FIRST-5
+    HDN_DIVIDERDBLCLICKW = HDN_FIRST-25
+    HDN_BEGINTRACKA = HDN_FIRST-6
+    HDN_BEGINTRACKW = HDN_FIRST-26
+    HDN_ENDTRACKA = HDN_FIRST-7
+    HDN_ENDTRACKW = HDN_FIRST-27
+    HDN_TRACKA = HDN_FIRST-8
+    HDN_TRACKW = HDN_FIRST-28
+    HDN_GETDISPINFOA = HDN_FIRST-9
+    HDN_GETDISPINFOW = HDN_FIRST-29
+    HDN_BEGINDRAG = HDN_FIRST-10
+    HDN_ENDDRAG = HDN_FIRST-11
+    HDN_FILTERCHANGE = HDN_FIRST-12
+    HDN_FILTERBTNCLICK = HDN_FIRST-13
+    
+    if UNICODE
+      HDN_ITEMCHANGING = HDN_ITEMCHANGINGW
+      HDN_ITEMCHANGED = HDN_ITEMCHANGEDW
+      HDN_ITEMCLICK = HDN_ITEMCLICKW
+      HDN_ITEMDBLCLICK = HDN_ITEMDBLCLICKW
+      HDN_DIVIDERDBLCLICK = HDN_DIVIDERDBLCLICKW
+      HDN_BEGINTRACK = HDN_BEGINTRACKW
+      HDN_ENDTRACK = HDN_ENDTRACKW
+      HDN_TRACK = HDN_TRACKW
+      HDN_GETDISPINFO = HDN_GETDISPINFOW
+    else
+      HDN_ITEMCHANGING = HDN_ITEMCHANGINGA
+      HDN_ITEMCHANGED = HDN_ITEMCHANGEDA
+      HDN_ITEMCLICK = HDN_ITEMCLICKA
+      HDN_ITEMDBLCLICK = HDN_ITEMDBLCLICKA
+      HDN_DIVIDERDBLCLICK = HDN_DIVIDERDBLCLICKA
+      HDN_BEGINTRACK = HDN_BEGINTRACKA
+      HDN_ENDTRACK = HDN_ENDTRACKA
+      HDN_TRACK = HDN_TRACKA
+      HDN_GETDISPINFO = HDN_GETDISPINFOA
+    end
+  end
+  
+  # A window that is usually positioned above columns of text or numbers like a Listview's one.
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Header < WinControl
+    include ModCommCtrl
+    include RC
+    
+    HDTEXTFILTER = API.defstruct "
+      LPSTR pszText;
+      INT cchTextMax;"
+    
+    HDITEM = API.defstruct "
+      UINT mask;
+      int cxy;
+      LPTSTR pszText;
+      HBITMAP hbm;
+      int cchTextMax;
+      int fmt;
+      LPARAM lParam;
+      int iImage;
+      int iOrder;
+      UINT type;
+      void* pvFilter;"
+    
+    HD_LAYOUT = API.defstruct  "
+      RECT *prc;
+      WINDOWPOS *pwpos;"
+    
+    HD_HITTESTINFO = API.defstruct "
+      POINT pt;
+      UINT flags;
+      int iItem;"
+    
+    NMHEADER = API.defstruct "
+      NMHDR hdr;
+      int iItem;
+      int iButton;
+      HDITEM *pitem;"
+    
+    HeaderFormats = {
+      :left => HDF_LEFT,
+      :right => HDF_RIGHT,
+      :center => HDF_CENTER,
+      :justifymask => HDF_JUSTIFYMASK,
+      :rtlreading => HDF_RTLREADING,
+      :ownerdraw => HDF_OWNERDRAW,
+      :string => HDF_STRING,
+      :bitmap => HDF_BITMAP,
+      :bitmap_on_right => HDF_BITMAP_ON_RIGHT,
+      :image => HDF_IMAGE,
+      :sortup => HDF_SORTUP,
+      :sortdown => HDF_SORTDOWN,
+      :checkbox => HDF_CHECKBOX,
+      :checked => HDF_CHECKED,
+      :fixedwidth => HDF_FIXEDWIDTH,
+      :splitbutton => HDF_SPLITBUTTON
+    }
+    
+    WinStyles= {
+      :horz => HDS_HORZ,
+      :buttons => HDS_BUTTONS,
+      :hottrack => HDS_HOTTRACK,
+      :hidden => HDS_HIDDEN,
+      :dragdrop => HDS_DRAGDROP,
+      :fulldrag => HDS_FULLDRAG,
+      :filterbar => HDS_FILTERBAR,
+      :flat => HDS_FLAT,
+      :checkboxes => HDS_CHECKBOXES,
+      :nosizing => HDS_NOSIZING,
+      :overflow => HDS_OVERFLOW
+    }
+    
+    PreDefinedEvents = {
+      :begindrag => [WM_NOTIFY, HDN_BEGINDRAG, 'xs', NMHEADER],
+      :enddrag => [WM_NOTIFY, HDN_ENDDRAG, 'xs', NMHEADER],
+      :filterchange => [WM_NOTIFY, HDN_FILTERCHANGE, 'xs', NMHEADER],
+      :filterbtnclick => [WM_NOTIFY, HDN_FILTERBTNCLICK, 'xs', NMHEADER],
+      :itemchanging => [WM_NOTIFY, HDN_ITEMCHANGING, 'xs', NMHEADER],
+      :itemchanged => [WM_NOTIFY, HDN_ITEMCHANGED, 'xs', NMHEADER],
+      :itemclick => [WM_NOTIFY, HDN_ITEMCLICK, 'xs', NMHEADER],
+      :itemdblclick => [WM_NOTIFY, HDN_ITEMDBLCLICK, 'xs', NMHEADER],
+      :dividerdblclick => [WM_NOTIFY, HDN_DIVIDERDBLCLICK, 'xs', NMHEADER],
+      :begintrack => [WM_NOTIFY, HDN_BEGINTRACK, 'xs', NMHEADER],
+      :endtrack => [WM_NOTIFY, HDN_ENDTRACK, 'xs', NMHEADER],
+      :track => [WM_NOTIFY, HDN_TRACK, 'xs', NMHEADER],
+      :getdispinfo => [WM_NOTIFY, HDN_GETDISPINFO, 'xs', NMHEADER]
+    }
+    
+    # ( Nothing )
+    DefaultEvents = []
+    
+    class Item # Wrapper of HDITEM and index
+      include RC
+      
+      ItemFormats = {
+        :left => HDF_LEFT,
+        :right => HDF_RIGHT,
+        :center => HDF_CENTER,
+        :justifymask => HDF_JUSTIFYMASK,
+        :rtlreading => HDF_RTLREADING,
+        :ownerdraw => HDF_OWNERDRAW,
+        :string => HDF_STRING,
+        :bitmap => HDF_BITMAP,
+        :bitmap_on_right => HDF_BITMAP_ON_RIGHT,
+        :image => HDF_IMAGE,
+        :sortup => HDF_SORTUP,
+        :sortdown => HDF_SORTDOWN,
+        :checkbox => HDF_CHECKBOX,
+        :checked => HDF_CHECKED,
+        :fixedwidth => HDF_FIXEDWIDTH,
+        :splitbutton => HDF_SPLITBUTTON
+      }
+      
+      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.empty?
+          @hditem = HDITEM.new
+          return # hold only index
+        end
+        fmt = 0
+        while args.last.is_a?(Symbol)
+          fmt |= ItemFormats[args.pop].to_i
+        end
+        str, cxy, iimage = args
+        @hditem = HDITEM[HDI_TEXT | HDI_FORMAT | HDI_WIDTH | HDI_IMAGE*(iimage ? 1 : 0),
+                   cxy.to_i, str.to_s, 0, str.size, fmt]
+        hditem.iImage = iimage.to_i
+      end
+      
+      def owner=(win)
+        @owner = win
+      end
+      def owner()
+        @owner
+      end
+      
+      def index=(idx)
+        @index=idx
+      end
+      def index()
+        @index
+      end
+      
+      def format=(*args)
+        fmt=0
+        while args.last.is_a?(Symbol)
+          fmt |= ItemFormats[args.pop].to_i
+        end
+        fmt |= args[0] unless args.empty?
+        if @owner.alive?
+          @hditem.mask = HDI_FORMAT
+          @hditem.fmt = fmt
+          update
+        else
+          @format=fmt
+        end
+      end
+      def format()
+        if @owner.alive?
+          @hditem.mask = HDI_FORMAT
+          SendMessage(HDM_GETITEM, @index, @hditem)
+          @hditem.fmt
+        else
+          @format
+        end
+      end
+      
+      def text=(str)
+        @hditem.mask = HDI_TEXT
+        @hditem.pszText = str.to_s
+        @hditem.cchTextMax = str.size
+        @owner.SendMessage(HDM_SETITEM, @index, @hditem)
+      end
+      def text()
+        @hditem.mask = HDI_TEXT
+        buff = TCHAR[260]
+        @hditem.cchTextMax = buff.size
+        @hditem.pszText = buff
+        @owner.SendMessage(HDM_GETITEM, @index, @hditem)
+        buff.to_s
+      end
+      
+      def image=(idx)
+        @hditem.mask = HDI_IMAGE
+        @hditem.iImage = idx.to_i
+        @owner.SendMessage(HDM_SETITEM, @index, @hditem)
+      end
+      def imgage()
+        @hditem.mask = HDI_IMAGE
+        @owner.SendMessage(HDM_GETITEM, @index, @hditem)
+        @hditem.iImage
+      end
+      
+      def data=(dt)
+        @hditem.mask = HDI_LPARAM
+        @owner.SendMessage(HDM_GETITEM, @index, @hditem)
+        lparam = @hditem.lParam
+        if (lparam&1)==0 && lparam>NilID
+          data = ObjectSpace._id2ref(lparam)
+          if n = @owner._ar_data.index(data)
+            @owner._ar_data.delete_at(n)
+          end
+        end
+        @hditem.lParam = dt.__id__
+        @owner.SendMessage(HDM_SETITEM, @index, @hditem)
+        if (lparam&1)==0 && lparam>NilID
+          @owner._ar_data << data
+        end
+      end
+      def data()
+        @hditem.mask = HDI_LPARAM
+        @owner.SendMessage(HDM_GETITEM, @index, @hditem)
+        ObjectSpace._id2ref(@hditem.lParam)
+      end
+      
+      def hditem()
+        @hditem
+      end
+      def update()
+        @owner.SendMessage(HDM_SETITEM, @index, @hditem)
+      end
+    end # class Item
+    
+    ###########################  Main  ###########################
+    
+    attr_reader :_ar_data
+    def initialize(*args)
+      super
+      @_classname = "SysHeader32"
+      @_acceptable_events = PreDefinedEvents.dup
+      @_ar_data = []
+      @_items = []
+    end
+    
+    #
+    def create()
+      super
+      @_items.each_with_index{|val, idx| insert_item(idx, *val)}
+      self.imagelist = @_imagelist if @_imagelist
+      @_items = @_imagelist = nil
+    end
+    
+    # Inserts item at specified args.<br>
+    # `formats' can be both an integer or some symbols.
+    def insert_item(index, text, width=nil, image=nil, *formats)
+      if alive?
+        fmt = formats[0].is_a?(Integer) ? formats[0] : 0
+        while formats.last.is_a?(Symbol) #; dpp args.last
+          fmt = fmt | HeaderFormats[formats.pop]
+        end
+        hditem = HDITEM[HDI_TEXT | HDI_FORMAT | HDI_WIDTH | HDI_IMAGE*(image ? 1 : 0),
+                 width.to_i, text.to_s, 0, text.size, fmt]
+        hditem.iImage = image.to_i
+        SendMessage(HDM_INSERTITEM, index.to_i, hditem)
+      else
+        @_items[index] = text, width, image, *formats
+      end
+    end
+    
+    
+    # Deletes an item at specified index from this heder control.
+    def delete_item(index)
+      alive? ? SendMessage(HDM_DELETEITEM, index.to_i, 0) : @_items.delete_at(index)
+    end
+    
+    # Retreives a Header::Item at specified index.
+    def fetch(index)
+      alive? ? Item.new(self, index) : @_items.fetch(index)
+    end
+    
+    # Assignes an imagelist to this Header control.
+    def imagelist=(il)
+      if alive?
+        SendMessage(HDM_SETIMAGELIST, 0, il._himagelist)
+      else
+        @_imagelist = il
+      end
+    end
+    
+    # Gets an imagelist assigned to this Header control.
+    def imagelist()
+      alive? ? APP.hrsc2ref(SendMessage(HDM_GETIMAGELIST, 0, 0)) : @_imagelist
+    end
+    
+    # Not implemented yet
+    def data()
+    end
+    # Not implemented yet
+    def data=(arg)
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st = WinStyles[arg]
+        self.style |= st
+        return nil
+      end
+      super
+    end
+  end
+end
+
+module WR
+  class MyForm < Form
+    def initialize()
+      resize 400, 300
+      _<< Imagelist.loadb64(:iml,  "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=")
+      
+      _<< Header[:hdr1, "header1", 10, 10, 360, 20, :buttons, :dragdrop, :checkboxes, :imagelist=>_.iml]
+      _.hdr1.accept_events :itemclick
+      _.hdr1.insert_item(0, "text1", 200, 0, :center)
+      _.hdr1.insert_item(1, "text2", 100, 1)
+    end
+    
+    def created()
+#      _.hdr1.imagelist = @iml
+    end
+    
+    def hdr1_itemclick(arg)
+      idx = arg.iItem
+      _.hdr1.fetch(idx).text += "#{idx}"
+      _.hdr1.fetch(idx).data = "#{idx}"
+      dpp _.hdr1.fetch(idx).data
+      _.hdr1.fetch(idx).image = 2
+    end
+    self.start
+  end
+end if __FILE__==$0