wrb 2.0.0

data/lib/wrb/components/menubar.rb

@@ -0,0 +1,84 @@
+
+module WR
+  require_relative './menu' unless defined?(Menu)
+  
+  # The main menu that is arranged at the top position of the window.<br>
+  # This is inherited all methods from Menu.
+  class Menubar < Menu
+    
+=begin
+following methods are defined in the super class.
+:singleton_methods
+  self.new(name, caption, menu-item_or_sub-menu, ... )
+=end
+    
+    # self.[](name, caption, menu-item_or_sub-menu, ... )
+    # Creates a menu but not alive with given arguments.<br>
+    # A <i>menu-item</i> must be a pair of name and caption, and <i>name</i> must be a symbol.
+    def self.[](*args) 
+      self.new(*args)
+    end
+    
+    # Creates and shows this menubar at the top position of the window.
+    def create()
+      createmenu()
+      _create_substance
+      @_parent.SetMenu(self) # SetMenu sends WM_SIZE to parent.
+    end
+  end
+end
+
+
+__END__
+module WR
+  class MyForm < Form
+    def initialize()
+      resize 400, 300
+      _<< Menubar[:menubar1, Menu[:file, "File", :open, "Open", Menu[:recent, "Recent", :myfile, "myfile1", :myfile, "myfile2"], :sep, :close, "Close\tAlt+F4"], Menu[:edit, "Edit", :cut, "Cut\tCtrl+X", :copy, "Copy\tCtrl+C", :paste, "Paste\tCtrl+V"]]
+      _<< Button[:btn1, 'Test1', 0, 0, 80, 24]
+      _<< Button[:btn2, 'Test2', 80, 0, 80, 24]
+    end
+    def created()
+      dpp _menubar1.file1
+    end
+      
+    def btn1_clicked(*)
+      _.menubar1._delete
+    end
+    
+    def btn2_clicked(*)
+      _.menubar1.file._delete(2)
+    end
+    
+    def cut_clicked(*args)
+      dpp args
+    end
+    
+    self.start
+  end
+end if __FILE__ == $0
+
+__END__
+module WR
+  class MyForm < Form
+    def initialize()
+      move 100, 500, 320, 240
+      _<< Menubar[:main, Menu[:file, "&File"], Menu[:edit, "Edit"], Menu[:help, "Help", MFT_RIGHTJUSTIFY]]
+      _.main.help.imagelist = Imagelist.loadb64  "JJMAIBAIAAwAAgACAACAAf7/f7/AsAYoBQkImnYAAAAACAIEAgRRAMAgQEAEEBQADAwCA2QEgQoAAAAAAAABANhAAAAICB6CAQEAc4BoQCwADAYDAACAgEiAH+AAA/4LoP9/wBzgIBALCEAMFH4MfwdfhD/CZ+FX8L34Z/w4fh5/EF+Iv8Sn4nfxTfiv/Fx+MH8ZX40/xufjl/Hd+Pf8gH5CfyJfkb/JJ+S38m1URJbGT18oxl2uJS/yqZgQfLHuDB8ue4MHwIMXcKH5lMguFD80iwXBB+EF83v51xgtYAAAAuIF86poEHwfdAAAihfPphdrtdw4foEwC12u4QYUGvoWfQ+8AAAhE0fUdkgEDR2sA0kDANHb6VI0vgpH/Sh+ln9MX6a/06fp9/TROpoT8P9Ts34PwBAQMfwEEgMaH6sZv4H1azf6HgEIw6vZudxgCsITngEI44DCPAD1mzfEEBKnw1rR"
+#
+      
+      _.main.file << [:open, "&Open\tCtrl+O", 1, :save, "&Save", 2, Menu[:recent, "&Recent"], :sep, :exit, "Exit", 5]
+      _.main.edit << [:cut, "Cut\tCtrl+X", 1, :copy, "Copy\tCtrl+C", :paste, "Paste\tCtrl+V"]
+      _.main.help << [:help1, "Help", 0, :version, "Version"]
+      
+      _.main.file.imagelist = Imagelist.loadb64 "JJMAIBAwABAAAgACAACAAf7/f7/AsAYoBQkImnYAAAAACAIEAgRRAMAgQEAEEBQADAwCA2QEgQoAAAAAAAABANhAAAAICB6CAQEAc4BoQCwADAYDAACAgEiAH+AAA/4LoP9/wBzgIBALCEAMFH4MeghEIhEIhEAAFKqFcKqUEILgRDGF8QIBfT/f8CDwACH+iEQj4EBQQgggfAgCIOEEAX0qlUr4MHwQHVUCD4mAwgGgQfFPKEA0ED4ECQgPizzDA+MLcQAYkBxAPhQHEABARQPjlrBAIARYAhwAqosHgCMAMd8AVAfKMB8hJYEHyLPkffJQ+TF0f8kAAERIHGTOCIgEJARZHyxhgQAMxmMxmOAAAERAIQAQGEAECBEWg4EIoAAIuAQkCDUeuIIJo+AQkEDn3BBNFwCEggcv1xKpJHwCEgge+0ym5k4It9vt9PuZYMKDEev1+mU/NHCAQCqV8CDwAi32iEymEAkIBAIpVKqCBj4RCAjTgAEymQAmY14SqAmTDEYCAwMQgXw+J7JJlMplMpCfGE0U4EAwGBgUCgAWsJ/YAmBCMCAVVQIGAwVBEJvxQHxAEGEIIBwYinLFQxQFguh0iZohDIrGdRYLAEEEwBB/EAACFElG4iETR9R2SAQNHawDSQMA0dvpUjS+CmEVLUXAA0BAtJwANAAEAUxgcADQABgMeAABAo+Bx8FAgPBQQHwWED8GA3+/0BCVKp0MIRKoov9gAcAB8AB9gAeAQAPAAPgEEBwBAOCAwADAADgMEAQAAYEBVZAgUFAwWBwoXggGjBmgIJAg9+AF+H9gA9gBl/AB+D9gB9gDd/gF+AFgD9/ut/vN/AGtwDtf73f8AgA="
+      
+    end
+    
+    def created()
+      _.main.file.recent << [:recrntfile, "file1.rb", :recentfile, "file2.rb"]
+    end
+    
+    self.start
+  end
+end if $0 == __FILE__

