wrb 2.0.0

data/lib/wrb/components/hotkeyctrl.rb

@@ -0,0 +1,72 @@
+require 'wrb'
+
+module WR
+  module RC
+    HOTKEYF_SHIFT   = 0x1
+    HOTKEYF_CONTROL = 0x2
+    HOTKEYF_ALT     = 0x4
+    HOTKEYF_EXT     = 0x8
+    
+    HKCOMB_NONE = 0x1
+    HKCOMB_S    = 0x2
+    HKCOMB_C    = 0x4
+    HKCOMB_A    = 0x8
+    HKCOMB_SC   = 0x10
+    HKCOMB_SA   = 0x20
+    HKCOMB_CA   = 0x40
+    HKCOMB_SCA  = 0x80
+
+    HKM_SETHOTKEY = WM_USER+1
+    HKM_GETHOTKEY = WM_USER+2
+    HKM_SETRULES  = WM_USER+3
+  end
+  
+  PreDefinedEvents = {}
+  
+  # A window that enables the user to enter a combination of keystrokes to be used as a hot key.
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Hotkeyctrl < WinControl
+    def initialize(*args)
+      super
+      @_classname = "msctls_hotkey32"
+      @_acceptable_events = PreDefinedEvents.dup
+    end
+    
+    # Gets the virtual key code and modifier flags of a hot key from this Hotkeyctrl.<br>
+    # Returns an array of [modifier, keycode].
+    def get()
+      r = SendMessage(HKM_GETHOTKEY, 0, 0)
+      keycode = r & 0xff
+      modifier = (r >> 8) & 0xff
+      [modifier, keycode]
+    end
+    
+    # Sets the hot key combination for this Hotkeyctrl.
+    def set(modifier, keycode)
+      hk = (modifier << 8 + keycode) & 0xffff
+      SendMessage(HKM_SETHOTKEY, hk, 0)
+    end
+    
+    # Defines the invalid combinations and the default modifier combination for this Hotkeyctrl. 
+    def setrules(combination, modifier)
+      SendMessage(HKM_SETRULES, combination, modifier)
+    end
+  end
+end
+
+module WR
+  class MyForm < Form
+    def initialize()
+      resize 280, 210
+      inheritfont Font['Meiryo', 20]
+      _<< Hotkeyctrl[:hk1, "", 10, 10, 200, 24]
+    end
+    
+    def created()
+      _.hk1.SetFocus
+    end
+    
+    self.start
+  end
+end if __FILE__==$0

data/lib/wrb/components/icon.rb

