wrb 2.0.0

data/lib/wrb/combocommon.rb

@@ -0,0 +1,77 @@
+# Common constants and methods between Combobox and ComboboxEx
+
+require 'wrb'
+module WR::RC
+  
+  CBS_SIMPLE            = 0x0001
+  CBS_DROPDOWN          = 0x0002
+  CBS_DROPDOWNLIST      = 0x0003
+  
+  CB_LIMITTEXT             = 0x0141
+  CB_DELETESTRING          = 0x0144
+  CB_GETCOUNT              = 0x0146
+  CB_GETCURSEL             = 0x0147
+  CB_GETLBTEXT             = 0x0148
+  CB_GETLBTEXTLEN          = 0x0149
+  CB_RESETCONTENT          = 0x014b
+  CB_SETCURSEL             = 0x014e
+  CB_SHOWDROPDOWN          = 0x014f
+  CB_GETITEMDATA           = 0x0150
+  CB_SETITEMDATA           = 0x0151
+  CB_GETDROPPEDCONTROLRECT = 0x0152
+  CB_SETITEMHEIGHT         = 0x0153
+  CB_GETITEMHEIGHT         = 0x0154
+  CB_SETEXTENDEDUI         = 0x0155
+  CB_GETEXTENDEDUI         = 0x0156
+  CB_GETDROPPEDSTATE       = 0x0157
+  CB_FINDSTRINGEXACT       = 0x0158
+  CB_GETDROPPEDWIDTH       = 0x015f
+  CB_SETDROPPEDWIDTH       = 0x0160
+  
+  CBN_SELCHANGE    = 0x01
+  CBN_DBLCLK       = 0x02
+  CBN_SETFOCUS     = 0x03
+  CBN_KILLFOCUS    = 0x04
+  CBN_EDITCHANGE   = 0x05
+  CBN_EDITUPDATE   = 0x06
+  CBN_DROPDOWN     = 0x07
+  CBN_CLOSEUP      = 0x08
+  CBN_SELENDOK     = 0x09
+  CBN_SELENDCANCEL = 0x0a
+  
+  module ModComboCommon
+    def h=(ht)
+      @_droppedheight = ht if ht > self.h
+      super
+    end
+    
+    def droppedheight()
+      @_droppedheight
+    end
+    def droppedheight=(h)
+      self.h = @_droppedheight = h
+    end
+    
+    def droppedsize()
+      if alive?
+        rc = RECT.new
+        SendMessage(CB_GETDROPPEDCONTROLRECT, 0, rc)
+        [rc.right-rc.left, rc.bottom-rc.top]
+      else
+        [@_droppedwidth, @_droppedheight]
+      end
+    end
+    
+    def resize(w, h)
+      @_droppedheight = h if h > self.h
+      super
+    end
+    
+    def move(*args)
+      ht = args[3]
+      super
+      @_droppedheight = ht if ht && ht > self.h
+      self
+    end
+  end
+end

data/lib/wrb/commctrlconst.rb