data/lib/wrb/components/monthcalender.rb

@@ -0,0 +1,164 @@
+require 'wrb'
+require 'wrb/commctrlconst'
+
+module WR
+  module RC
+    MCM_FIRST = 0x1000
+    MCM_GETCURSEL = MCM_FIRST+1
+    MCM_SETCURSEL = MCM_FIRST+2
+    MCM_GETMAXSELCOUNT = MCM_FIRST+3
+    MCM_SETMAXSELCOUNT = MCM_FIRST+4
+    MCM_GETSELRANGE = MCM_FIRST+5
+    MCM_SETSELRANGE = MCM_FIRST+6
+    MCM_GETMONTHRANGE = MCM_FIRST+7
+    MCM_SETDAYSTATE = MCM_FIRST+8
+    MCM_GETMINREQRECT = MCM_FIRST+9
+    MCM_SETCOLOR = MCM_FIRST+10
+    MCM_GETCOLOR = MCM_FIRST+11
+    MCM_SETTODAY = MCM_FIRST+12
+    MCM_GETTODAY = MCM_FIRST+13
+    MCM_HITTEST = MCM_FIRST+14
+    MCM_SETMCM_FIRSTDAYOFWEEK = MCM_FIRST+15
+    MCM_GETMCM_FIRSTDAYOFWEEK = MCM_FIRST+16
+    MCM_GETRANGE = MCM_FIRST+17
+    MCM_SETRANGE = MCM_FIRST+18
+    MCM_GETMONTHDELTA = MCM_FIRST+19
+    MCM_SETMONTHDELTA = MCM_FIRST+20
+    MCM_GETMAXTODAYWIDTH = MCM_FIRST+21
+    MCM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT
+    MCM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT
+    
+    MCSC_BACKGROUND = 0
+    MCSC_TEXT = 1
+    MCSC_TITLEBK = 2
+    MCSC_TITLETEXT = 3
+    MCSC_MONTHBK = 4
+    MCSC_TRAILINGTEXT = 5
+    
+    MCHT_TITLE = 0x10000
+    MCHT_CALENDAR = 0x20000
+    MCHT_TODAYLINK = 0x30000
+
+    MCHT_NEXT = 0x1000000
+    MCHT_PREV = 0x2000000
+
+    MCHT_NOWHERE = 0x0
+
+    MCHT_TITLEBK = MCHT_TITLE
+    MCHT_TITLEMONTH = MCHT_TITLE | 0x1
+    MCHT_TITLEYEAR = MCHT_TITLE | 0x2
+    MCHT_TITLEBTNNEXT = MCHT_TITLE | MCHT_NEXT | 0x3
+    MCHT_TITLEBTNPREV = MCHT_TITLE | MCHT_PREV | 0x3
+
+    MCHT_CALENDARBK = MCHT_CALENDAR
+    MCHT_CALENDARDATE = MCHT_CALENDAR | 0x1
+    MCHT_CALENDARDATENEXT = MCHT_CALENDARDATE | MCHT_NEXT
+    MCHT_CALENDARDATEPREV = MCHT_CALENDARDATE | MCHT_PREV
+    MCHT_CALENDARDAY = MCHT_CALENDAR | 0x2
+    MCHT_CALENDARWEEKNUM = MCHT_CALENDAR | 0x3
+    
+    MCN_FIRST = -750
+    MCN_SELCHANGE     = MCN_FIRST+1
+    MCN_GETDAYSTATE = MCN_FIRST+3
+    MCN_SELECT            = MCN_FIRST+4
+    
+    MCS_DAYSTATE = 0x1
+    MCS_MULTISELECT = 0x2
+    MCS_WEEKNUMBERS = 0x4
+    MCS_NOTODAYCIRCLE = 0x8
+    MCS_NOTODAY = 0x10
+    
+    GMR_VISIBLE = 0
+    GMR_DAYSTATE = 1
+  end
+  
+  # This control implements a calendar-like user interface. 
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Monthcalender < WinControl #CommonControl
+    
+    MCHITTESTINFO= API.defstruct "
+      UINT cbSize;
+      POINT pt;
+      UINT uHit;
+      SYSTEMTIME st;"
+    
+    NMSELCHANGE = API.defstruct "
+      NMHDR nmhdr;
+      SYSTEMTIME stSelStart;
+      SYSTEMTIME stSelEnd;"
+    
+    API.typealias("MONTHDAYSTATE", "DWORD")
+    NMDAYSTATE = API.defstruct "
+      NMHDR nmhdr;
+      SYSTEMTIME stStart;
+      int cDayState;
+      MONTHDAYSTATE *prgDayState;"
+    
+    WinStyle = {
+      :daystate => MCS_DAYSTATE,
+      :multiselect => MCS_MULTISELECT,
+      :weeknumbers => MCS_WEEKNUMBERS,
+      :notodaycircle => MCS_NOTODAYCIRCLE,
+      :notoday => MCS_NOTODAY
+    }
+    
+    PreDefinedEvents = {
+      :SELCHANGE => [WM_NOTIFY, MCN_SELCHANGE, 'xs', NMSELCHANGE],
+      :GETDAYSTATE => [WM_NOTIFY, MCN_GETDAYSTATE, 'xs', NMDAYSTATE],
+      :SELECT => [WM_NOTIFY, MCN_SELECT, 'xs', NMSELCHANGE]
+    }
+    DefaultEvents = []
+    
+    def initialize(*args)
+      super
+      @_classname = "SysMonthCal32"
+      @_acceptable_events = PreDefinedEvents.dup
+    end
+    #
+    def create()
+      super
+    end
+    
+    #### Methods only for window alive.
+    
+    # Retrieves the minimum size required to display a full month in this month calendar control. 
+    def minrect()
+      rc = RECT.new
+      SendMessage(MCM_GETMINREQRECT, 0, rc)
+      rc
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st=WinStyles[arg]
+        self.style |= st
+      end
+      super
+    end
+  end
+end
+
+module WR
+  class Form1 < Form
+    def initialize()
+      controls.add Button.new(:bt1, 'Click Me', 200, 0, 80, 24)
+      controls.add Monthcalender.new(:mc1, '', 200, 200, 230, 190, :weeknumbers)
+    end
+    
+    def created()
+      rc = controls.mc1.minrect
+      controls.mc1.move(rc.right, rc.bottom)
+#      controls.mc1.w = rc.right
+#      controls.mc1.h = rc.bottom
+    end
+    
+    def bt1_clicked(*)
+      controls.mc1.move 0, 0
+#      controls.mc1.x = 0
+#      controls.mc1.y = 0
+    end
+  end
+  
+  Form1.start
+end if __FILE__ == $0

