wrb 2.0.0

data/lib/wrb/components/tooltip.rb

@@ -0,0 +1,651 @@
+require 'wrb'
+require 'wrb/commctrlconst'
+
+module WR
+  module RC
+    TTS_ALWAYSTIP = 0x1
+    TTS_NOPREFIX  = 0x2
+    TTS_NOANIMATE = 0x10
+    TTS_NOFADE    = 0x20
+    TTS_BALLOON   = 0x40
+    TTS_CLOSE     = 0x80
+
+    TTF_IDISHWND    = 0x1
+    TTF_CENTERTIP   = 0x2
+    TTF_RTLREADING  = 0x4
+    TTF_SUBCLASS    = 0x10
+    TTF_TRACK       = 0x20
+    TTF_ABSOLUTE    = 0x80
+    TTF_TRANSPARENT = 0x100
+    TTF_PARSELINKS  = 0x1000
+    TTF_DI_SETITEM  = 0x8000
+
+    TTDT_AUTOMATIC = 0
+    TTDT_RESHOW    = 1
+    TTDT_AUTOPOP   = 2
+    TTDT_INITIAL   = 3
+
+    TTI_NONE          = 0
+    TTI_INFO          = 1
+    TTI_WARNING       = 2
+    TTI_ERROR         = 3
+    TTI_INFO_LARGE    = 4
+    TTI_WARNING_LARGE = 5
+    TTI_ERROR_LARGE   = 6
+
+    TTM_ACTIVATE        = WM_USER+1
+    TTM_SETDELAYTIME    = WM_USER+3
+    TTM_ADDTOOLA        = WM_USER+4
+    TTM_ADDTOOLW        = WM_USER+50
+    TTM_DELTOOLA        = WM_USER+5
+    TTM_DELTOOLW        = WM_USER+51
+    TTM_NEWTOOLRECTA    = WM_USER+6
+    TTM_NEWTOOLRECTW    = WM_USER+52
+    TTM_RELAYEVENT      = WM_USER+7
+    TTM_GETTOOLINFOA    = WM_USER+8
+    TTM_GETTOOLINFOW    = WM_USER+53
+    TTM_SETTOOLINFOA    = WM_USER+9
+    TTM_SETTOOLINFOW    = WM_USER+54
+    TTM_HITTESTA        = WM_USER+10
+    TTM_HITTESTW        = WM_USER+55
+    TTM_GETTEXTA        = WM_USER+11
+    TTM_GETTEXTW        = WM_USER+56
+    TTM_UPDATETIPTEXTA  = WM_USER+12
+    TTM_UPDATETIPTEXTW  = WM_USER+57
+    TTM_GETTOOLCOUNT    = WM_USER+13
+    TTM_ENUMTOOLSA      = WM_USER+14
+    TTM_ENUMTOOLSW      = WM_USER+58
+    TTM_GETCURRENTTOOLA = WM_USER+15
+    TTM_GETCURRENTTOOLW = WM_USER+59
+    TTM_WINDOWFROMPOINT = WM_USER+16
+    TTM_TRACKACTIVATE   = WM_USER+17
+    TTM_TRACKPOSITION   = WM_USER+18
+    TTM_SETTIPBKCOLOR   = WM_USER+19
+    TTM_SETTIPTEXTCOLOR = WM_USER+20
+    TTM_GETDELAYTIME    = WM_USER+21
+    TTM_GETTIPBKCOLOR   = WM_USER+22
+    TTM_GETTIPTEXTCOLOR = WM_USER+23
+    TTM_SETMAXTIPWIDTH  = WM_USER+24
+    TTM_GETMAXTIPWIDTH  = WM_USER+25
+    TTM_SETMARGIN       = WM_USER+26
+    TTM_GETMARGIN       = WM_USER+27
+    TTM_POP             = WM_USER+28
+    TTM_UPDATE          = WM_USER+29
+    TTM_GETBUBBLESIZE   = WM_USER+30
+    TTM_ADJUSTRECT      = WM_USER+31
+    TTM_SETTITLEA       = WM_USER+32
+    TTM_SETTITLEW       = WM_USER+33
+    TTM_POPUP           = WM_USER+34
+    TTM_GETTITLE        = WM_USER+35
+    
+    TTM_SETWINDOWTHEME  = CCM_SETWINDOWTHEME
+    
+    if RWin::UNICODE
+      TTM_ADDTOOL        = TTM_ADDTOOLW
+      TTM_DELTOOL        = TTM_DELTOOLW
+      TTM_NEWTOOLRECT    = TTM_NEWTOOLRECTW
+      TTM_GETTOOLINFO    = TTM_GETTOOLINFOW
+      TTM_SETTOOLINFO    = TTM_SETTOOLINFOW
+      TTM_HITTEST        = TTM_HITTESTW
+      TTM_GETTEXT        = TTM_GETTEXTW
+      TTM_UPDATETIPTEXT  = TTM_UPDATETIPTEXTW
+      TTM_ENUMTOOLS      = TTM_ENUMTOOLSW
+      TTM_GETCURRENTTOOL = TTM_GETCURRENTTOOLW
+      TTM_SETTITLE       = TTM_SETTITLEW
+    else
+      TTM_ADDTOOL        = TTM_ADDTOOLA
+      TTM_DELTOOL        = TTM_DELTOOLA
+      TTM_NEWTOOLRECT    = TTM_NEWTOOLRECTA
+      TTM_GETTOOLINFO    = TTM_GETTOOLINFOA
+      TTM_SETTOOLINFO    = TTM_SETTOOLINFOA
+      TTM_HITTEST        = TTM_HITTESTA
+      TTM_GETTEXT        = TTM_GETTEXTA
+      TTM_UPDATETIPTEXT  = TTM_UPDATETIPTEXTA
+      TTM_ENUMTOOLS      = TTM_ENUMTOOLSA
+      TTM_GETCURRENTTOOL = TTM_GETCURRENTTOOLA
+      TTM_SETTITLE       = TTM_SETTITLEA
+    end
+    
+    TTN_FIRST            = -520
+    TTN_GETDISPINFOA     = TTN_FIRST-0
+    TTN_GETDISPINFOW     = TTN_FIRST-10
+    TTN_SHOW             = TTN_FIRST-1
+    TTN_POP              = TTN_FIRST-2
+    TTN_LINKCLICK        = TTN_FIRST-3
+    
+    if RWin::UNICODE
+      TTN_GETDISPINFO    = TTN_GETDISPINFOW
+    else
+      TTN_GETDISPINFO    = TTN_GETDISPINFOA
+    end
+    TTN_NEEDTEXT         = TTN_GETDISPINFO
+    
+    LPSTR_TEXTCALLBACK = -1
+  end
+  
+  # A small window that appears automatically, or pops up, when the user pauses the mouse pointer over a tool or some other UI element.
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Tooltip < WinControl
+    
+    if APP::COMCTL_MAJOR_VERSION < 6
+      TOOLINFO = API.defstruct "
+        UINT cbSize;
+        UINT uFlags;
+        HWND hwnd;
+        UINT_PTR uId;
+        RECT rect;
+        HINSTANCE hinst;
+        LPTSTR lpszText;
+        LPARAM lParam;"
+    else
+      TOOLINFO = API.defstruct "
+        UINT cbSize;
+        UINT uFlags;
+        HWND hwnd;
+        UINT_PTR uId;
+        RECT rect;
+        HINSTANCE hinst;
+        LPTSTR lpszText;
+        LPARAM lParam;
+        void *lpReserved;"
+    end
+    
+    TTGETTITLE = API.defstruct "
+      DWORD dwSize;
+      UINT uTitleBitmap;
+      UINT cch;
+      TCHAR *pszTitle;"
+
+    TTHITTESTINFO = API.defstruct "
+      HWND hwnd;
+      POINT pt;
+      TOOLINFO ti;"
+    
+    NMTTDISPINFO = API.defstruct "
+      NMHDR     hdr;
+      LPTSTR    lpszText;
+      TCHAR     szText;
+      HINSTANCE hinst;
+      UINT      uFlags;
+      LPARAM    lParam;"
+ 
+    # The wrapper of the TOOLINFO and a holder of control ID
+    class Tip
+      include RC
+      TtfStyles = {
+        :idishwnd    => TTF_IDISHWND,
+        :centertip   => TTF_CENTERTIP,
+        :rtlreading  => TTF_RTLREADING,
+        :suclass     => TTF_SUBCLASS,
+        :track       => TTF_TRACK,
+        :absolute    => TTF_ABSOLUTE,
+        :transparent => TTF_TRANSPARENT,
+        :parselinks  => TTF_PARSELINKS,
+        :di_setitem  => TTF_DI_SETITEM
+      }
+      
+      attr_reader :_itemwnd
+      
+      def initialize(*args)
+        @_owner = args.shift if args[0].is_a?(Tooltip)
+        if args.size == 1 
+          if  args[0].is_a?(Integer) || args[0].is_a?(RWin::Window)
+            id = args[0]
+            @toolinfo = TOOLINFO[TOOLINFO::Size, 0, @_owner.parent._hwnd]
+            if id.is_a?(Integer)
+              @toolinfo.uId = id
+            else
+              @toolinfo.uFlags = TTF_IDISHWND
+              @toolinfo.uId = id._hwnd
+            end
+            return
+          end
+        end
+        f = 0
+        while args.last.is_a?(Symbol)
+          f |= TtfStyles[args.pop].to_i
+        end
+        f = TTF_SUBCLASS if f == 0
+        @_itemwnd, @_text, @_flags, @_data = args
+        if @_itemwnd.is_a?(Array)
+          @_rect = RECT[@_itemwnd]
+          @_itemwnd = @_owner._get_newest_tip_id if @_owner
+        elsif @_itemwnd.is_a?(RECT)
+          @_rect = @_itemwnd
+          @_itemwnd = @_owner._get_newest_tip_id if @_owner
+#          @_itemwnd = 0
+        end
+        @_flags = @_falgs || 0
+        raise ArgumentError, "Num of arguments must be 2 or more" if @_text.nil?
+        @_flags |= f
+      end
+      #
+      def owner=(onr)
+        @_owner = onr
+         @_itemwnd = @_owner._get_newest_tip_id if @_rect
+      end
+      
+      def delete() #; dp "@%p", [@toolinfo.hwnd, @toolinfo.uId]
+        if @_owner.alive?
+          @_owner.SendMessage(TTM_DELTOOL, 0, @toolinfo)
+        else
+          @_owner.delete(@_itemwnd)
+        end
+      end
+      
+      def text()
+        if @_owner.alive?
+          buff = TCHAR[256] # No way to get size of buffer.
+          @toolinfo.lpszText = buff
+          @_owner.SendMessage(TTM_GETTEXT, buff.size, @toolinfo)
+          buff.to_s
+        else
+          @_text
+        end
+      end
+      def text=(txt)
+        if @_owner.alive?
+          @toolinfo.lpszText = txt
+          @_owner.SendMessage(TTM_UPDATETIPTEXT, 0, @toolinfo)
+        else
+          @_text = txt
+        end
+      end
+      
+      def rect=(*args)
+        args = args[0] if args[0].is_a?(Array)
+        @toolinfo.rect = args[0].is_a?(RECT) ? args[0] : RECT[*args]
+        if @_owner.alive?
+          @_owner.SendMessage(TTM_NEWTOOLRECT, 0, @toolinfo)
+        else
+          @_rect = args
+        end
+      end
+      def rect()
+        if @_owner.alive?
+          @_owner.SendMessage(TTM_GETTOOLINFO, 0, @toolinfo)
+          @toolinfo.rect
+        else
+          @_rect
+        end
+      end
+      
+      #
+      def _tooltipinfo #; dp "@%p, %#x", @_owner.owner, @_owner.owner._hwnd
+        ti = TOOLINFO[TOOLINFO::Size, @_flags]
+        ti.uFlags = TTF_SUBCLASS
+        ti.hwnd = @_owner.owner._hwnd
+        if @_itemwnd.is_a?(Integer)
+          ti.uId = @_itemwnd
+        else
+          ti.uFlags |= TTF_IDISHWND
+          ti.uId = @_itemwnd._hwnd
+        end
+        ti.rect = @_rect if @_rect
+        ti.hinst = APP.hInstance
+        ti.lpszText = @_text
+        lparam = @_data.__id__
+        @_owner._ar_data << @_data if (lparam&1)==0 && lparam>NilID
+        ti.lParam = lparam
+        ti
+      end
+    end #class Tip
+    
+    ######################### Main ######################
+    
+    PreDefinedEvents = {
+      :getdispinfo => [WM_NOTIFY, TTN_GETDISPINFO, 'xs', NMTTDISPINFO],
+      :show        => [WM_NOTIFY, TTN_SHOW, 'xs', NMHDR],
+      :pop         => [WM_NOTIFY, TTN_POP, 'xs', NMHDR],
+      :linkclick   => [WM_NOTIFY, TTN_LINKCLICK],
+      :needtext    => [WM_NOTIFY, TTN_NEEDTEXT, 'xs', NMTTDISPINFO]
+    }
+    
+    attr_reader :indexes, :_ar_data
+    
+    def initialize(*args)
+      super(*args)
+      @_style = (self.style & 0xffff) | WS_POPUP | TTS_ALWAYSTIP
+      @_classname = "tooltips_class32"
+      @_exstyle = WS_EX_TOPMOST | WS_EX_TOOLWINDOW
+      @_owner = @__remain_arg__ if @__remain_arg__
+      @_tips = []
+      @_acceptable_events = PreDefinedEvents.dup
+      @_ar_data = []
+    end
+    #
+    def owner()
+      @_owner
+    end
+    #
+    def owner=(win)
+      @_owner = win
+    end
+    #
+    def create(*args)
+      etc = self.idcmd # fails to create if idcmd != 0
+      self.idcmd = 0
+      if @_parent.event_registered?(idcmd, WM_NOTIFY, TTM_DELTOOL, "__deletool__", self)
+        @_parent.register_event(self.idcmd, WM_NOTIFY, TTM_DELTOOL, "__deletool__", 'xs',
+                                TOOLINFO, self) # for internal use
+      end
+      super
+      self.idcmd = etc
+      @_owner ||= self.parent
+      @_tips.each{|tip| 
+        SendMessage(TTM_ADDTOOL, 0, tip._tooltipinfo)
+      }
+      @_owner.tooltips = self if @_owner && @_owner.respond_to?(:tooltips=)
+      title = @_title if @_title
+      delaytimes = @_delaytimes if @_delaytimes
+      colors = @_colors if @_colors
+      maxtipwidth = @_maxtipwidth if @_maxtipwidth
+      windowtheme = @_windowtheme if @_windowtheme # Not work?
+    end
+    
+    # Registers a tip with a tooltip control.<br>
+    # Arguments can be an array of [ID_or_Control_or_RECT, tip_text]
+    def add(*args)
+      args = args[0] if args[0].is_a?(Array)
+      tip = Tip.new(*args)
+      tip.owner = self
+      alive? ? SendMessage(TTM_ADDTOOL, 0, tip._tooltipinfo) : @_tips << tip
+    end
+    alias << add
+    
+    # Deletes a tip specifiled <i>arg</i> in this tooltip control.<br>
+    # Give a RWin::Window or a integer for ID as <i>arg</i>.
+    # If no argument given, deletes self.
+    def delete(arg=nil)
+      return super() if arg.nil?
+      if alive?
+        tti = TOOLINFO[TOOLINFO::Size, 0, @_owner._hwnd, 
+                       arg.is_a?(RWin::Window) ? arg._hwnd : arg]
+        SendMessage(TTM_DELTOOL, 0, tti)
+      else
+        idx = @_tips.index{|tip| tip._itemwnd == arg}
+        @_tips.delete_at(idx) #; dp "@%p, %p", idx, @_tips
+      end
+    end
+    
+    # Retreives a Tip specified <i>id</i> in this tooltip control.
+    # The id can be an Integer as index or hwnd, or a RW::Window.
+    def fetch(id)
+      if id.is_a?(Integer) && id<ModParent::ItemBaseID
+        if alive?
+          SendMessage(TTM_ENUMTOOLS, id, tti=TOOLINFO[TOOLINFO::Size])
+          Tip.new(self, tti.uId)
+        else
+          @_tips[id]
+        end
+      else
+        alive? ? Tip.new(self, id) : @_tips.find{|tip| tip._itemwnd == id}
+      end
+    end
+    alias [] fetch
+    
+    # Retreives a number of tips of this tooltip control.
+    def count()
+      alive? ? SendMessage(TTM_GETTOOLCOUNT, 0, 0) : @_tips.size
+    end
+    
+    # each(){|tip| ... }
+    # Performs the block for each <i>tip</i> in this tooltips as a block parameter.
+    def each()
+      if alive?
+        count.times{|i|
+          SendMessage(TTM_ENUMTOOLS, i, tti=TOOLINFO[TOOLINFO::Size])
+          yield Tip.new(self, tti.uId)
+        }
+      else
+        @_tips.each{|i| yield i}
+      end
+    end
+    
+    # Retrieve information concerning the title of a tooltip control.
+    # Returns an array of [String, Icon]
+    def title()
+      if alive?
+        buff = TCHAR[256] # No way to get size of buffer.
+        ttg = TTGETTITLE[TTGETTITLE::Size, 0, buff.size, buff]
+        SendMessage(TTM_GETTITLE, 0, ttg)
+        [buff.to_s, APP.hrsc2ref(ttg.uTitleBitmap) || ttg.uTitleBitmap]
+      else
+        @_title
+      end
+    end
+    
+    # title=(text, icon=nil)
+    # Adds a title string and standard icon to this tooltip.
+    def title=(*args)
+      txt, icon = args[0]
+      if alive?
+        hicon = (icon.is_a?(Integer) || icon.nil?) ? icon : icon.hicon
+        SendMessage(TTM_SETTITLE, hicon.to_i, txt.to_s)
+      else
+        @_title = [icon, txt]
+      end
+    end
+    
+    # delaytimes=(initial, reshow, autopop)
+    # Sets the initial, pop-up, and reshow durations for this tooltip control.
+    def delaytimes=(*args)
+      args = args[0] if args[0].is_a?(Array)
+      initial, reshow, autopop = args # Unit is millisec.
+      if alive?
+        if initial == :automatic
+          SendMessage(TTM_SETDELAYTIME, TTDT_AUTOMATIC, 0)
+        else
+          SendMessage(TTM_SETDELAYTIME, TTDT_INITIAL, initial ? initial.to_i : -1)
+          SendMessage(TTM_SETDELAYTIME, TTDT_RESHOW, reshow ? reshow.to_i : -1)
+          SendMessage(TTM_SETDELAYTIME, TTDT_AUTOPOP, autopop ? autopop.to_i : -1)
+        end
+      else
+        @_delaytimes = [initial, reshow, autopop]
+      end
+    end
+    # Retrieves the initial, pop-up, and reshow durations currently set for this tooltip control.
+    # Retruns array of [initial, reshow, autopop].
+    def delaytimes()
+      if alive?
+        initial = SendMessage(TTM_SETDELAYTIME, TTDT_INITIAL, 0)
+        reshow = SendMessage(TTM_SETDELAYTIME, TTDT_RESHOW, 0)
+        autopop = SendMessage(TTM_SETDELAYTIME, TTDT_AUTOPOP, 0)
+        [initial, reshow, autopop]
+      else
+        @_delaytimes
+      end
+    end
+    
+    # Sets the maximum width for this tooltip window. 
+    def maxtipwidth=(width)
+      alive? ? SendMessage(TTM_SETMAXTIPWIDTH, 0, width) : @_maxtipwidth = width
+    end
+    
+    # Retrieves the maximum width for this tooltip window. 
+    def maxtipwidth
+      alive? ? SendMessage(TTM_GETMAXTIPWIDTH, 0, 0) : @_maxtipwidth
+    end
+    
+    # Tests a point to determine whether it is within the bounding rectangle of the specified tip and, if it is, retrieves information about the tip.
+    def hittest(x, y)
+      hi = TTHITTESTINFO[@_owner._hwnd, POINT[x, y], TOOLINFO[TOOLINFO::Size]]
+      r = SendMessage(TTM_HITTEST, 0, hi)
+      r==0 ? nil : Tip.new(self, hi.ti.uId)
+    end
+    
+    # Following methods has no effect when the application runs on Windows Vista
+    # or later and visual styles are enabled for the tooltip.
+    
+    
+    def margin()
+      if alive?
+        rect = RECT[args]
+        SendMessage(TTM_SETMARGIN, 0, rect)
+        rect.to_a
+      else
+        @_margin
+      end
+    end
+    # These have no effects when the applidation runs on the visual styles.
+    def margin=(*args) 
+      args = args[0] if args[0].is_a?(Array)
+      if alive?
+        rect = RECT[args]
+        SendMessage(TTM_SETMARGIN, 0, rect)
+      else
+        @_margin = args
+      end
+    end
+    
+    def colors()
+      if alive?
+        fore = SendMessage(TTM_GETTIPTEXTCOLOR, 0, 0)
+        back = SendMessage(TTM_SETTIPBKCOLOR, 0, 0)
+        [fore, back]
+      else
+        @_colors
+      end
+    end
+    # These have no effects when the applidation runs on the visual styles.
+    def colors=(*args)
+      fore, back = args[0]
+      if alive?
+        SendMessage(TTM_SETTIPTEXTCOLOR, fore, 0) if fore
+        SendMessage(TTM_SETTIPBKCOLOR, back, 0) if back
+      else
+        @_colors = [fore, back]
+      end
+    end
+    
+    #
+    def windowtheme=(theme) # Not work...
+      if alive?
+        SendMessage(TTM_SETWINDOWTHEME, 0, theme)
+      else
+        @_windowtheme = theme
+      end
+    end
+    #
+    def _get_newest_tip_id()
+      r = 0
+      if alive?
+        count.times{|i|
+          SendMessage(TTM_ENUMTOOLS, i, tti=TOOLINFO[TOOLINFO::Size])
+          uid = tti.uId
+          r = uid if tti.uFlags&TTF_IDISHWND==0 && uid<ModParent::ItemBaseID && r<uid
+        }
+        r + 1
+      else
+        each{|i| r += 1 if !i.is_a?(Window) && !i.is_a?(Integer)}
+        r
+      end
+    end
+    
+    
+    WinStyles = {
+      :alwaystip => TTS_ALWAYSTIP,
+      :noprefix  => TTS_NOPREFIX,
+      :noamimate => TTS_NOANIMATE,
+      :nofade    => TTS_NOFADE,
+      :balloon   => TTS_BALLOON,
+      :close     => TTS_CLOSE
+    }
+    
+    protected
+    def _apply_options(arg)
+      if st = WinStyles[arg]
+        self.style |= st
+      end
+      # super
+    end
+    
+    private
+    def __deltool__(ti)
+      return unless @_ar_data # recycled?
+      data = ObjectSpace._id2ref(ti.lParam) rescue nil
+      if data && n = @_ar_data.index(data) #; dp "@%p, %p, %p", data, n, @_ar_data
+        @_ar_data.delete_at(n)
+      end
+    end
+  end
+end
+
+module WR
+  class Form1 < Form
+    def initialize
+      resize 640, 480
+      self.font = Font["Meiryo", 18]
+      self.events = :paint
+      
+      _<< Toolbar[:toolbar1, '',0,0,100,30, :tooltips]
+      _toolbar1.imagelist = :systemlarge
+      _toolbar1 << [:btnew, :filenew]
+      _toolbar1 << [:btopen, :fileopen]
+      _toolbar1 << [:btsave, :filesave]
+      
+      _<< Button[:button1, "Delet tip", 100, 100, 100, 30]
+      _<< Button[:button2, "Hittest", 100, 150, 100, 30]
+      
+      _<< Statusbar[:stb1, 'Part1', 0, 0, 100, 24]
+      _stb1 << [[100, 'part2'], [100, 'part3']]
+      _<< Tooltip[:tooltip0, '', 0, 0, 0, 0, :noprefix]
+      _tooltip0 << [_stb1, "Statusbar!"]
+      _tooltip0.events = :getdispinfo, :show
+      
+      _<< Tooltip[:tooltip1, '', 0,0,0,0,:balloon]
+      _tooltip1 << [_button1, "shown tip by control!"]
+      _tooltip1 << [_button2, "shown tip by control!"]
+      _tooltip1 << [RECT[0,100,100,200], "shown tip by area1!"]
+      _tooltip1 << [RECT[0,200,100,300], "shown tip by area2!"]
+      
+      _<< Tooltip[:tooltip2, '',0,0,0,0, _toolbar1]
+      _tooltip2 << [_toolbar1.btnew.idcmd, "New!"]
+      _tooltip2 << [_toolbar1.btopen.idcmd, "Open!"]
+      _tooltip2 << [_toolbar1.btsave.idcmd, "Save!"]
+      _tooltip1[0].text += ' (added)'
+    end
+    
+    def created()
+#      dpp APP::COMCTL_MAJOR_VERSION, APP::COMCTL_MINOR_VERSION
+#      _toolbar1.tooltips = _tooltip2
+    end
+    
+    def tooltip0_getdispinfo(nm)
+      dpp nm.to_hsh
+    end
+    
+    def tooltip0_show(nm)
+      dpp nm.to_hsh
+    end
+    
+    def self_paint(cv)
+      cv.SetFont(self.font)
+      cv.FillRect(0, 100, 100, 200, 0xffffff)
+      cv.FillRect(0, 100, 50, 150, 0xffffff)
+      cv.DrawText("tooltip area1", 10, 160, 90, 180)
+      cv.SetBrush(0xffffd0)
+      cv.FillRect(0, 200, 100, 300, 0xffffd0)
+      cv.DrawText("tooltip area2", 10, 240, 90, 260)
+    end
+    
+    def button1_clicked(*)
+     return  _tooltip1.delete
+      dp "@%p", _tooltip1[_button1]
+      _tooltip1[_button1].delete
+      _tooltip1[1].delete
+    end
+    
+    def button2_clicked(*)
+      _tooltip1.colors = 0x0000ff, 0xffffff
+      _tooltip1.windowtheme = 'Windows Calssic'
+      _tooltip1.each{|i| p i.text}
+      dp "@%p", _tooltip1.hittest(30, 120)
+      dp "@%p", _tooltip1.hittest(50, 250)
+      _tooltip1.delaytimes = 100, 500, 1000
+      _tooltip1[0].rect = 0, 100, 50, 150
+    end
+    self.start
+  end
+end if $0 == __FILE__