@@ -0,0 +1,139 @@
+# Common module and constants for common controls
+
+require 'wrb'
+module WR
+  module RC
+    ICC_LISTVIEW_CLASSES   = 0x1
+    ICC_TREEVIEW_CLASSES   = 0x2
+    ICC_BAR_CLASSES        = 0x4
+    ICC_TAB_CLASSES        = 0x8
+    ICC_UPDOWN_CLASS       = 0x10
+    ICC_PROGRESS_CLASS     = 0x20
+    ICC_HOTKEY_CLASS       = 0x40
+    ICC_ANIMATE_CLASS      = 0x80
+    ICC_WIN95_CLASSES      = 0xff
+    ICC_DATE_CLASSES       = 0x100
+    ICC_USEREX_CLASSES     = 0x200
+    ICC_COOL_CLASSES       = 0x400
+    ICC_INTERNET_CLASSES   = 0x800
+    ICC_PAGESCROLLER_CLASS = 0x1000
+    ICC_NATIVEFNTCTL_CLASS = 0x2000
+    ICC_STANDARD_CLASSES   = 0x4000
+    ICC_LINK_CLASS         = 0x8000
+
+    CCS_TOP           = 0x1
+    CCS_NOMOVEY       = 0x2
+    CCS_BOTTOM        = 0x3
+    CCS_NORESIZE      = 0x4
+    CCS_NOPARENTALIGN = 0x8
+    CCS_ADJUSTABLE    = 0x20
+    CCS_NODIVIDER     = 0x40
+    CCS_VERT          = 0x80
+    CCS_LEFT          = CCS_VERT | CCS_TOP
+    CCS_RIGHT         = CCS_VERT | CCS_BOTTOM
+    CCS_NOMOVEX       = CCS_VERT | CCS_NOMOVEY
+    
+    CCM_FIRST            = 0x2000
+    CCM_SETBKCOLOR       = CCM_FIRST+0x1
+    CCM_SETCOLORSCHEME   = CCM_FIRST+0x2
+    CCM_GETCOLORSCHEME   = CCM_FIRST+0x3
+    CCM_GETDROPTARGET    = CCM_FIRST+0x4
+    CCM_SETUNICODEFORMAT = CCM_FIRST+0x5
+    CCM_GETUNICODEFORMAT = CCM_FIRST+0x6
+    CCM_SETVERSION       = CCM_FIRST+0x7
+    CCM_GETVERSION       = CCM_FIRST+0x8
+    CCM_SETNOTIFYWINDOW  = CCM_FIRST+0x9
+    CCM_SETWINDOWTHEME   = CCM_FIRST+0xb
+    CCM_DPISCALE         = CCM_FIRST+0xc
+    
+    NM_FIRST           = 0
+    NM_CLICK           = NM_FIRST-2
+    NM_DBLCLK          = NM_FIRST-3
+    NM_RETURN          = NM_FIRST-4
+    NM_RCLICK          = NM_FIRST-5
+    NM_RDBLCLK         = NM_FIRST-6
+    NM_SETFOCUS        = NM_FIRST-7
+    NM_KILLFOCUS       = NM_FIRST-8
+    NM_CUSTOMDRAW      = NM_FIRST-12
+    NM_HOVER           = NM_FIRST-13
+    NM_NCHITTEST       = NM_FIRST-14
+    NM_KEYDOWN         = NM_FIRST-15
+    NM_RELEASEDCAPTURE = NM_FIRST-16
+    NM_SETCURSOR       = NM_FIRST-17
+    NM_CHAR            = NM_FIRST-18
+    NM_TOOLTIPSCREATED = NM_FIRST-19
+    NM_LDOWN           = NM_FIRST-20
+    NM_RDOWN           = NM_FIRST-21
+    NM_THEMECHANGED    = NM_FIRST-22
+    
+    I_IMAGECALLBACK = -1
+    I_IMAGENONE     = -2
+  end
+    
+  module ModCommCtrl
+    include RC
+    INITCOMMONCONTROLSEX = API.defstruct 'DWORD dwSize', 'DWORD dwICC'
+    API.loadlib "comctl32.dll"
+    API.defun   "InitCommonControlsEx(INITCOMMONCONTROLSEX *lpInitCtrls)" 
+    API.initCommonControlsEx(INITCOMMONCONTROLSEX[INITCOMMONCONTROLSEX::Size, 0x7ff])
+   
+    NMHDR = API.defstruct '
+      HWND  hwndFrom; 
+      INT   idFrom;
+      INT   code;'  unless defined? NMHDR
+    
+    NMTOOLTIPSCREATED = API.defstruct "
+      NMHDR hdr;
+      HWND  hwndToolTips;"
+
+    NMMOUSE = API.defstruct "
+      NMHDR  hdr;
+      DWORD  dwItemSpec;
+      DWORD  dwItemData;
+      POINT  pt;
+      LPARAM dwHitInfo;"
+    
+    NMKEY = API.defstruct "
+      NMHDR hdr;
+      UINT  nVKey;
+      UINT  uFlags;"
+
+    NMCHAR = API.defstruct "
+      NMHDR hdr;
+      UINT  ch;
+      DWORD dwItemPrev;
+      DWORD dwItemNext;"
+    
+    NMTTDISPINFO = API.defstruct "
+      NMHDR     hdr;
+      LPTSTR    lpszText;
+      TCHAR     szText[80];
+      HINSTANCE hinst;
+      UINT      uFlags;
+      LPARAM    lParam;"
+    TOOLTIPTEXT = NMTTDISPINFO
+    
+    NMCUSTOMDRAW = API.defstruct "
+      NMHDR  hdr;
+      DWORD  dwDrawStage;
+      HDC    hdc;
+      RECT   rc;
+      DWORD  dwItemSpec;
+      UINT   uItemState;
+      LPARAM lItemlParam;"
+    
+    CCStyles ={
+      :top           => CCS_TOP,
+      :nomovey       => CCS_NOMOVEY,
+      :bottom        => CCS_BOTTOM,
+      :noresize      => CCS_NORESIZE,
+      :noparentalign => CCS_NOPARENTALIGN,
+      :adjustable    => CCS_ADJUSTABLE,
+      :nodivider     => CCS_NODIVIDER,
+      :vert          => CCS_VERT,
+#      :left          => CCS_LEFT,
+#      :right         => CCS_RIGHT,
+#      :nomovex       => CCS_NOMOVEX
+    }
+  end
+end