data/lib/wrb/components/openfilenamedlg.rb

@@ -0,0 +1,147 @@
+require 'wrb/commdlg'
+
+module WR
+  OFN_READONLY = 0x1
+  OFN_OVERWRITEPROMPT = 0x2
+  OFN_HIDEREADONLY = 0x4
+  OFN_NOCHANGEDIR = 0x8
+  OFN_SHOWHELP = 0x10
+  OFN_ENABLEHOOK = 0x20
+  OFN_ENABLETEMPLATE = 0x40
+  OFN_ENABLETEMPLATEHANDLE = 0x80
+  OFN_NOVALIDATE = 0x100
+  OFN_ALLOWMULTISELECT = 0x200
+  OFN_EXTENSIONDIFFERENT = 0x400
+  OFN_PATHMUSTEXIST = 0x800
+  OFN_FILEMUSTEXIST = 0x1000
+  OFN_CREATEPROMPT = 0x2000
+  OFN_SHAREAWARE = 0x4000
+  OFN_NOREADONLYRETURN = 0x8000
+  OFN_NOTESTFILECREATE = 0x10000
+  OFN_NONETWORKBUTTON = 0x20000
+  OFN_NOLONGNAMES = 0x40000
+  OFN_EXPLORER = 0x80000
+  OFN_NODEREFERENCELINKS = 0x100000
+  OFN_LONGNAMES = 0x200000
+  OFN_ENABLEINCLUDENOTIFY = 0x400000
+  OFN_ENABLESIZING = 0x800000
+  OFN_DONTADDTORECENT = 0x2000000
+  OFN_FORCESHOWHIDDEN = 0x10000000
+  OFN_EX_NOPLACESBAR = 0x1
+  OFN_SHAREFALLTHROUGH = 2
+  OFN_SHARENOWARN = 1
+  OFN_SHAREWARN = 0
+  
+  # A dialog box that lets the user specify the drive, directory, and the name of a file or set of files to open. 
+  class OpenFileNameDlg < CommonDialog
+    API.typealias 'LPOFNHOOKPROC', 'Q'
+    OPENFILENAME = API.defstruct "
+      DWORD lStructSize;
+      HWND hwndOwner;
+      HINSTANCE hInstance;
+      LPCTSTR lpstrFilter;
+      LPTSTR lpstrCustomFilter;
+      DWORD nMaxCustFilter;
+      DWORD nFilterIndex;
+      LPTSTR lpstrFile;
+      DWORD nMaxFile;
+      LPTSTR lpstrFileTitle;
+      DWORD nMaxFileTitle;
+      LPCTSTR lpstrInitialDir;
+      LPCTSTR lpstrTitle;
+      DWORD Flags;
+      WORD nFileOffset;
+      WORD nFileExtension;
+      LPCTSTR lpstrDefExt;
+      LPARAM lCustData;
+      LPOFNHOOKPROC lpfnHook;
+      LPCTSTR lpTemplateName;
+      void *pvReserved;
+      DWORD dwReserved;
+      DWORD FlagsEx;"
+  
+    API.defun 'GetOpenFileName(OPENFILENAME ofn)'
+    
+    def self.show(owner=nil, caption: "", filter: "", flags: nil, initialdir: nil, filename: "")
+      ofn = self.new()
+      ofn.caption = caption
+      ofn.filter = filter
+      ofn.flags = flags || OFN_EXPLORER
+      ofn.initialdir = initialdir if initialdir
+      ofn.filename = filename
+      ofn.show(owner)
+    end
+    
+    MAXFILENAME = 4096
+    
+    def initialize()
+      @_openfilename = OPENFILENAME[OPENFILENAME::Size]
+      @buff = API::TCHAR[MAXFILENAME]
+      @_openfilename.lpstrFile = @buff
+      @_openfilename.nMaxFile = MAXFILENAME
+    end
+    
+    def title()
+      @_openfilename.lpstrTitle
+    end
+    def title=(str)
+      @_openfilename.lpstrTitle = str
+    end
+    alias caption title
+    alias caption= title=
+    
+    def filter()
+      @_openfilename.lpstrFilter
+    end
+    def filter=(*str)
+      @_openfilename.lpstrFilter = str.join("\0")
+    end
+    
+    def filename=(str)
+      @_openfilename.lpstrFile[0] = str.to_s
+    end
+    
+    def initialdir()
+      @_openfilename.lpstrInitialDir.to_s
+    end
+    def initialdir=(str)
+      @_openfilename.lpstrInitialDir = str.tr('/', '\\')
+    end
+    
+    def flags()
+      @_openfilename.Flags
+    end
+    def flags=(f)
+      @_openfilename.Flags = f
+    end
+    
+    def _openfilename()
+      @_openfilename
+    end
+    
+    def show(owner=nil)
+      @_openfilename.hwndOwner = owner._hwnd if owner
+      r = API.getOpenFileName(@_openfilename)
+      return nil if r == 0
+      (@_openfilename.Flags & OFN_ALLOWMULTISELECT != 0) ? @buff.to_s.split("\0") : @buff.to_s
+    end
+    alias open show
+  end
+end
+
+module WR
+  require 'wrb'
+  
+  class Myform < Form
+    def initialize()
+      _<< Button[:bt1, 'Click me', 0, 0, 80, 24]
+    end
+    def bt1_clicked(*)
+      dpp OpenFileNameDlg.show(self, caption: "Please select file", 
+                           flags: OFN_EXPLORER | OFN_ALLOWMULTISELECT,
+                           initialdir: "c:\\Users",
+                           filter: ["all(*.*)", "*.*", "ruby(*.rb?)", "*.rb?"])
+    end
+    self.start
+  end
+end if $0 == __FILE__

