exerb 6.0.1

data/example/vr/contrib/vrhotkey.rb

@@ -0,0 +1,35 @@
+###############################
+#
+# contrib/vrhotkey.rb
+#
+# These modules/classes are contributed by Yuya-san.
+# Modified by nyasu <nyasu@osk.3web.ne.jp>
+# Distributed at http://vruby.sourceforge.net/index.html
+#
+###############################
+
+
+#====================================================================#
+# WConst Module
+module WConst
+  WM_HOTKEY = 786
+end
+
+#====================================================================#
+# VRHotKey Module
+module VRHotKey
+
+  #==================================================================#
+  # Instance Methods
+
+  def vrinit
+    super
+    self.addHandler(WConst::WM_HOTKEY, 'hotkey', MSGTYPE::ARGWINT, nil)
+    self.addEvent(WConst::WM_HOTKEY)
+  end
+
+end
+
+#====================================================================#
+# End of source.
+#====================================================================#

data/example/vr/contrib/vrlistviewex.rb

@@ -0,0 +1,71 @@
+###############################
+#
+# contrib/vrlistviewex.rb
+#
+# These modules/classes are contributed by Yuya-san.
+# Modified by nyasu <nyasu@osk.3web.ne.jp>
+# Distributed at http://vruby.sourceforge.net/index.html
+#
+###############################
+
+#====================================================================#
+# VRListview Class
+class VRListview
+
+  #==================================================================#
+  # Private Instance Methods
+
+  def exstyle_getter(style)
+    return (self.lvexstyle & style) == style
+  end
+  private :exstyle_getter
+
+  def exstyle_setter(style, bool)
+    if bool
+      self.lvexstyle |= style
+    else
+      self.lvexstyle &= 0xFFFFFFFF - style
+    end
+  end
+  private :exstyle_setter
+
+  #==================================================================#
+  # Instance Methods
+
+  def row_select
+    return exstyle_getter(WExStyle::LVS_EX_FULLROWSELECT)
+  end
+
+  def row_select=(bool)
+    exstyle_setter(WExStyle::LVS_EX_FULLROWSELECT, bool)
+  end
+
+  def grid_lines
+    return exstyle_getter(WExStyle::LVS_EX_GRIDLINES)
+  end
+
+  def grid_lines=(bool)
+    exstyle_setter(WExStyle::LVS_EX_GRIDLINES, bool)
+  end
+
+  def hide_selection
+    return !self.winstyle.getter(WStyle::LVS_SHOWSELALWAYS)
+  end
+
+  def hide_selection=(bool)
+    self.winstyle.setter(WStyle::LVS_SHOWSELALWAYS, !bool)
+  end
+
+  def extended_select
+    return !self.winstyle.getter(WStyle::LVS_SINGLESEL)
+  end
+
+  def extended_select=(bool)
+    self.winstyle.setter(WStyle::LVS_SINGLESEL, !bool)
+  end
+
+end
+
+#====================================================================#
+# End of source.
+#====================================================================#

data/example/vr/contrib/vrstdscrollbar.rb

