wrb 2.0.0

data/lib/wrb/components/scrollbar.rb

@@ -0,0 +1,239 @@
+require 'wrb'
+require 'wrb/scrollinfo'
+
+module WR
+  module RC
+    SBS_HORZ        = 0x0000
+    SBS_VERT        = 0x0001
+    SBS_TOPALIGN    = 0x0002
+    SBS_LEFTALIGN   = 0x0002
+    SBS_BOTTOMALIGN = 0x0004
+    SBS_RIGHTALIGN  = 0x0004
+    SBS_SIZEBOX     = 0x0008
+    SBS_SIZEGRIP    = 0x0010
+    
+    SBS_SIZEBOXTOPLEFTALIGN     = 0x0002
+    SBS_SIZEBOXBOTTOMRIGHTALIGN = 0x0004
+    
+    CCHILDREN_SCROLLBAR = 5
+    
+    SW_SCROLLCHILDREN = 0x0001
+    SW_INVALIDATE = 0x0002
+    SW_ERASE = 0x0004
+    SW_SMOOTHSCROLL = 0x0010
+    
+    ESB_ENABLE_BOTH = 0x0000
+    ESB_DISABLE_BOTH = 0x0003
+    ESB_DISABLE_LEFT = 0x0001
+    ESB_DISABLE_RIGHT = 0x0002
+    ESB_DISABLE_UP = 0x0001
+    ESB_DISABLE_DOWN = 0x0002
+    ESB_DISABLE_LTUP = ESB_DISABLE_LEFT
+    ESB_DISABLE_RTDN = ESB_DISABLE_RIGHT
+  end
+  
+  # This control allows the user to bring into view the portions of an object that extend beyond the borders of a window. 
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Scrollbar < WinControl
+    SCROLLBARINFO = API.defstruct "
+      DWORD cbSize;
+      RECT  rcScrollBar;
+      int   dxyLineButton;
+      int   xyThumbTop;
+      int   xyThumbBottom;
+      int   reserved;
+      DWORD rgstate[#{CCHILDREN_SCROLLBAR+1}]"
+    
+    SCROLLINFO = API.defstruct "
+      UINT cbSize;
+      UINT fMask;
+      int nMin;
+      int nMax;
+      UINT nPage;
+      int nPos;
+      int nTrackPos;"
+    
+    API.defun "EnableScrollBar(HWND hWnd, UINT wSBflags, UINT wArrows)"
+    API.defun "GetScrollBarInfo(HWND hWnd, GetScrollInfo LONG idObject, PSCROLLBARINFO psbi)"
+    API.defun "GetScrollInfo(HWND hWnd, int fnBar, LPSCROLLINFO lpsi)"
+    API.defun "SetScrollInfo(HWND hwnd,int nBar,LPCSCROLLINFO lpsi,WINBOOL redraw)"
+    API.defun "ScrollDC(HDC hDC, int dx, int dy, RECT *lprcScroll, RECT *lprcClip, HRGN hrgnUpdate, LPRECT lprcUpdate)"
+    API.defun "ScrollWindowEx(HWND hWnd, int dx, int dy, RECT *prcScroll, RECT *prcClip, HRGN hrgnUpdate, LPRECT prcUpdate, UINT flags)"
+    
+    WinStyles = {
+      :horz => SBS_HORZ,
+      :vert => SBS_VERT,
+      :topalign => SBS_TOPALIGN,
+      :leftalign => SBS_LEFTALIGN,
+      :bottomalign => SBS_BOTTOMALIGN,
+      :rightalign => SBS_RIGHTALIGN,
+      :sizebox => SBS_SIZEBOX,
+      :sizegrip => SBS_SIZEGRIP,
+      :sizeboxtopleftalign => SBS_SIZEBOXTOPLEFTALIGN,
+      :sizeboxbottomrightalign => SBS_SIZEBOXBOTTOMRIGHTALIGN
+    }
+    
+    PreDefinedEvents = {
+      :vscroll => [WM_VSCROLL, 'h'],
+      :hscroll => [WM_HSCROLL, 'h']
+    }
+    DefaultEvents = [:vscroll, :hscroll]
+    
+    def initialize(*args)
+      super
+      @_classname = 'SCROLLBAR'
+      @_acceptable_events = PreDefinedEvents.dup
+    end
+    #
+    def create()
+      super
+      self.range= @_range if @_range
+      self.pos = @_pos if @_pos
+      self.page = @_page if @_page
+      self.trackpos = @_trackpos if  @_trackpos
+    end
+    
+    # Enables or disables one or both scroll bar arrows.
+    def enable(flag, arrows)
+      API.EnableScrollBar(self._hwnd, flag.to_i, arrows)
+    end
+    
+    # Gets the range of this scroll bar.
+    def range()
+      if alive?
+        lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_RANGE]
+        API.GetScrollInfo(self._hwnd, SB_CTL, lpsi)
+        [lpsi.nMin, lpsi.nMax]
+      else
+        @_range
+      end
+    end
+    # Sets the range of this scroll bar.
+    def range=(*args)
+      min, max = args[0].is_a?(Array) ? args[0] : [0, args[0]]
+      if alive?
+        lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_RANGE, min, max]
+        API.SetScrollInfo(self._hwnd, SB_CTL, lpsi, 1)
+      else
+        @_range = [min, max]
+      end
+    end
+    
+    # Retrieves the position of the scroll box (thumb) in this scroll bar.
+    def pos()
+      if alive?
+        lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_POS]
+        API.GetScrollInfo(self._hwnd, SB_CTL, lpsi)
+        lpsi.nPos
+      else
+        @_pos
+      end
+    end
+    # Sets the position of the scroll box (thumb) in this scroll bar .
+    def pos=(ps)
+      if alive?
+        lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_POS, nil, nil, nil, ps]
+        API.SetScrollInfo(self._hwnd, SB_CTL, lpsi, 1)
+      else
+        @_pos = ps
+      end
+    end
+    
+    # Retreives a page-size of this scrollbar for determine the size of scroll box.
+    def pagesize()
+      if alive?
+        lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_PAGE]
+        API.GetScrollInfo(self._hwnd, SB_CTL, lpsi)
+        lpsi.nPage
+      else
+        @_page
+      end
+    end
+    # Sets a page-size of this scrollbar for determine the size of scroll box.
+    def pagesize=(pg)
+      if alive?
+        lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_PAGE, nil, nil, pg]
+        API.SetScrollInfo(self._hwnd, SB_CTL, lpsi, 1)
+      else
+        @_page = pg
+      end
+    end
+    # Retreives the immediate position of a scroll box that the user is dragging. 
+    def trackpos()
+      if alive?
+        lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_TRACKPOS]
+        API.GetScrollInfo(self._hwnd, SB_CTL, lpsi)
+        lpsi.nTrackPos
+      else
+        @_trackpos
+      end
+    end
+    # Specifies the immediate position of a scroll box that the user is dragging. 
+    def trackpos=(tps)
+      if alive?
+        lpsi = SCROLLINFO[SCROLLINFO::Size, SIF_POS, nil, nil, nil, nil, tps]
+        API.SetScrollInfo(self._hwnd, SB_CTL, lpsi, 1)
+      else
+        @_trackpos = tps
+      end
+    end
+      
+    protected
+    def _apply_options(arg)
+      if st=WinStyles[arg]
+        @_style |= st
+        return nil
+      end
+      super
+    end
+  end
+end
+
+module WR
+  class Form1 <Form
+    def initialize
+      resize 640, 480
+      @sb1 = controls << Scrollbar[:sb1, '', 0, 0,20,20, :vert, :range=>100, :pos=>50, :margin=>[nil, 0, 0, 20]]
+      @sb2 = controls << Scrollbar[:sb2, '', 0, 0,20,20, :range=>100, :pos=>50, :margin=>[0,nil, 20, 0]]
+      
+#      @sb1.accept_events(:vscroll)
+      
+      register_event(WM_VSCROLL, 'vscroll', 'h', self)
+#      register_event(WM_HSCROLL, 'hscroll', 'h', @sb2)
+      
+#      events << [@sb2, :hscroll, 'hscroll2', 'h', @sb2]
+      
+      def @sb1.vscroll(sval, thumbpos); dpp sval
+      end
+      
+      def @sb2.hscroll(sval, thumbpos)
+        dpp sval
+      end
+    end
+    
+    
+    def vscroll(sval, thumbpos); dpp sval
+      case sval
+      when SB_LINEUP
+        @sb1.pos -= 1
+      when SB_LINEDOWN
+        @sb1.pos += 1
+      when SB_PAGEUP
+        @sb1.pos -= 10
+      when SB_PAGEDOWN
+        @sb1.pos += 10
+      when SB_THUMBPOSITION
+        @sb1.pos = thumbpos
+      when SB_THUMBTRACK
+        #dpp thumbpos
+      when SB_ENDSCROLL
+        #dpp sval, thumbpos
+      when SB_TOP
+      when SB_BOTTOM
+      end
+    end
+    
+    self.start
+  end
+end if __FILE__ == $0