data/lib/wrb/components/pager.rb

@@ -0,0 +1,199 @@
+require 'wrb'
+require 'wrb/commctrlconst'
+
+module WR
+  module RC
+    PGS_VERT       = 0x0
+    PGS_HORZ       = 0x1
+    PGS_AUTOSCROLL = 0x2
+    PGS_DRAGNDROP  = 0x4
+    
+    PGF_INVISIBLE = 0
+    PGF_NORMAL    = 1
+    PGF_GRAYED    = 2
+    PGF_DEPRESSED = 4
+    PGF_HOT       = 8
+    
+    PGB_TOPORLEFT     = 0
+    PGB_BOTTOMORRIGHT = 1
+    
+    PGM_FIRST          = 0x1400
+    PGM_SETCHILD       = PGM_FIRST+1
+    PGM_RECALCSIZE     = PGM_FIRST+2
+    PGM_FORWARDMOUSE   = PGM_FIRST+3
+    PGM_SETBKCOLOR     = PGM_FIRST+4
+    PGM_GETBKCOLOR     = PGM_FIRST+5
+    PGM_SETBORDER      = PGM_FIRST+6
+    PGM_GETBORDER      = PGM_FIRST+7
+    PGM_SETPOS         = PGM_FIRST+8
+    PGM_GETPOS         = PGM_FIRST+9
+    PGM_SETBUTTONSIZE  = PGM_FIRST+10
+    PGM_GETBUTTONSIZE  = PGM_FIRST+11
+    PGM_GETBUTTONSTATE = PGM_FIRST+12
+    PGM_GETDROPTARGET  = CCM_GETDROPTARGET
+  
+    PGN_FIRST  = -900
+    PGN_SCROLL = PGN_FIRST-1
+    PGN_CALCSIZE = PGN_FIRST-2
+    
+    PGF_SCROLLUP    = 1
+    PGF_SCROLLDOWN  = 2
+    PGF_SCROLLLEFT  = 4
+    PGF_SCROLLRIGHT = 8
+  
+    PGF_CALCWIDTH   = 1
+    PGF_CALCHEIGHT  = 2
+    
+    PGK_SHIFT   = 1
+    PGK_CONTROL = 2
+    PGK_MENU    = 4
+  end
+  
+  # This control is a window container that is used with a window that does not have enough display area to show all of its content. 
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Pager < WinControl
+    include ModCommCtrl
+    include RC
+    
+    NMPGCALCSIZE = RWin::API.defstruct "
+      NMHDR hdr;
+      DWORD dwFlag;
+      int   iWidth;
+      int   iHeight;"
+    
+    NMPGSCROLL = RWin::API.defstruct "
+      NMHDR hdr;
+      BOOL  fwKeys;
+      RECT  rcParent;
+      int   iDir;
+      int   iXpos;
+      int   iYpos;
+      int   iScroll;"
+    
+    NMPGHOTITEM = RWin::API.defstruct "
+      NMHDR hdr;
+      int idOld;
+      int idNew;
+      DWORD dwFlags;"
+    
+    WinStyles = {
+      :vert       => ~PGS_HORZ,
+      :horz       => PGS_HORZ,
+      :autoscroll => PGS_AUTOSCROLL,
+      :dragndrap  => PGS_DRAGNDROP,
+    }
+    
+    PreDefinedEvents = {
+      :scroll => [WM_NOTIFY, PGN_SCROLL, 'xs', NMPGSCROLL], # not work...
+      :calcsize => [WM_NOTIFY, PGN_CALCSIZE, 'xs', NMPGCALCSIZE]
+    }
+    
+    # ( Nothing )
+    DefaultEvents = []
+    
+    include ModParent
+    
+    def initialize(*args)
+      self.style = PGS_HORZ
+      super
+      @_classname = "SysPager"
+      @_acceptable_events = PreDefinedEvents.dup
+    end
+    #
+    def create
+      super
+      @parent.register_event(itemid, WM_NOTIFY, PGN_CALCSIZE, "__calcsize__", 'xs', NMPGCALCSIZE, self)
+      self.child = @_child if @_child
+      self.bkcolor = @_bkcolor if @_bkcolor
+      self.border = @_border if @_border
+      self.buttonsize = @_buttonsize if @_buttonsize
+    end
+    
+    # Sets the contained window for the pager control.<br>
+    # The argument can be both a control or an array of arguments for creating a control.
+    def child=(arg) #; dp "@%p", @controls # Write only attrebute
+      if alive?
+        raise "Already child was set." if @controls && !@controls.empty?
+        @controls = Controls.new(self, @parent)
+        win = @controls << arg
+        @idealwidth = win.w
+        @idealheight = win.h
+        SendMessage(PGM_SETCHILD, 0, win.hWnd)
+      else
+        @_child = arg
+      end
+    end
+    alias << child=
+    
+    # Retrieves the current background color for this pager control. 
+    def bkcolor()
+      alive? ? SendMessage(PGM_GETBKCOLOR , 0, 0) : @_bkcolor
+    end
+    # Sets the current background color for this pager control. 
+    def bkcolor=(bc)
+      alive? ? SendMessage(PGM_SETBKCOLOR, 0, bc) : @_bkcolor = bc
+    end
+    
+    # Retrieves the current border size for this pager control. 
+    def border()
+      alive? ? SendMessage(PGM_GETBORDER, 0, 0) : @_border
+    end
+    # Sets the current border size for this pager control. 
+    def border=(bd)
+      alive? ? SendMessage(PGM_SETBORDER, 0, bd) : @_border = bd
+    end
+    
+    # Retrieves the current border size for this pager control. 
+    def buttonsize()
+      alive? ? SendMessage(PGM_GETBUTTONSIZE, 0, 0) : @_buttonsize 
+    end
+    # Sets the current button size for this pager control.
+    def buttonsize=(bt)
+      alive? ? SendMessage(PGM_SETBUTTONSIZE, 0, bt) : @_buttonsize = bt
+    end
+    
+    # Gets an ideal width when this pager caluculates scrloable dimentions.
+    def idealwidth()
+      @idealwidth
+    end
+    # Sets an ideal width when this pager caluculates scrloable dimentions.
+    def idealwidth=(w)
+      @idealwidth = w
+    end
+    
+    # Gets an ideal height when this pager caluculates scrloable dimentions.
+    def idealheight()
+      @idealheight
+    end
+    # Sets an ideal height when this pager caluculates scrloable dimentions.
+    def idealheight=(h)
+      @idealheight = h
+    end
+    
+    ##### only when alive #####
+    
+    # Retrieves the state of the specified button in this pager control.
+    def buttonstate()
+      SendMessage(PGM_GETBUTTONSTATE, 0, 0)
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st = WinStyles[arg]
+        st < 0 ? self.style &= st : self.style |= st
+        return nil
+      end
+      super
+    end
+
+    private
+    def __calcsize__(calcsize)
+      if (calcsize.dwFlag & PGF_CALCWIDTH) != 0
+        calcsize.iWidth = @idealwidth.to_i
+      elsif (calcsize.dwFlag & PGF_CALCHEIGHT) != 0
+        calcsize.iHeight = @idealheight.to_i
+      end
+    end
+  end
+end