data/lib/wrb/commdlg.rb

@@ -0,0 +1,77 @@
+# Base class and constants for Common Dialog
+
+require 'rwin'
+
+module WR
+  module RC
+    CDERR_DIALOGFAILURE   = 0xFFFF
+
+    CDERR_GENERALCODES    = 0x0000
+    CDERR_STRUCTSIZE      = 0x0001
+    CDERR_INITIALIZATION  = 0x0002
+    CDERR_NOTEMPLATE      = 0x0003
+    CDERR_NOHINSTANCE     = 0x0004
+    CDERR_LOADSTRFAILURE  = 0x0005
+    CDERR_FINDRESFAILURE  = 0x0006
+    CDERR_LOADRESFAILURE  = 0x0007
+    CDERR_LOCKRESFAILURE  = 0x0008
+    CDERR_MEMALLOCFAILURE = 0x0009
+    CDERR_MEMLOCKFAILURE  = 0x000A
+    CDERR_NOHOOK          = 0x000B
+    CDERR_REGISTERMSGFAIL = 0x000C
+
+    PDERR_PRINTERCODES     = 0x1000
+    PDERR_SETUPFAILURE     = 0x1001
+    PDERR_PARSEFAILURE     = 0x1002
+    PDERR_RETDEFFAILURE    = 0x1003
+    PDERR_LOADDRVFAILURE   = 0x1004
+    PDERR_GETDEVMODEFAIL   = 0x1005
+    PDERR_INITFAILURE      = 0x1006
+    PDERR_NODEVICES        = 0x1007
+    PDERR_NODEFAULTPRN     = 0x1008
+    PDERR_DNDMMISMATCH     = 0x1009
+    PDERR_CREATEICFAILURE  = 0x100A
+    PDERR_PRINTERNOTFOUND  = 0x100B
+    PDERR_DEFAULTDIFFERENT = 0x100C
+
+    CFERR_CHOOSEFONTCODES  = 0x2000
+    CFERR_NOFONTS          = 0x2001
+    CFERR_MAXLESSTHANMIN   = 0x2002
+
+    FNERR_FILENAMECODES    = 0x3000
+    FNERR_SUBCLASSFAILURE  = 0x3001
+    FNERR_INVALIDFILENAME  = 0x3002
+    FNERR_BUFFERTOOSMALL   = 0x3003
+
+    FRERR_FINDREPLACECODES = 0x4000
+    FRERR_BUFFERLENGTHZERO = 0x4001
+
+    CCERR_CHOOSECOLORCODES = 0x5000
+  end
+  
+  class CommonDialog
+    include RWin, RC
+    
+    API.typealias 'HGLOBAL', 'Q'
+    API.typealias 'LPPAGESETUPHOOK', 'Q'
+    API.typealias 'LPPAGEPAINTHOOK', 'Q'
+    PAGESETUPDLG = API.defstruct "
+      DWORD           lStructSize;
+      HWND            hwndOwner;
+      HGLOBAL         hDevMode;
+      HGLOBAL         hDevNames;
+      DWORD           Flags;
+      POINT           ptPaperSize;
+      RECT            rtMinMargin;
+      RECT            rtMargin;
+      HINSTANCE       hInstance;
+      LPARAM          lCustData;
+      LPPAGESETUPHOOK lpfnPageSetupHook;
+      LPPAGEPAINTHOOK lpfnPagePaintHook;
+      LPCTSTR         lpPageSetupTemplateName;
+      HGLOBAL         hPageSetupTemplate;"
+    
+    API.loadlib 'comdlg32'
+    API.defun 'CommDlgExtendedError()'
+  end
+end