data/lib/wrb/components/splitter.rb

@@ -0,0 +1,494 @@
+# Splitter
+# This imprementateion is original by Baonjo Koyu.
+
+module WR
+  require_relative './canvas' unless defined?(Canvas) # color constants are defined in.
+  
+  # A window to split a parent window into two panes such as right-left or upper-lower. (WRB original)
+  class Splitter < WinControl
+    class Pane < Array
+      def initialize(onr)
+        @owner = onr
+      end
+      
+      def <<(arg)
+        if arg.is_a?(Splitter)
+          raise "Already other control exixts in this pane." if self.size>0
+          arg.mother = @owner
+        end
+        if @owner.parent && !@owner.parent.controls.index(arg)
+          if @owner.respond_to?(:owner)
+            super(@owner.owner << arg)
+          else
+            super(@owner.parent.controls << arg)
+          end
+        else
+          super
+        end
+        class << arg
+          attr_reader :__ownedbysplitter
+        end
+        self.uniq!
+        @owner.__send__(:_resize_panes) if @owner.alive? #; dpp @owner.name, arg.name, arg.x
+        arg
+      end
+      
+      def delete(arg)
+        if arg.is_a?(Splitter)
+          arg.delete
+        else
+          arg.margin = nil
+        end
+        class << arg
+          undef :__ownedbysplitter
+        end
+        super
+      end
+      
+      def clear()
+        self.each{|i| i.margin=nil}
+        super
+      end
+    end
+    
+    Faces = {
+      :none => nil,
+      :line =>[
+      Bitmap.new(1, 128, API.getSysColor(COLOR_BTNSHADOW)),
+      Bitmap.new(128, 1, API.getSysColor(COLOR_BTNSHADOW))],
+      :dot=> [
+      Bitmap.new(2, 128, API.getSysColor(COLOR_BTNFACE)).draw{|cv|
+        16.times{|i| c = i*8
+          cv.SetBrush API.getSysColor(COLOR_BTNSHADOW)
+          cv.PatBlt(0, c+4, 2, 2)}},
+      Bitmap.new(128, 2, API.getSysColor(COLOR_BTNFACE)).draw{|cv|
+        16.times{|i| c = i*8
+          cv.SetBrush API.getSysColor(COLOR_BTNSHADOW)
+          cv.PatBlt(c+4, 0, 2, 2)}}
+      ],
+      :bump2 => [
+      Bitmap.new(2, 128, API.getSysColor(COLOR_BTNFACE)).draw{|cv|
+        16.times{|i| c = i*8
+          cv.SetPen(API.getSysColor(COLOR_BTNSHADOW))
+          cv.MoveTo(0, c+5)
+          cv.LineTo(1, c+5)
+          cv.LineTo(1, c+3)}}, 
+      Bitmap.new(128, 2, API.getSysColor(COLOR_BTNFACE)).draw{|cv|
+        16.times{|i| c = i*8 
+          cv.SetPen(API.getSysColor(COLOR_BTNSHADOW))
+          cv.MoveTo(c+5, 0)
+          cv.LineTo(c+5, 1)
+          cv.LineTo(c+3, 1)}}
+      ],
+      :bump3 => [
+      Bitmap.new(3, 128, API.getSysColor(COLOR_BTNFACE)).draw{|cv|
+        16.times{|i| c = i*8
+          cv.SetPen(API.getSysColor(COLOR_BTNSHADOW))
+          cv.MoveTo(0, c+6)
+          cv.LineTo(2, c+6)
+          cv.LineTo(2, c+3)}},
+      Bitmap.new(128, 3, API.getSysColor(COLOR_BTNFACE)).draw{|cv|
+        16.times{|i| c = i*8 
+          cv.SetPen(API.getSysColor(COLOR_BTNSHADOW))
+          cv.MoveTo(c+6, 0)
+          cv.LineTo(c+6, 2)
+          cv.LineTo(c+3, 2)}}
+      ],
+      :bump4 => [
+      Bitmap.new(4, 128, API.getSysColor(COLOR_BTNFACE)).draw{|cv|
+        16.times{|i| c = i*8
+          cv.SetPen(API.getSysColor(COLOR_BTNSHADOW))
+          cv.MoveTo(0, c+7)
+          cv.LineTo(3, c+7)
+          cv.LineTo(3, c+3)}},
+      Bitmap.new(128, 4, API.getSysColor(COLOR_BTNFACE)).draw{|cv|
+        16.times{|i| c = i*8
+          cv.SetPen(API.getSysColor(COLOR_BTNSHADOW))
+          cv.MoveTo(c+7, 0)
+          cv.LineTo(c+7, 3)
+          cv.LineTo(c+3, 3)}}
+      ],
+      :dimple2 => [
+      Bitmap.new(2, 128, API.getSysColor(COLOR_BTNFACE)).draw{|cv|
+        16.times{|i| c = i*8
+          cv.SetPen(API.getSysColor(COLOR_BTNSHADOW))
+          cv.MoveTo(0, c+5)
+          cv.LineTo(0, c+4)
+          cv.LineTo(2, c+4)
+        }
+      },
+      Bitmap.new(128, 2, API.getSysColor(COLOR_BTNFACE)).draw{|cv|
+        16.times{|i| c = i*8 
+          cv.SetPen(API.getSysColor(COLOR_BTNSHADOW))
+          cv.MoveTo(c+4, 2)
+          cv.LineTo(c+4, 0)
+          cv.LineTo(c+6, 0)}}
+      ],
+      :dimple3 => [
+      Bitmap.new(3, 128, API.getSysColor(COLOR_BTNFACE)).draw{|cv|
+        16.times{|i| c = i*8
+          cv.SetPen(API.getSysColor(COLOR_BTNSHADOW))
+          cv.MoveTo(0, c+6)
+          cv.LineTo(0, c+4)
+          cv.LineTo(3, c+4)
+        }
+      },
+      Bitmap.new(128, 3, API.getSysColor(COLOR_BTNFACE)).draw{|cv|
+        16.times{|i| c = i*8 
+          cv.SetPen(API.getSysColor(COLOR_BTNSHADOW))
+          cv.MoveTo(c+4, 3)
+          cv.LineTo(c+4, 0)
+          cv.LineTo(c+7, 0)}}
+      ],
+      :dimple4 => [
+      Bitmap.new(4, 128, API.getSysColor(COLOR_BTNFACE)).draw{|cv|
+        16.times{|i| c = i*8
+          cv.SetPen(API.getSysColor(COLOR_BTNSHADOW))
+          cv.MoveTo(0, c+7)
+          cv.LineTo(0, c+4)
+          cv.LineTo(4, c+4)
+        }
+      },
+      Bitmap.new(128, 4, API.getSysColor(COLOR_BTNFACE)).draw{|cv|
+        16.times{|i| c = i*8 
+          cv.SetPen(API.getSysColor(COLOR_BTNSHADOW))
+          cv.MoveTo(c+4, 4)
+          cv.LineTo(c+4, 0)
+          cv.LineTo(c+8, 0)}}
+      ]
+    }
+    
+    SplitCursorV = Cursor.loadb64  "AAAAQAAIACAQAAAA4AA4AWAAAAAC0AQBRAICAmAAEEBAADAgCAuAAAAAAAAAAAAAAAAAAEA+n+/3/AfIDuAAAACqAAAACqCAQYdXAAAAtWgAABNWQAACBQMAg4CAwGBgUTA4GCGL4D4AAD4D4AAD4gEI4AOAAAwAGAAAgADB+OAQMBAYDAwLNA=="
+
+    SplitCursorH =  Cursor.loadb64  "AAAAQAAIACAQAAAA4AA4AWAAAAAC0AQBRAICAmAAEEBAADAgCAuAAAAAAAAAAAAAAAAAAEA+n+/3/AiIBIAAAACEAAAAEQNQBzgAAAfz+AAAQACAAAf8AgH/AMSAoMBwYEgwLBgaCAYOgP5/gAAPw/gAAPgfgAAPAPgAAPCAIEHcoDogGEKQAgILAgWBYMDQYHgg"
+    
+    ######################### Main ########################
+    
+    attr_accessor :mother
+    
+    def initialize(*args)
+      @lu_pane = @left = @upper = Pane.new(self)
+      @rl_pane = @right = @lower = Pane.new(self)
+      class << @limit = [0, 0]
+        def lu() self[0]; end
+        def lu=(v) self[0] = v; end
+        def rl() self[1]; end
+        def rl=(v) self[1] = v; end
+      end
+      @_face = :dot
+      
+      super
+      @_classname = "RUBYWIN"
+      @_style = WS_VISIBLECHILD
+      l, t, r, b = margin.to_a #; dpp l, t, r, b
+      self.margin = @is_horiz ? Margin[l, nil, r, nil] : Margin[nil, t, nil, b] unless @_margin
+      @cursor = @is_horiz ? SplitCursorH : SplitCursorV
+      register_event(WM_PAINT, "__paint__", 'c', Canvas)
+      register_event(WM_MOUSEMOVE, "__mousemove__", 'ih')
+      register_event(WM_MOVE, "__move__", 'ih')
+      register_event(WM_LBUTTONDOWN, "__lbuttondown__", 'ih')
+      register_event(WM_LBUTTONUP, "__lbuttonup__", 'ih')
+      register_event(WM_SETCURSOR, '__setcursor__', 'ih')
+    end
+    #
+    def create()
+      unless @mother # is root
+        class << @_parent
+          attr_accessor :_root
+          def __resize__(w, h)
+            @_root.__move(0, 0, w, h)
+            @controls.each{|i| 
+              i.__move(0, 0, w, h) if i.respond_to?(:__move)&&!i.respond_to?(:__ownedbysplitter)
+            }
+          end
+          def __move(_x, _y, _w, _h)
+            super
+            @controls.each{|i| 
+              i.__move(0, 0, w, h) if i.respond_to?(:__move)&&!i.respond_to?(:__ownedbysplitter)
+            }
+          end
+        end
+        @_parent._root = self
+      end
+      @pw, @ph = @_parent.clientsize
+      super
+      self.face = @_face || :none
+      @canvas = Canvas.new(@_parent)
+      @_parent.SendMessage(WM_SIZE, 0, MAKELPARAM(*@_parent.size))
+      self
+    end
+    #
+    def margin=(arg)
+      l, t, r, b = arg.to_a
+      m = if  @is_horiz
+        if t
+          [l.to_i, t.to_i, r.to_i, nil]
+        elsif b
+          [l.to_i, nil, r.to_i, b.to_i]
+        else
+          [l.to_i, nil, r.to_i, nil]
+        end
+      else
+        if l
+          [l.to_i, t.to_i, nil, b.to_i]
+        elsif r
+          [nil, t.to_i, r.to_i, b.to_i]
+        else
+          [nil, t.to_i, nil, b.to_i]
+        end
+      end
+      super(m)
+    end
+    
+    # Retreives whether direction of this splitter is horizontal or not.
+    def is_horiz()
+      @is_horiz
+    end
+    
+    # Gets a thickness of this splitter.
+    def thickness()
+      is_horiz ? margin.h : margin.w
+    end
+    # Sets a thickness of this splitter.
+    def thickness=(t)
+      if is_horiz 
+        self.h = margin.h = t.to_i
+      else
+        self.w = margin.w = t.to_i
+      end
+    end
+    
+    # Gets the limit position in which this splitter can be moved.<br>
+    # Retruens an array, but it's accessible by name of "lu", "rl".
+    def limit()
+      @limit
+    end
+    
+    # Sets the limit position in which this splitter can be moved.
+    def limit=(args)
+      lu, rl = args
+      @limit.lu = lu.to_i
+      @limit.rl = rl.to_i
+    end
+    
+    # Gets a pane positioned left side or upper side of this splitter.
+    def lu_pane()
+      @lu_pane
+    end
+    alias left lu_pane
+    alias upper lu_pane
+    
+    # Clears the left side or upper side pane and adds controls into the pane.
+    def lu_pane=(arg)
+      @lu_pane.clear
+      return unless arg
+      arg.is_a?(Array) ?  arg.each{|i| @lu_pane << i} : @lu_pane << arg
+    end
+    alias left= lu_pane=
+    alias upper= lu_pane=
+    
+    # Gets a pane positioned right side or lower side of this splitter.
+    def rl_pane()
+      @rl_pane
+    end
+    alias right rl_pane
+    alias lower rl_pane
+    
+    # Clears the right side or lower side pane and adds controls into the pane.
+    def rl_pane=(arg)
+      @rl_pane.clear
+      return unless arg
+      arg.is_a?(Array) ?  arg.each{|i| @rl_pane << i} : @rl_pane << arg
+    end
+    alias right= rl_pane=
+    alias lower= rl_pane=
+    
+    # Gets a bitmap of display-pattern in this splitter.
+    def face()
+      Faces.key(@_face) || @_face
+    end
+    
+    # Sets a bitmap of display-pattern in this splitter.<br>
+    # Give a Bitmap as argument.
+    def face=(f)
+      if f.is_a?(Symbol)
+        @_face = Faces[f]
+      else 
+        @_face = f
+      end
+    end
+    
+    # Gets a direction of this splitter.
+    def direction()
+      @is_horiz ? :horiz : :vert
+    end
+    
+    # Sets a direction of this splitter.<br>
+    # If given :true, :horiz or :h, then this splitter displays the horizontal direction, otherwize the vertical.
+    def direction=(dir)
+      raise "Already item exists in the panes." if !@lu_pane.empty? || !@rl_pane.empty?
+      @is_horiz = (dir==:horiz) || (dir==:h) || (dir==true) || dir.nil?
+      l, t, r, b = margin.to_a
+      self.margin = @is_horiz ? [l, nil, r, nil] : [nil, t, nil, b]
+#      @cursor = @is_horiz ? Cursor.fromsystem(IDC_SIZENS) : Cursor.fromsystem(IDC_SIZEWE)
+      @cursor = @is_horiz ? SplitCursorH : SplitCursorV
+    end
+    
+    #
+    def x() clientpos[0]; end
+    #
+    def y() clientpos[1]; end
+    #
+    def w() windowsize[0]; end
+    #
+    def h() windowsize[1]; end
+    #
+    def delete()
+      @lu_pane.reverse_each{|i|@lu_pane.delete(i)}
+      @rl_pane.reverse_each{|i|@rl_pane.delete(i)}
+      super
+    end
+    
+    #
+    def __move(_x, _y, _w, _h)
+      @pw, @ph = @_parent.clientsize if @_parent.alive?
+      super
+      _resize_panes
+    end
+    #
+    def __get_hrange(child)
+      return [x, x+w] if @is_horiz
+      if @lu_pane.index(child)
+        [@mother ? @mother.__get_hrange(self)[0] : 0, x]
+      else
+        [x+w, @mother ? @mother.__get_hrange(self)[1] : @_parent.clientsize[0]]
+      end
+    end
+    #
+    def __get_vrange(child)
+      return [y, y+h] unless @is_horiz
+      if @lu_pane.index(child)
+        [@mother ? @mother.__get_vrange(self)[0] : 0, y]
+      else
+        [x+w, @mother ? @mother.__get_vrange(self)[1] : @_parent.clientsize[1]]
+      end
+    end
+    
+#    def position()
+#      x, y = super
+#      if @_is_horiz 
+#        [x, y-__get_hrange(self)[0]]
+#      else
+#        #dpp __get_vrange(self), [x-__get_vrange(self)[0], y]
+#        [x-__get_vrange(self)[0], y]
+#        [x, y]
+#      end
+#    end
+    
+    protected
+    def _apply_options(arg)
+      case arg
+      when :horiz, :h
+        @is_horiz = true
+      when :vert, :v
+        @is_horiz = nil
+      when :none, :line, :dot, :bump2, :bump3, :bump4, :dimple2, :dimple3, :dimple4
+        @_face = arg
+      end
+    end
+    
+    private
+    def __lbuttonup__(state, x, y)
+      self.ReleaseCapture
+      l,t,r,b = margin.to_a
+      if @is_horiz
+        @_margin.y = self.y - (@mother ? @mother.__get_vrange(self)[0] : 0)
+        if @_margin.top
+          self.margin = l, self.y, r, b
+        else
+          self.margin = l, t, r, @_parent.clientsize[1]-self.y-self.h
+        end
+      else
+        @_margin.x = self.x - (@mother ? @mother.__get_hrange(self)[0] : 0)
+        if @_margin.left
+          self.margin = self.x, t, r, b
+        elsif @_margin.right
+          self.margin = l, t, @_parent.clientsize[0]-self.x-self.w, b
+        end
+      end
+      @_parent.refresh
+    end
+    
+    def __lbuttondown__(state, x, y)
+      self.SetCapture
+    end
+    
+    def __paint__(cv)
+      return unless @_face
+      w, h = windowsize
+      if @is_horiz
+        fc = @_face[1]
+        n = w / fc.width + 1
+        offset = (h - fc.height) / 2
+        offset = 0 if offset < 0
+        n.times{|i| cv.BitBlt(i*fc.width, offset, fc)}
+      else
+        fc = @_face[0]
+        n = h / fc.height + 1
+        offset = (w - fc.width) / 2
+        offset = 0 if offset < 0
+        n.times{|i| cv.BitBlt(offset, i*fc.height, fc)}
+      end
+    end
+    
+    def _resize_panes()
+      return unless @_parent.alive?
+      if @is_horiz
+        y0, y1 = @mother ? @mother.__get_vrange(self) : [0, @_parent.clientsize[1]]
+        @lu_pane.each{|i| i.__move(x, y0, w, y-y0)}
+        @rl_pane.each{|i| i.__move(x, y+h, w, y1-y-h)}
+      else
+        x0, x1 = @mother ? @mother.__get_hrange(self) : [0, @_parent.clientsize[0]]
+        @lu_pane.each{|i| i.__move(x0, y, x-x0, h)}
+        @rl_pane.each{|i| i.__move(x+w, y, x1-x-w, h)}
+      end
+    end
+    
+    def __move__(state, _x, _y)
+      _resize_panes()
+    end
+    
+    def __mousemove__(state, _x, _y)
+      return if (state & MK_LBUTTON) == 0
+      if @is_horiz
+        ly0, ly1 = @limit
+        y0, y1 = @mother ? @mother.__get_vrange(self) : [0, @_parent.clientsize[1]]
+#        self.move(x, _y+y)
+#        return
+        if y+_y < y0+ly0
+          self.move(x, y0+ly0)
+        elsif y+_y >= (y1-ly1)
+          self.move(x, y1-ly1-h)
+        else
+          self.move(x, _y+y)
+        end
+      else
+        lx0, lx1 = @limit
+        x0, x1 = @mother ? @mother.__get_hrange(self) : [0, @_parent.clientsize[0]]
+        if x+_x < x0+lx0
+          self.move(x0+lx0, y)
+        elsif x+_x >= (x1-lx1)
+          self.move(x1-lx1-w, y)
+        else
+          self.move(_x+x, y)
+        end
+      end
+    end
+    
+    def __setcursor__(hwnd, hittest, msg)
+      return unless hittest==1
+      APP.SetCursor @cursor
+      CancelDefWindowProc
+    end
+  end
+end