@@ -0,0 +1,109 @@
+require 'wrb'
+require 'wrb/lzss'
+
+module WR
+  module RC
+    OIC_SAMPLE = 32512
+    OIC_HAND = 32513
+    OIC_QUES = 32514
+    OIC_BANG = 32515
+    OIC_NOTE = 32516
+    OIC_WINLOGO = 32517
+    OIC_WARNING = OIC_BANG
+    OIC_ERROR = OIC_HAND
+    OIC_INFORMATION = OIC_NOTE
+  end
+  
+  # A picture that consists of a bitmap image combined with a mask to create transparent areas in the picture. 
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/menurc/resources">
+  # Menus and Other Resources section of Microsft Docs</a>
+  class Icon < RWin::Icon
+=begin
+following methods are defined at the super class.
+:singleton_methods
+  self.new(bmmask, bmcolor)
+    Creates a new icon with the specified arguments.
+  self._load(str)
+    Loads from a string. Give a String as <i>str</i>.
+  self.fromfile()
+    Loads from a icon file. Give a String as <i>path</i> to icon file.
+  self.fromresource()
+    Creates a new icon from the resources of current application.<br>
+    Give an integer for index of icon resources.
+
+:instance_methods
+  _dump()
+    Dumps self to a string for Marshal object.
+  _hicon()
+    Retrieves a handle of self. Returns 32/64 bits integer as it.
+  dispose()
+    Disposes self from resource table and sets hicon to 0. Returns true/false.
+  to_bmps()
+    Creates new bitmap data from self. Returns an array of [bmmask, bmcolor, xHotspot, yHotspot].
+
+=end
+    
+    include RC
+    ICONINFO = API.defstruct  "
+      BOOL fIcon;
+      DWORD xHotspot;
+      DWORD yHotspot;
+      HBITMAP hbmMask;
+      HBITMAP hbmColor;"
+    
+    attr_accessor :name
+    
+    # Creates a new icon with the specified arguments.
+    def self.[](*args)
+      self.new(*args)
+    end
+    
+#    def self.fromfile(*args)
+#      nm = args.shift if args[0].is_a?(Symbol)
+#      obj = super
+#      obj.name = nm
+#      obj
+#    end
+    
+    # Loads new bitmap object from a LZSS compressd string.
+    # Give a String as <i>str</i>.
+    def self.loadb64(str)
+      self._load(LZSS.expand(str.unpack('m')[0]))
+    end
+    
+    # Dumps self to a base64 encoded string with LZSS compression.
+    def dumpb64()
+      [LZSS.compress(self._dump)].pack('m')
+    end
+  end
+end
+
+module WR
+  class MyForm < Form
+    def initialize()
+      resize 210, 210
+      bmp_xor = Bitmap.loadb64  "IRNGwMAAAAAAAAAG0AcBRALAQAAAAAQQEwAIADEBk4ECQJjgWG/3+/3+/3+/3+/3+/3+/3+/3+/3+/4CfwJfgb/BJ+C38G34P/wkfhR/C1+GP8Nn4dfw/Vfj0cD5dDAezcUD0aKAeLFMDuXJAdauEERqXq9X+ej0/wAAH+AAA/wAAH+AAA/wBAMiKJMEv4JYOhRAB0KIAOhRAB0KIAQDGi9TBd+DYYPB7/JpNf4fD8HsYSxwS/gu/BvOO1MLr4ZgFwuP9BoN/sBgP9JJJ/nM5v+FL8Lf4YHyQDiNfBdBcLh/qFQv8TCZ/iYTQCRiC/EX+JB8GDwQCH+ZDI/1SqYi6RlTAYDhgfF0+MB8v9I7UwXQhbgLhdHvqDqEcX46/x4PiQZF0CF0EF3JLAThwkS/I3+SB8YCYuhyLjlR/KF+Uv8qD48DSiwkXBHRCYNgRBjsoiA/H5JA+Xp8wD4wDy6AlFhIuCbNIYCDlmeA+XzSmGaL81f5sH04DnAhNFCXQEGCQOBXvOZBzKEBP1+wYPnY/PA+p48+EKDoTRQl4gDAQ8ggC3bPzNvpwFT/AfD4f8GMKAv0F/oQfWg+tl9cT66316Pr9fYM+w99jD7IX2VPqA/UK+pL9Tf6oHx4GqyfVqysL9Zf60HwYPrm/CE+vj9gP7vU2IfsVfZF+yv9mD4kH2jfiifax+2H8MD7c/2ipuC/cX+5B8eD7pvyBPu4/eD+MB96f4YH3y/vu/eA/AD+Ar8Ev4N/wgfnAPGD+HaZkn4kfxR/oa/RZmTZtIh4oPx7/kA/UB+pL8sH5q8ywflyDW1+uz9f37EPtvDog/RBe0b9rH7av2+fuO/dB+7L94n71v30fv6M"
+      
+      bmp_and = Bitmap.loadb64 "IRNGwMAAAAAAAAAG0AcBRALAQAAAAAQQEwAIADEBk4ECQJjgWG/3+/3+/3+/3+/3+/3+/3+/3+/3+/4CfwJfgb/BJ+C38G34P/wkfhR/C1+GP8Nn4dfw/fiH/EhWJrIAAEA6oonxVsgefGpCL1MF34N/xqjhD/CZ+O18L34Z/w4fh5/I6+Et8Sn4nfxTfiv/Eg+MH8ZX40/xufl9fHd+Pf8gH5CfzWvjbfJJ+QacmH5OfzuvkLfKp+DB8s35b/yoPmB/REmZD8zP6PXy1vm0/L6+cb85/5sHzw/hgfPn+fz9Tr6Dv1ZPog/RT+s19aD62X1xPrrfXo+v19gz7D32MPshfZU+p79oT6sP1c/tdfUW+tT9Tr65v13/rQfYD+YB9if7HP3evsu/ek+0D9pP77X2Nvtk/Za+3b9v/7YH3I/oQfdH+6z+Jr7vv4xPvQ/ez/H191b79P3evwG/gf+/B+EP6oH4Z/w8/m6/ON+dgM87YOvxm/jf/Q1+iz9H35J/yc/p6/UN+pj9VX6vGzOflgzXN+vj9hX7HP2XftA/al+2T9u37iP3Nfus/d9+9D98X79J"
+      self.icon = ico = Icon.fromresource(1)
+#      @bmp_cross = Bitmap.fromfile('../resources/cross.bmp')
+#      @bmp_cross_mask = Bitmap.fromfile('../resources/cross_mask.bmp')
+#      ico = Icon[@bmp_cross_mask, @bmp_cross]
+#      self.icon = Icon[bmp_and, bmp_xor]
+      s = ico._dump
+#      open('../../libtests/closs.ico', 'wb'){|f| f.write(s)}
+#      dpp Icon._load(s)
+      @bmclr, @bmmask, fcursor = ico.to_bmps
+      dpp @bmclr, @bmmask, fcursor
+      accept_events :paint
+    end
+    
+    def self_paint(cv)
+      cv.BitBlt(0, 0, @bmclr)
+      cv.BitBlt(32, 0, @bmmask)
+#      cv.BitBlt(0, 32, @bmp_cross_mask)
+    end
+    
+    self.start
+  end      
+end if __FILE__ == $0