data/lib/wrb/components/animate.rb

@@ -0,0 +1,114 @@
+require 'wrb'
+
+module WR
+  module RC
+    ACS_TRANSPARENT = 0x2
+    ACS_AUTOPLAY = 0x4
+    ACS_TIMER = 0x8
+
+    ACM_OPENA = WM_USER+100
+    ACM_OPENW = WM_USER+103
+    ACM_PLAY = WM_USER+101
+    ACM_STOP = WM_USER+102
+    ACM_ISPLAYING = WM_USER+104
+    if UNICODE
+      ACM_OPEN = ACM_OPENW
+    else
+      ACM_OPEN = ACM_OPENA
+    end
+    
+    ACN_START = 1
+    ACN_STOP = 2
+  end
+  
+  # A window that displays an AVI clip (Animation).
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Animate < WinControl
+    include ModStdCtrl
+
+    WinStyles = {
+      :transparent => ACS_TRANSPARENT,
+      :autoplay => ACS_AUTOPLAY,
+      :timer => ACS_TIMER
+    }
+    
+    PreDefinedEvents = {
+      :start => [WM_COMMAND, ACN_START, 'hi'],
+      :stop => [WM_COMMAND, ACN_STOP, 'hi']
+    }
+    
+    # (No default events)
+    DefaultEvents = []
+    
+    def initialize(*args)
+      super
+      @_classname = "SysAnimate32"
+      @_acceptable_events = PreDefinedEvents.dup
+    end
+    
+    # Opens an <i>path</i> of AVI clip and displays its first frame in this. 
+    def open(path)
+      path.tr!('/', '\\')
+      if SendMessage(ACM_OPEN, 0, path) == 0
+        raise "open was failed"
+      end
+      true
+    end
+    
+    # Plays an AVI clip in athis. 
+    def play(times, from=0, to=-1)
+      SendMessage(ACM_PLAY, times, MAKELPARAM(from, to))
+    end
+    
+    # Stops playing an AVI clip in this
+    def stop()
+      SendMessage(ACM_STOP, 0, 0)
+    end
+    
+    # Retreives whether an AVI clip is playing. Returns true/false.
+    def playing?() # only for visual style
+      SendMessage(ACM_ISPLAYING, 0, 0)==0 ? false : true
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st=WinStyles[arg]
+        @_style |= st
+        return nil
+      end
+      super
+    end
+  end
+end
+
+module WR
+  class MyForm < Form
+    def initialize()
+      _ << Button[:btn1, 'Open', 0, 0, 80, 24]
+      _ << Button[:btn2, 'Play', 80, 0, 80, 24]
+      _ << Button[:btn3, 'Stop', 160, 0, 80, 24]
+      _ << Button[:btn4, 'Playing', 240, 0, 80, 24]
+      _ << Animate[:anm1, 0, 30, 300, 240, :transparent, :events=>[:start, :stop]]
+    end
+    
+    def btn1_clicked(*)
+      dpp _anm1.open('../resources/round.avi')
+    end
+    def btn2_clicked(*)
+      _.anm1.play(-1, 1)
+    end
+    def btn3_clicked(*)
+      _.anm1.stop()
+    end
+    def btn4_clicked(*)
+      dpp  _.anm1.playing?()
+    end
+    def anm1_start(*)
+      dpp 'start!'
+    end
+    
+    self.start
+  end
+end if __FILE__==$0
+    

data/lib/wrb/components/bitmap.rb