@@ -0,0 +1,414 @@
+###############################
+#
+# contrib/vrctlcolor.rb
+#
+# These module is contributed by yas-san.
+# Modified by nyasu <nyasu@osk.3web.ne.jp>
+# Distributed at http://vruby.sourceforge.net/index.html
+#
+###############################
+
+
+=begin
+== VRStdScrollbar
+�E�C���h�E�͐����Ɛ����̃X�N���[���o�[�������Ă��܂��B
+�X�N���[���o�[�̓E�C���h�E�X�^�C����WS_VSCROLL��WS_HSCROLL���w�肷�邱�Ƃŕ\������܂��B
+���̃��W���[���̓E�C���h�E�̃X�N���[���o�[���������܂��B
+
+���̃��W���[�����R���g���[���ɑg�ݍ��񂾂Ƃ��̌��ʂ����L�Ɏ����܂��B
+
+* ���Ȃ�
+  * VRForm
+  * VRPanel
+  * VRCanvasPanel
+  * VRButton
+  * VRCheckbox
+  * VRRadiobutton
+* SDK�Œ�`�ς݁B�g�ݍ��ޕK�v�͂Ȃ�
+  * VREdit
+  * VRText
+  * VRRichedit
+  * VRList
+* ��肠��
+  * VRCombobox
+  * VREditCombobox
+  * VRGroupbox
+  * VRStatic
+  
+=== Methods
+--- getVScrollRange
+    �����X�N���[���o�[�͈̔͂�Ԃ��܂��B[((|min|)),((|max|))]�̃t�H�[�}�b�g�ŕԂ�܂��B
+    ((|min|))�͍ŏ��l�A((|max|))�͍ő�l�ł��B
+
+--- setVScrollRange(min,max)
+    �����X�N���[���o�[�͈̔͂�ݒ肵�܂��B ((|min|)) �͍ŏ��l�A ((|max|)) �͍ő�l�ł��B
+
+--- getHScrollRange
+--- setHScrollRange
+    �����X�N���[���o�[�͈̔͂��擾�܂��͐ݒ肵�܂��B ((<getVScrollRange>)),
+    ((<setVScrollRange>)) ���Q�Ƃ��Ă��������B
+    
+--- vscroll_position
+--- vscroll_position=(val)
+    �����X�N���[���o�[�̈ʒu���擾�܂��͐ݒ肵�܂��B
+
+--- hscroll_position
+--- hscroll_position=(val)
+    �����X�N���[���o�[�̈ʒu���擾�܂��͐ݒ肵�܂��B
+
+--- vscroll_pagesize
+--- vscroll_pagesize=(val)
+    �����X�N���[���o�[�̃y�[�W�T�C�Y���擾�܂��͐ݒ肵�܂��B
+    �X�N���[���o�[�́A�S�̂̑傫���Ƃ��̒l�̔䂩��K�؂Ȃ‚܂݂̑傫�������߂܂��B
+
+--- hscroll_pagesize
+--- hscroll_pagesize=(val)
+    �����X�N���[���o�[�̃y�[�W�T�C�Y���擾�܂��͐ݒ肵�܂��B
+    ((<vscroll_pagesize>)),((<vscroll_pagesize=>))���Q�Ƃ��Ă��������B
+
+--- vscroll_smallstep
+--- vscroll_smallstep=(val)
+    �����X�N���[���o�[�̏������ړ��ʂ��擾�܂��͐ݒ肵�܂��B
+    �X�N���[���o�[�̖��{�^�����N���b�N���ꂽ�ꍇ�A���̒l�̓X�N���[���o�[��
+    �ʒu�։������܂��B
+    
+--- hscroll_smallstep
+--- hscroll_smallstep=(val)
+    �����X�N���[���o�[�̏������ړ��ʂ��擾�܂��͐ݒ肵�܂��B
+    ((<hscroll_smallstep>)),((<hscroll_smallstep=>))���Q�Ƃ��Ă��������B
+    
+--- vscroll_longstep
+--- vscroll_longstep=(val)
+    �����X�N���[���o�[�̑傫���ړ��ʂ��擾�܂��͐ݒ肵�܂��B
+    �X�N���[���o�[�̔w�i���N���b�N���ꂽ�ꍇ�A���̒l�̓X�N���[���o�[��
+    �ʒu�։������܂��B
+
+--- hscroll_longstep
+--- hscroll_longstep=(val)
+    �����X�N���[���o�[�̑傫���ړ��ʂ��擾�܂��͐ݒ肵�܂��B
+    ((<hscroll_longstep>)),((<hscroll_longstep=>))���Q�Ƃ��Ă��������B
+
+=== Events
+--- vscroll(code)
+--- hscroll(code)
+    �����܂��͐����X�N���[���o�[���������ꂽ�B((|code|))�̓��[�U�[���v������
+    �X�N���[������̈Ӗ��������܂��B�ڂ�����MSDN��WM_VSCROLL�̍����Q�Ƃ��Ă��������B
+
+== VRStdScrollbar
+The windows have vertical and the horizontal scroll bar.
+The scroll bar is displayed by specifying WS_VSCROLL or WS_HSCROLL of the window style. 
+This module processes the scroll bars on the window. 
+
+Result of using this module
+
+* no problem
+  * VRForm
+  * VRPanel
+  * VRCanvasPanel
+  * VRButton
+  * VRCheckbox
+  * VRRadiobutton
+* defined by SDK. no necessity to include. 
+  * VREdit
+  * VRText
+  * VRRichedit
+  * VRList
+* not effective. 
+  * VRCombobox
+  * VREditCombobox
+  * VRGroupbox
+  * VRStatic
+
+=== Methods
+--- getVScrollRange
+    returns the range of the vertical scroll bars. It returns by the format of 
+    [((|min|)), ((|max|))] .((|min|)) is the minimum value and ((|max|)) is maximum.
+
+--- setVScrollRange(min,max)
+    Specifies the range of the vertical scroll bar.
+    ((|min|)) is the minimum value and ((|max|)) is maximum.
+
+--- getHScrollRange
+--- setHScrollRange
+    Retrieves or specifies range of the horizontal scroll bar.
+    Refer to ((<getVScrollRange>)) , ((<setVScrollRange>))
+    
+--- vscroll_position
+--- vscroll_position=(val)
+    Retrieves or Specifies position of the vertical scroll bar.
+
+--- hscroll_position
+--- hscroll_position=(val)
+    Retrieves or Specifies position of the horizontal scroll bar.
+
+--- vscroll_pagesize
+--- vscroll_pagesize=(val)
+    Retrieves or Specifies the page size of vertical scroll bar.
+    A scroll bar uses this value to determine the appropriate size of 
+    the proportional scroll box. 
+
+--- hscroll_pagesize
+--- hscroll_pagesize=(val)
+    Retrieves or Specifies the page size of horizontal scroll bar.
+    Refer to ((<vscroll_pagesize>)),((<vscroll_pagesize=>))
+
+--- vscroll_smallstep
+--- vscroll_smallstep=(val)
+    Retrieves or Specifies the small step of the vertical scroll bar. 
+    If the arrow button of the scroll bar was clicked, this value is added to
+    the position of the scroll bar. 
+
+--- hscroll_smallstep
+--- hscroll_smallstep=(val)
+    Retrieves or Specifies the small step of the horizontal scroll bar. 
+    Refer to ((<hscroll_smallstep>)),((<hscroll_smallstep=>))
+
+--- vscroll_longstep
+--- vscroll_longstep=(val)
+    Retrieves or Specifies the long step of the vertical scroll bar. 
+    If the background of the scroll bar was clicked, this value is added to
+    the position of the scroll bar. 
+
+--- hscroll_longstep
+--- hscroll_longstep=(val)
+    Retrieves or Specifies the long step of the horizontal scroll bar. 
+    Refer to ((<hscroll_longstep>)),((<hscroll_longstep=>))
+
+=== Events
+--- vscroll(code)
+--- hscroll(code)
+    the vertical or horizontal scroll bar was moved.((|code|)) that indicates 
+    the user's scrolling request. Refer to the paragraph of WM_VSCROLL in MSDN
+    
+=end
+
+module VRStdScrollbar
+  include VRMessageHandler
+  
+  SB_HORZ=0
+  SB_VERT=1
+  SB_CTL=2
+  
+  private
+  
+  #mask of scroll info
+  SIF_RANGE=0x0001
+  SIF_PAGE=0x0002
+  SIF_POS=0x0004
+  SIF_DISABLENOSCROLL=0x0008
+  SIF_TRACKPOS=0x0010
+  SIF_ALL=(SIF_RANGE | SIF_PAGE | SIF_POS | SIF_TRACKPOS)
+  
+  SetScrollInfo=Win32API.new('user32','SetScrollInfo',%w(l l p l),'l')
+  GetScrollInfo=Win32API.new('user32','GetScrollInfo',%w(l l p),'l')
+  
+  def stdscrollbarinit
+    addHandler WMsg::WM_HSCROLL,"hstdscroll",MSGTYPE::ARGINTINT,nil
+    addHandler WMsg::WM_VSCROLL,"vstdscroll",MSGTYPE::ARGINTINT,nil
+    acceptEvents [ WMsg::WM_HSCROLL,WMsg::WM_VSCROLL]
+    @scroll_smallstep_vert=1 ; @scroll_smallstep_horz=1
+    @scroll_longstep_vert=10 ; @scroll_longstep_horz=10
+  end
+  
+  def setScrollInfo(btyp,mask=SIF_ALL,min=0,max=100,page=100,pos=0)
+    si=[4*7,mask,min,max,page,pos,0].pack(WStruct::SCROLLINFO)
+    SetScrollInfo.call(self.hWnd,btyp,si,1)
+  end
+  
+  def getScrollInfo(btyp)
+    si=[4*7,SIF_ALL,0,0,0,0,0].pack(WStruct::SCROLLINFO)
+    GetScrollInfo.call(self.hWnd,btyp,si)
+    return si.unpack(WStruct::SCROLLINFO)
+  end
+  
+  public
+  
+  def vrinit
+    super
+    stdscrollbarinit
+  end
+  
+  def getScrollRange(bar_type)
+    return getScrollInfo(bar_type)[2,3]
+  end
+  
+  def getVScrollRange
+    return getScrollRange(SB_VERT)
+  end
+  
+  def getHScrollRange
+    return getScrollRange(SB_HORZ)
+  end
+  
+  def setScrollRange(min,max,bar_type)
+    setScrollInfo(bar_type,SIF_RANGE,min.to_i,max.to_i)
+  end
+  
+  def setVScrollRange(min,max)
+    setScrollRange(min,max,SB_VERT)
+  end
+  
+  def setHScrollRange(min,max)
+    setScrollRange(min,max,SB_HORZ)
+  end
+  
+  def scroll_position(bar_type)
+    return getScrollInfo(bar_type)[5]
+  end
+  
+  def vscroll_position
+    return scroll_position(SB_VERT)
+  end
+  
+  def hscroll_position
+    return scroll_position(SB_HORZ)
+  end
+  
+  def setScrollPosition(val,bar_type)
+    setScrollInfo(bar_type,SIF_POS,0,0,0,val.to_i)
+  end
+  
+  def vscroll_position=(val)
+    setScrollPosition(val,SB_VERT)
+  end
+  
+  def hscroll_position=(val)
+    setScrollPosition(val,SB_HORZ)
+  end
+  
+  def scroll_pagesize(bar_type)
+    return getScrollInfo(bar_type)[4]
+  end
+  
+  def vscroll_pagesize
+    return scroll_pagesize(SB_VERT)
+  end
+  
+  def hscroll_pagesize
+    return scroll_pagesize(SB_HORZ)
+  end
+  
+  def setScrollPagesize(p,bar_type)
+    setScrollInfo(bar_type,SIF_PAGE,0,0,p.to_i,0)
+  end
+  
+  def vscroll_pagesize=(p)
+    setScrollPagesize(p,SB_VERT)
+  end
+  
+  def hscroll_pagesize=(p)
+    setScrollPagesize(p,SB_HORZ)
+  end
+  
+  def scroll_smallstep(bar_type)
+    res=case bar_type
+    when SB_HORZ
+      @scroll_smallstep_horz
+    when SB_VERT
+      @scroll_smallstep_vert
+    else
+      1
+    end
+    return res
+  end
+  
+  def vscroll_smallstep
+    return scroll_smallstep(SB_VERT)
+  end
+  
+  def hscroll_smallstep
+    return scroll_smallstep(SB_HORZ)
+  end
+  
+  def setScrollSmallstep(stp,bar_type)
+    case bar_type
+    when SB_HORZ
+      @scroll_smallstep_horz=stp
+    when SB_VERT
+      @scroll_smallstep_vert=stp
+    end
+  end
+  
+  def vscroll_smallstep=(stp)
+    setScrollSmallstep(stp,SB_VERT)
+  end
+  
+  def hscroll_smallstep=(stp)
+    setScrollSmallstep(stp,SB_HORZ)
+  end
+  
+  def scroll_longstep(bar_type)
+    res=case bar_type
+    when SB_HORZ
+      @scroll_longstep_horz
+    when SB_VERT
+      @scroll_longstep_vert
+    else
+      10
+    end
+    return res
+  end
+  
+  def vscroll_longstep
+    return scroll_longstep(SB_VERT)
+  end
+  
+  def hscroll_longstep
+    return scroll_longstep(SB_HORZ)
+  end
+  
+  def setScrollLongstep(stp,bar_type)
+    case bar_type
+    when SB_HORZ
+      @scroll_longstep_horz=stp
+    when SB_VERT
+      @scroll_longstep_vert=stp
+    end
+  end
+  
+  def vscroll_longstep=(stp)
+    setScrollLongstep(stp,SB_VERT)
+  end
+  
+  def hscroll_longstep=(stp)
+    setScrollLongstep(stp,SB_HORZ)
+  end
+  
+  def self_vrstdscroll(wparam,hwnd,bar_type)
+    srl=self
+    code=LOWORD(wparam)
+    if code==4 then
+      pos=HIWORD(wparam)
+    else
+      pos=srl.scroll_position(bar_type)
+    end
+    new_pos=case code
+    when 0 
+      pos-srl.scroll_smallstep(bar_type)
+    when 1
+      pos+srl.scroll_smallstep(bar_type)
+    when 2
+      pos-srl.scroll_longstep(bar_type)
+    when 3
+      pos+srl.scroll_longstep(bar_type)
+    when 4
+      pos
+    else
+      nil
+    end
+    if new_pos
+      srl.setScrollPosition(new_pos,bar_type)
+    end
+    return code
+  end
+  
+  def self_hstdscroll(wparam,hwnd)
+    code=self_vrstdscroll(wparam,hwnd,SB_HORZ)
+    selfmsg_dispatching(:hscroll,code)
+  end
+  
+  def self_vstdscroll(wparam,hwnd)
+    code=self_vrstdscroll(wparam,hwnd,SB_VERT)
+    selfmsg_dispatching(:vscroll,code)
+  end
+end