data/lib/wrb/components/imagelist.rb

@@ -0,0 +1,396 @@
+require 'wrb/lzss'
+require 'wrb/commctrlconst'
+module WR
+  module RC
+    ILC_MASK          = 0x1
+    ILC_COLOR         = 0x0
+    ILC_COLORDDB      = 0xfe
+    ILC_COLOR4        = 0x4
+    ILC_COLOR8        = 0x8
+    ILC_COLOR16       = 0x10
+    ILC_COLOR24       = 0x18
+    ILC_COLOR32       = 0x20
+    ILC_PALETTE       = 0x800
+    ILC_MIRROR        = 0x2000
+    ILC_PERITEMMIRROR = 0x8000
+    
+    ILD_NORMAL        = 0x0
+    ILD_TRANSPARENT   = 0x1
+    ILD_MASK          = 0x10
+    ILD_IMAGE         = 0x20
+    ILD_ROP           = 0x40
+    ILD_BLEND25       = 0x2
+    ILD_BLEND50       = 0x4
+    ILD_OVERLAYMASK   = 0xf00
+    def self.INDEXTOOVERLAYMASK(i) ((i) << 8); end
+    ILD_PRESERVEALPHA = 0x1000
+    ILD_SCALE         = 0x2000
+    ILD_DPISCALE      = 0x4000
+    ILD_SELECTED      = ILD_BLEND50
+    ILD_FOCUS         = ILD_BLEND25
+    ILD_BLEND         = ILD_BLEND50
+    
+    CLR_HILIGHT  = CLR_DEFAULT = -0x01000000
+    
+    ILS_NORMAL   = 0x0
+    ILS_GLOW     = 0x1
+    ILS_SHADOW   = 0x2
+    ILS_SATURATE = 0x4
+    ILS_ALPHA    = 0x8
+  end
+  
+  # A collection of images of the same size, each of which can be referred to by its 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 Imagelist < RWin::Imagelist
+    
+=begin
+  self.new(name=nil, width, height, flags, initial, glow)
+    Creates new image list with arguments.<br>
+    Give <i>true/:masked</i> as <i>flags</i> for using mask image.<br>
+    `name' is for adding on the toplevel window, give a Symbol if needed. 
+
+following methods are defined in the super class.
+:singleton_methods
+  self._load(str)
+    Loads from a string. Give a String as <i>str</i>.
+
+:instance_methods
+  _dump()
+    Dumps self to a string for Marshal object.
+  _himagelist()
+    Retrieves an imagelist handle of self. Returns 32/64 bits integer as it.
+  add(color, mask=nil)
+    Adds an image or images to this image list. Give a Bitmap object as each <i>color</i> and <i>mask</i>.
+  addicon(icon)
+    Adds an image from specified icon. Give an Icon object as <i>icon</i>.
+  addmasked(bitmap, maskcolor=nil)
+    Adds an image from specified bitmap and mask-color.<br>
+    If omitted maskcolor, color of (0, 0) pixcel in specified bitmap will be used as mask-color.
+  bkcolor()
+    Gets the background color for this image list.
+  bkcolor=(clr)
+    Sets the background color for this image list. Give a RGB integer as <i>clr</i>.
+  clear()
+    Deletes all images in this image list.
+  delete()
+    Destroys this image list. and remove from resource list.
+  dispose()
+    Alias of delete.
+  icon(index)
+    Retreives Icon object from specified index. Returns RWin::Icon.
+  iconsize()
+    Retrieves the dimensions of images in this image list. 
+    Retruns array of two integers as <i>[w, h]</i>.
+  imageinfo()
+    Retreives a CStruct object. Wrap this with <i>IMAGEINFO</i> structure to handle by names.
+  merge(imagelist)
+    Merges specified <i>imagelist</i> into this.
+  remove(index)
+    Rmoves an image at specified <i>index</i> from this image list.
+  replace(index, color, mask=nil)
+    Replaces to a new image at specified <i>index</i> in this image list.
+  replaceicon(index, icon)
+    Replaces to a new image at specified <i>index</i> in this image list using an <i>icon</i>.
+  resize(newsize)
+    Resizes size of this imagelist. (not icon size)
+  size()
+    Retreives count of images in this imagelist. 
+
+=end
+    
+    include RC
+    
+    # Wrapper of a specified index of an Imagelist.
+    class Item 
+      attr_reader :index
+      
+      include RC
+      def initialize(onr, idx)
+        @owner = onr
+        @index = idx
+      end
+      
+      def 
+        imageinfo() @owner.imageinfo(@index)
+      end
+      
+      def icon() 
+        @owner.icon(@index)
+      end
+      
+      def delete()
+        @owner.delete!(@index)
+      end
+      
+      def replace(bmp, mask=nil)
+        @owner.replace(@index, bmp, mask)
+      end
+      
+      def replaceicon(ico)
+        @owner.replaceicon(@index, ico)
+      end
+      
+      def draw(cv, x, y)
+        cv.DrawImagelist(@owner, @index, x, y)
+      end
+    end
+    
+    # Creates new image list with arguments.<br>
+    # Arguments are same as `self.create(...)'.
+    def self.[](*args) self.new(*args); end
+    
+    attr_accessor :name
+    attr_reader :downlevel
+    alias count size
+    
+    def initialize(*args)
+      @name = args.shift if args[0].is_a?(Symbol)
+      args[2] = ILC_MASK | ILC_COLOR24  if args[2]==:masked || args[2]==true
+      @_creation_flags = args[2].to_i
+      super *args
+    end
+    
+    # Replaces to a new image at specified <i>index</i> in this image list using a Bitmap or an Icon.<br>
+    # If Bitmap given, will be masked automaticaly by using color of (0, 0) pixcel in it.
+    def replace(idx, obj, mask=nil)
+      if obj.is_a?(RWin::Bitmap)
+        mask ||= obj.to_maskimage
+        super(idx, obj, mask)
+      elsif obj.is_a?(RWin::Icon)
+        replaceicon(idx, obj)
+      else
+        raise ArgumentError("Argument is neither Bitmap nor Icon, but got #{obj}")
+      end
+    end
+    
+    # Adds a specified bitmap or imagelist at last.
+    # Both a Bitmap and Imagelist can be given as <i>arg</i>.
+    def <<(arg)
+      if @_creation_flags & ILC_MASK == 0 || (arg.is_a?(Array) && arg[1].is_a?(RWin::Bitmap))
+        add(*arg)
+      elsif arg.is_a?(RWin::Imagelist)
+        arg.each{|i| self.addicon i.icon}
+      else
+        bmp, maskcolor = arg
+        bmp = bmp.to_24 if bmp.depth > 24
+        maskcolor = bmp.GetPixel(0, 0) unless maskcolor
+        addmasked(bmp, maskcolor)
+      end
+    end
+    
+    # Retreives whether this imagelist was masked or not.
+    def masked()
+      @_creation_flags & ILC_MASK != 0
+    end
+    alias masked? masked
+    
+    # Retreives information of item at specified index. Returns Imagelist::Item.
+    def [](index)
+      if index >= self.size
+        raise ArgumentError, "Too big index:#{index} (num of images is #{self.size}).", caller(1)
+      end
+      Item.new(self, index)
+    end
+    
+    # each(){|item| ... }
+    # Performs the block for each <i>item</i> in this imagelist as a block parameter.
+    def each()
+      self.size.times{|i| yield Item.new(self, i)}
+    end
+    
+    # Sets whether created this by commctl32.dll version 5 or not.
+    def downlevel=(f)
+      case f
+      when true, false, nil
+        @downlevel = f
+      else
+        raise ArgumentError, "Argument must be true, false or nil."
+      end
+    end
+    
+    # Loads new image list object from a LZSS compressd string.<br>
+    # Give a String as <i>str</i>.
+    def self.loadb64(name=nil, str)
+      s = LZSS.expand(str.unpack('m')[0])
+      v = s[0, 4]
+      case v
+      when "IL\x01\x01"
+        downlevel = true
+      when "IL \x06"
+       raise ArgumentError, "COMCTL VERSION mismatch(need 6)." if APP::COMCTL_MAJOR_VERSION!=6
+      else
+        raise ArgumentError, "Not Imagelist stream."
+      end
+      r = self._load(LZSS.expand(str.unpack('m')[0]))
+      r.name = name if name
+      r.downlevel = downlevel
+      r
+    end
+    
+    # Loads from a image list file.<br>
+    # Give a String as <i>path</i> to image list file.
+    def self.fromfile(name=nil, path)
+      v = nil
+      s = open(path, 'rb'){|f| v=f.read(4); f.rewind; f.read}
+      case v
+      when "IL\x01\x01"
+        downlevel = true
+      when "IL \x06"
+       raise ArgumentError, "COMCTL VERSION mismatch(need 6)." if APP::COMCTL_MAJOR_VERSION!=6
+      else
+        raise ArgumentError, "Not Imagelist file."
+      end
+      r = self._load(s)
+      r.downlevel = downlevel
+      r.name = name if name
+      r
+    end
+    
+    # Retreives whether the file was created by commctl32.dll version 5.
+    # If retruns true the image list file was created by old versioned commctl32.dll.
+    def self.file_is_downcase?(path)
+      v = open(path, 'rb'){|f| f.read(4)}
+      case v
+      when "IL\x01\x01"
+        true
+      when "IL \x06"
+        false
+      else
+        raise "Not Imagelist file."
+      end
+    end
+    
+    # Creates a new imagelist duplicated this image list.
+    def dup()
+      obj = super()
+      obj.instance_eval "@_creation_flags=#{@_creation_flags}" if @_creation_flags
+      obj.instance_eval "@downlevel=#{@downlevel}" if @downlevel
+      obj
+    end
+    
+    # Saves to specified path as imagelist file.<br>
+    # If given true as downlevel, saves forced as a commctl32.dll version 5 file.
+    def savefile(path, downlevel=nil) # The path shuld be an absolute path.
+      downlevel = @downlevel if downlevel.nil?
+      open(path, 'wb'){|f| f.write(self._dump(downlevel))}
+    end
+    
+    # Dumps self to a LZSS compressed and base64 encoded string.
+    def dumpb64(downlevel=nil)
+      downlevel = @downlevel if downlevel.nil?
+      [LZSS.compress(self._dump(downlevel))].pack('m')
+    end
+  end # class Imagelist
+end
+
+__END__
+module WR
+  @im = Imagelist.loadb64 "
+JJMAIBAoAAwAAgACAACAAf7/f7/AoQgDDAKEhE07AAAAAAQBAgECKIBgECAg
+AggKAAYGAQGyAkCFAAAAAAAAAIBsIAAABAQPQQCAgDnANCAWAAYDAYAAQEAk
+QA/wAAH/BdB/v+AOcBAIBYQgBgo/BjxEIhEIhEQXBg9/CuJEDMZjMZjiEx8K
+pUWg4EIwQfhlKj1xBB+HNKLfcEH4g0o9friFGURr4ppot9vt9vuGB8Ulkev1
++v1/Dg+LSyLfcQD4w0ghERtRiRfGqsERQvjfVGlKO78hBIMhx/PkHfIg+Rl8
+kT5K3yaHjviMxgAABIIVESEEkMKP4oAwIBkEJIQWQwo7jADBACQQqLkIJIYW
+CAsghUfIQSQwsEBpBCSEFkMLBAaQQkhBZDCwQHkEHIQBMpuZeEhgH1IYGHAs
+ghZCAJlPzTwkMAqlfAoKYAcghZCAJlMIBIABFvtFKpVTdwjOKCJBBAAASEAT
+KZACZgEAqlUqlBOw+fGCZTKZTKQn1hAf+gAYJgQjAgFVT7/oRFBAWDF9CBUz
+RKEFQgvogLB/EAACFEJCJo+o7JAIGjtYBpIGAaO30qRpfBTCClmgfpdoD6Ya
+AemWgDpppBE2BgofggWj3jUDN/vmAQh1gIIj4DCUxhpknUsKp4oAD4AD4AD8
+AYgeAAeAAfAQADgADgADwGAAYAAYAAcCAACAACAADAoCrIcDB4HThcAB9Hv9
+Hv9GDNAB+s0L8AL8P9aIX8AH4P60hAF+AGtYTzf0Ag3u/4jX1wiA
+"
+#  iml = Imagelist.new(16, 16, :masked)
+#  
+##  iml << Bitmap.fromfile('../resources/fileimg.bmp')
+#  iml.savefile('../resources/fileimg5.iml')
+#  dpp open('../resources/fileimg5.iml', 'rb'){|f| f.read(4)}
+#  dpp open('../resources/fileimg6.iml', 'rb'){|f| f.read(4)}
+#  dpp Imagelist.fromfile('../resources/fileimg.iml').size
+  
+end if $0 == __FILE__
+__END__
+
+module WR
+  class Form1 < Form
+    Canvas
+    def initialize
+      resize(640, 480)
+      _<< Button[:btdump, "Dump", 0, 0, 80, 24, :margin=>[nil, nil, 80, nil]]
+      _<< Button[:btload, "Load", 0, 0, 80, 24, :margin=>[nil, nil, 0, nil]]
+      register_event WM_PAINT, "self_paint", "c"
+      @iml = _<< Imagelist.new(:image16, 16, 16, ILC_MASK | ILC_COLOR32)
+      bmp1 = Bitmap.loadb64(
+"IRNGwDAAAAAAAAAG0AcBRALAIAAAAAIQEwAIADEBk4ECQJjgWGwGAwGAwGAwGAwGAwGAwGAwGAwGAwICfwJeQCAQCAQCAQCAQCAQCAQCAQCAQEBHYK+QMAf7/f7/f7/f7/f7/f7/f7/gHVBOCBh8DD4ITQMPgwfBvmDB8JD4GHxGphgfBg+Bh8PP4gpw8PiQfDA+Eh8VP4MHx4DjAfGPCOLMbD42HxxTjW/JDCPB8GBpMJgB/v8AP9/ybWkgfJSOBa0pf5VPwLZguzLT+XLMIdoSBg==")
+      bmp2 = Bitmap.loadb64(
+"IRNGwDAAAAAAAAAG0AcBRALAIAAAAAIQEwAIADEBk4ECQJjgWGwGAwGAwGAwGAwGAwGAwGAwGAwGAwICfwJfYDAQCAQCAQCAQCAQCAQCAQCAQCAQEBHYLWQMAf7/f7/f7/f7/f7/f7/f7/gHVBOCBh8DA4NOQFWgwfBg+Dk0GD4SDQYPhUBCQ+GB8M+YYHwYPiZHDA+MGcSD4MHxrZhgfBg+Bh8Xf45DRsPjAfHFONb8kYI8HxRzjtfDwaSH8gf5UHysvlifLW+XR8vowA==")
+      bmp3 = Bitmap.loadb64(
+"IRNGwDAAAAAAAAAG0AcBRALAIAAAAAIQEwAIADEBk4ECQJjgWGwGAwGAwGAwIA5IBAIBAIBAIBAIBAIBAIBAIBAICAjsC2YHIQMAf7/f7/f7/f7/f7/f7/f7/gHVBOCCv8DA4NOQFWhDtAnaDB8HJoMEwMMgwfCoCBh8MD4Z8wYPh4NDA+DB8HI4kHwwPgrzEg+DrMSD4wHxxZiofGA+OKca1o68x4PijnAtmBhkkP4FuSN/jo/Jn+U18Ff5TuMBgMBgQE/gS8A=")
+      bmp4 = Bitmap.loadb64(
+"IRNGwDAAAAAAAAAG0AcBRALAIAAAAAIQEwAIADEBk4ECQJjgWGwGAwGAwGA/3+/4BJsBgMBgMBgMBgMBgMBgMCAn8CVUAgEBAz+CF8FRoGAQM/g5fAwyDN8KX4YBwYDgzfDV+Bh8MwwAgEBEC+Eh8MkwA/3+AH+/4GfxRJhJtAtSBn8XLoqwQLWgGPCZ+NWsC2o/ZwmfjsXCNeRWUGb5A/wk5h//I3+SkEDP4mRyZPk7ND5+LKEpT5U0xWalg/LR9gMCMY0u5g==")
+      bmp5 = Bitmap.loadb64(
+"IRNGwDAAAAAAAAAG0AcBRALAIAAAAAIQEwAIADEBk4ECQJjgWGwGAwGAwGAAAAgAAAEAAAAgAAAEAAAAgAAAEAAICXQKjgWmgEAgEAgEAgEAgEAgEAgEAgEAgEAgICfQVAgutAwB/v9/v9/v9/v9/v9/v9/v9/v+AhcFEIGHwMwg0/BIOBh8GD4OUwYPgkNDMyDB8R0IYHwwPh4fDA+IQ0PD4kHwwPiofGJ+JB8MD4xnxgPiQfH1OMB8SD49nx4PkhnKLmV6cltpIDSoLAEkmZeBSu0lQMwGAwGBANiXd8CqQA==")
+      @iml << bmp1
+      @iml << bmp2
+      @iml << bmp3
+      @iml << bmp4
+      @iml << bmp5
+      
+#      @im = Imagelist.fromfile('../../libtests/imagetest.iml')
+      @im = Imagelist.loadb64 "JJMAIBAoAAwAAgACAACAAf7/f7/AsAYoBQkImnYAAAAACAIEAgRRAMAgQEAEEBQADAwCA2QEgQoAAAAAAAABANhAAAAICB6CAQEAc4BoQCwADAYDAACAgEiAH+AAA/4LoP9/wBzgIBALCEAMFH4MeIhEIhEIiC4MHv4VxIgZjMZjMcQmPhVKi0HAhGCD8MpUeuIIPw5pRb7gg/EGlHr9cQoyiNfFNNFvt9vt9wwPiksj1+v1+v4cHxaWRb7iAfGGkEIiNqMSL41VgiKF8b6o0pR3fkIJBkOP58g75EHyMvkifJW+TQ8d8RmMAAAJBCoiQgkhhR/FAGBAMghJCCyGFHcYAYIASCFRchBJDCwQFkEKj5CCSGFggNIISQgshhYIDSCEkILIYWCA8gg5CAJlNzLwkMA+pDAw4FkELIQBMp+aeEhgFUr4FBTADkELIQBMphAJAAIt9opVKqbuEZxQRIIIAACQgCZTIATMAgFUqlUoJ2Hz4wTKZTKZSE+sID/0ADBMCEYEAqqff9CIoICwYvoQKmaJQgqEF9EBYP4gAAQohIRNH1HZIBA0drANJAwDR2+lSNL4KYQUs0D9LtAfTDQD0y0AdNNIImwMFD8EC0e8agZv98wCEOsBBEfAYSmMNMk6lhVQhqjCAA+AA+AA/AGIHgAHgAHwEAA4AA4AA8BgAGAAGAAHAgAAgAAgAAwKAqyHAweB04XAAfR7/R7/RgzQAfrNC/AC/D/WiF/AB+D+DQQBfgBg4E839AIN7v8AgA=="
+      @bm = Bitmap.fromfile('../../libtests/test24bits.bmp')
+      @mm = Bitmap.fromfile('../../libtests/test24bitsmask.bmp')
+#      @im2 = Imagelist.new(16, 16, ILC_COLOR32|ILC_MASK) # << [@bm, @mm]
+#      @bmp2 = Bitmap.fromfile('E:/Users/yukio/hg/wrb/lib/libtests/img24bit.bmp')
+#      @bmpdelta = Bitmap.fromfile('E:/Users/yukio/hg/wrb/lib/libtests/imgdelta.bmp')
+#      @maskdelta =  Bitmap.fromfile('E:/Users/yukio/hg/wrb/lib/libtests/imgdeltamaskmono.bmp') 
+      @bmpdelta = Bitmap.fromfile('../../libtests/imgdelta.bmp')
+      @maskdelta =  Bitmap.fromfile('../../libtests/imgdeltamask.bmp')
+      @maskdelta2 = @bmpdelta.to_maskimage
+      
+#      @im2.add @bm, @bm.to_maskimage
+#      @im2.add @bmpdelta, @maskdelta2
+#      
+#      @iml[0].replace(@bm, @bm.to_maskimage)
+      @im[0].replace(@bm)
+#      @iml.replace(1, @bmpdelta, @maskdelta2)
+      @im.replace(1, @bmpdelta)
+    end
+    
+    def self_paint(cv)
+#      cv.SetBrush(0xff0000)
+      #      cv.Rectangle(0, 0, 300, 300)
+      @im.each_with_index{|i, idx| i.draw(cv, 10+idx*20, 10)}
+#      cv.DrawImagelist(@im, 0, 10, 10)
+#      cv.DrawImagelist(@im, 1, 30, 10)
+#      cv.DrawImagelist(@im, 2, 50, 10)
+#      cv.DrawImagelist(@im, 3, 70, 10)
+      cv.DrawIcon(@im[3].icon, 90, 10)
+      
+      cv.DrawImagelist(_.image16, 0, 10, 50)
+      cv.DrawImagelist(_.image16, 1, 30, 50)
+      cv.DrawImagelist(_.image16, 2, 50, 50)
+      cv.DrawImagelist(_.image16, 3, 70, 50)
+      cv.DrawImagelist(_.image16, 4, 90, 50)
+      
+#      cv.DrawImagelist(@im2, 0, 10, 80)
+#      cv.DrawImagelist(@im2, 1, 30, 80)
+      
+    end
+    
+    def btdump_clicked(*)
+      dpp Dir.pwd
+      @im.savefile('../../libtests/imagetest.iml')
+    end
+    
+    def btload_clicked(*)
+      @im = Imagelist.fromfile('../../libtests/imagetest.iml')
+      refresh
+    end
+    
+    self.start
+  end
+  
+end if $0 == __FILE__
+