@@ -0,0 +1,116 @@
+require 'wrb/lzss'
+module WR
+  require_relative './picture.rb' unless defined? Picture
+  require_relative './canvas.rb' unless defined? Canvas
+  
+  # A memory-image which consists of the pixel data for a graphics image and its attributes.
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/gdi/windows-gdi">
+  # GDI section of Microsft Docs</a>
+  class Bitmap < RWin::Bitmap
+    
+=begin
+  self.new(name=nil, width, height, initalcolor=nil)
+    Creates empty bitmap with the specified arguments.<br>
+    If <i>initialcolor</i> is given, this bitmap will be filled with it.<br>
+    `name' is for adding on the toplevel window, give a Symbol if needed. 
+    
+following methods are defined at the super class.
+:singleton methods
+  self._load(str)
+    Loads from a string. Give a String as <i>str</i>.
+  self.fromfile(path)
+    Loads from a bitmap file. Give a String as <i>path</i> to bitmap file.
+  self.fromhandle(hbitmap)
+    Creates new Bitmap object from handle of another bitmap.<br>
+    Give an 32/64 bits integer as <i>hbitmap</i>.
+  self.frompicture(pic, background)
+    Creates new Bitmap object from a Pcture object.<br>
+    Give a Picture object as <i>pic</i>, an RGB integer as <i>background</i> color.
+  self.monochrome(newwidth, newhight)
+    Creates new monochrome Bitmap object from self.<br>
+    Give two integers as <i>newwidth</i> and <i>newheight</i>.
+
+:instance methods
+  GetPixel(x, y)
+    Retrieves the RGB color value of the pixel at the specified coordinates.<br>
+    Give two integers as <i>x</i> and <i>y</i>. Returns an integer as RGB color.
+  SetPixel(x, y, color)
+    Sets the pixel at the specified coordinates to the specified color.<br>
+    Give two integers as <i>x</i>, <i>y</i> and a integer as RGB <i>color</i>.
+  _dump()
+    Dumps self to a string for Marshal object.
+  _hbitmap()
+    Retrieves a bitmap handle of self. Returns 32/64 bits integer as it.
+  _hdc()
+    Retrieves a device context handle of self. Returns 32/64 bits integer as it.
+  _hddbitmap()
+    Retrieves a device dependent bitmap handle of self. Returns 32/64 bits integer as it.
+  depth()
+    Gets color depth of self. Retruns an integer of one of 1, 4, 8, 16, 24 and 32.
+  dispose()
+    Disposes self from resource table and sets hbitmap to 0. Returns true/false.
+  draw(){|cv| ...}
+    Draws on this bitmap if block given. Argument <i>cv</i> will be given as a Canvas object.
+  height()
+   Gets a height of this bitmap. Returns an integer.
+  width()
+   Gets a width of this bitmap. Returns an integer.
+=end
+    
+#    include ModUtil
+    include RC
+    
+    # Loads from a image file. Give a String as path to image file.
+    def self.fromfile(path)
+      if open(path, 'rb'){|f| f.read(2)} == "BM"
+        super
+      else
+        self.frompicture(Picture.fromfile(path))
+      end
+    end
+    
+    # Converts self to a Picture object.
+    def to_picture()
+      Picture._load(self._dump)
+    end
+    
+    # Converts self to a 24 bit Bitmap objct.
+    def to_24()
+      Bitmap._load(self._dump(24))
+    end
+    
+    def to_mask_core(rop, maskcolor)
+      bm24 = self.to_24
+      maskcolor ||= bm24.GetPixel(0, 0)
+      bmm = Bitmap.monochrome(bm24.width, bm24.height)
+      bmm.draw{|cm|
+        bm24.draw{|cv| cv.SetBkColor(maskcolor)}
+        cm.BitBlt(0, 0, bm24, rop)
+      }
+    end
+    private :to_mask_core
+    
+    # Creates a new monochrome bitmap for mask image. <br>
+    # Give an integer as RGB color for <i>maskcolor</i> which will be set to black and other clolors will be set to white.<br>
+    # If no maskcolor was given then color of (0, 0) position will be used as maskcolor.
+    def to_mask(maskcolor=nil)
+      to_mask_core(NOTSRCCOPY, maskcolor)
+    end
+    
+    # Creates a reverse mask image from <i>to_mask()</i> method.
+    def to_imgmask(maskcolor=nil)
+      to_mask_core(SRCCOPY, maskcolor)
+    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 LZSS compressed string.
+    def dumpb64()
+      [LZSS.compress(self._dump)].pack('m')
+    end
+  end
+end