wrb 2.0.0

data/lib/wrb/components/button.rb

@@ -0,0 +1,134 @@
+require 'wrb'
+
+module WR
+  module RC
+    BS_PUSHBUTTON     = 0x0000
+    BS_DEFPUSHBUTTON  = 0x0001
+    BS_CHECKBOX       = 0x0002
+    BS_AUTOCHECKBOX   = 0x0003
+    BS_RADIOBUTTON    = 0x0004
+    BS_3STATE         = 0x0005
+    BS_AUTO3STATE     = 0x0006
+    BS_GROUPBOX       = 0x0007
+    #BS_USERBUTTON     = 0x0008 # obsolete
+    BS_AUTORADIOBUTTON= 0x0009
+    BS_PUSHBOX        = 0x000a
+    BS_OWNERDRAW      = 0x000b
+    BS_TYPEMASK       = 0x000f
+    BS_LEFTTEXT       = 0x0020
+    BS_TEXT           = 0x0000
+    BS_ICON           = 0x0040
+    BS_BITMAP         = 0x0080
+    BS_LEFT           = 0x0100
+    BS_RIGHT          = 0x0200
+    BS_CENTER         = 0x0300
+    BS_TOP            = 0x0400
+    BS_BOTTOM         = 0x0800
+    BS_VCENTER        = 0x0c00
+    BS_PUSHLIKE       = 0x1000
+    BS_MULTILINE      = 0x2000
+    BS_NOTIFY         = 0x4000
+    BS_FLAT           = 0x8000
+    BS_RIGHTBUTTON    = BS_LEFTTEXT
+  
+    BN_CLICKED       = 0 unless defined? BN_CLICKED # uses Toolbar
+    BN_PAINT         = 1
+    BN_HILITE        = 2
+    BN_UNHILITE      = 3
+    BN_DISABLE       = 4
+    BN_DOUBLECLICKED = 5
+    BN_PUSHED        = BN_HILITE
+    BN_UNPUSHED      = BN_UNHILITE
+    BN_DBLCLK        = BN_DOUBLECLICKED
+    BN_SETFOCUS      = 6
+    BN_KILLFOCUS     = 7
+    
+    BM_GETCHECK = 0x00f0
+    BM_SETCHECK = 0x00f1
+    BM_SETSTATE = 0x00f3
+    BM_SETSTYLE = 0x00f4
+    BM_CLICK    = 0x00f5
+    BM_GETIMAGE = 0x00f6
+    BM_SETIMAGE = 0x00f7
+    
+    BST_UNCHECKED      = 0x0000
+    BST_CHECKED        = 0x0001
+    BST_INDETERMINATED = 0x0002
+    BST_PUSHED         = 0x0004
+    BST_FOCUS          = 0x0008
+  end
+  
+  # This is a control the user can click to provide input to an application.
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Button < WinControl
+    include ModStdCtrl
+    
+    WinStyles = {
+      :pushbox     => BS_PUSHBOX,
+      :ownerdraw   => BS_OWNERDRAW,
+      :typemask    => BS_TYPEMASK,
+      :lefttext    => BS_LEFTTEXT,
+      :text        => BS_TEXT,
+      :icon        => BS_ICON,
+      :bitmap      => BS_BITMAP,
+      :left        => BS_LEFT,
+      :right       => BS_RIGHT,
+      :center      => BS_CENTER,
+      :top         => BS_TOP,
+      :bottom      => BS_BOTTOM,
+      :vcenter     => BS_VCENTER,
+      :pushlike    => BS_PUSHLIKE,
+      :multiline   => BS_MULTILINE,
+      :notify      => BS_NOTIFY,
+      :flat        => BS_FLAT,
+    }
+    
+    PreDefinedEvents = {
+      :clicked       => [WM_COMMAND, BN_CLICKED, 'hi'],
+      :paint         => [WM_COMMAND, BN_PAINT, 'hi'],
+      :hilight       => [WM_COMMAND, BN_HILITE, 'hi'],
+      :unhilight     => [WM_COMMAND, BN_UNHILITE, 'hi'],
+      :disable       => [WM_COMMAND, BN_DISABLE, 'hi'],
+      :doubleclicked => [WM_COMMAND, BN_DOUBLECLICKED, 'hi'],
+      :pushed        => [WM_COMMAND, BN_PUSHED, 'hi'],
+      :unpushed      => [WM_COMMAND, BN_UNPUSHED, 'hi'],
+      :dblclk        => [WM_COMMAND, BN_DBLCLK, 'hi'],
+      :setfocus      => [WM_COMMAND, BN_SETFOCUS,'hi'],
+      :killfocus     => [WM_COMMAND, BN_KILLFOCUS, 'hi']
+    }
+    
+    DefaultEvents = [
+      :clicked,     # ???_clicked(idcmd, code, hwnd)
+      :killfocus    # ???_killfocus(idcmd, code, hwnd)
+    ]
+    
+#    def self.sym2style(*args) _sym2style(WinStyles, args); end
+
+    def initialize(*args)
+      super
+      @_classname = "BUTTON"
+      @_acceptable_events = PreDefinedEvents.dup
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st=WinStyles[arg]
+        @_style |= st
+        return nil
+      end
+      super
+    end
+  end
+end
+
+module WR
+  class Fprm1 < Form
+    def initialize()
+      _<< Button[:button1, "Click me", 0, 0, 80, 24, :flat]
+    end
+    
+    self.start
+  end
+end if __FILE__ ==$0
+

data/lib/wrb/components/canvas.rb

@@ -0,0 +1,266 @@
+require 'wrb'
+
+module WR
+  module RC
+    ## DrawText constants ## 
+    DT_TOP             = 0x00000000
+    DT_LEFT            = 0x00000000
+    DT_CENTER          = 0x00000001
+    DT_RIGHT           = 0x00000002
+    DT_VCENTER         = 0x00000004
+    DT_BOTTOM          = 0x00000008
+    DT_WORDBREAK       = 0x00000010
+    DT_SINGLELINE      = 0x00000020
+    DT_EXPANDTABS      = 0x00000040
+    DT_TABSTOP         = 0x00000080
+    DT_NOCLIP          = 0x00000100
+    DT_EXTERNALLEADING = 0x00000200
+    DT_CALCRECT        = 0x00000400
+    DT_NOPREFIX        = 0x00000800
+    DT_INTERNAL        = 0x00001000
+    DT_EDITCONTROL     = 0x00002000
+    DT_PATH_ELLIPSIS   = 0x00004000
+    DT_END_ELLIPSIS    = 0x00008000
+    DT_MODIFYSTRING    = 0x00010000
+    DT_RTLREADING      = 0x00020000
+    DT_WORD_ELLIPSIS   = 0x00040000
+    DT_NOFULLWIDTHCHARBREAK = 0x00080000
+    DT_HIDEPREFIX      = 0x00100000
+    DT_PREFIXONLY      = 0x00200000
+    
+    ## raster operation constants ##
+    R2_BLACK         = 1
+    R2_NOTMERGEPEN   = 2
+    R2_MASKNOTPEN    = 3
+    R2_NOTCOPYPEN    = 4
+    R2_MASKPENNOT    = 5
+    R2_NOT           = 6
+    R2_XORPEN        = 7
+    R2_NOTMASKPEN    = 8
+    R2_MASKPEN       = 9
+    R2_NOTXORPEN     = 10 # uses splitter.rb
+    R2_NOP           = 11
+    R2_MERGENOTPEN   = 12
+    R2_COPYPEN       = 13
+    R2_MERGEPENNOT   = 14
+    R2_MERGEPEN      = 15
+    R2_WHITE         = 16
+    R2_LAST          = 16
+    
+    # BitBlt raster operatrion
+    SRCCOPY = 0x00CC0020
+    SRCPAINT = 0x00EE0086
+    SRCAND = 0x008800C6
+    SRCINVERT = 0x00660046
+    SRCERASE = 0x00440328
+    NOTSRCCOPY = 0x00330008
+    NOTSRCERASE = 0x001100A6
+    MERGECOPY = 0x00C000CA
+    MERGEPAINT = 0x00BB0226
+    PATCOPY = 0x00F00021
+    PATPAINT = 0x00FB0A09
+    PATINVERT = 0x005A0049
+    DSTINVERT = 0x00550009
+    BLACKNESS = 0x00000042
+    WHITENESS = 0x00FF0062
+    NOMIRRORBITMAP = 0x80000000
+    CAPTUREBLT = 0x40000000
+    
+    # Following is original. See https://msdn.microsoft.com/en-us/library/dd145130(v=vs.85).aspx
+    DSTTRANSPARENT = 0xAA0029 # for transparent background (DST only)
+    
+    def MAKEROP4(fore, back) ((back << 8) & 0xFF000000) | fore; end
+    module_function :MAKEROP4
+    
+    # pre-defined API functions
+    API.loadlib "user32.dll"
+    API.defun "GetSysColor(int)"
+    
+    ## system colors ##
+    COLOR_SCROLLBAR           = 0
+    COLOR_BACKGROUND          = 1
+    COLOR_ACTIVECAPTION       = 2
+    COLOR_INACTIVECAPTION     = 3
+    COLOR_MENU                = 4
+    COLOR_WINDOW              = 5
+    COLOR_WINDOWFRAME         = 6
+    COLOR_MENUTEXT            = 7
+    COLOR_WINDOWTEXT          = 8
+    COLOR_CAPTIONTEXT         = 9
+    COLOR_ACTIVEBORDER        = 10
+    COLOR_INACTIVEBORDER      = 11
+    COLOR_APPWORKSPACE        = 12
+    COLOR_HIGHLIGHT           = 13
+    COLOR_HIGHLIGHTTEXT       = 14
+    COLOR_BTNFACE             = 15 # uses splitter
+    COLOR_BTNSHADOW           = 16 # uses splitter
+    COLOR_GRAYTEXT            = 17
+    COLOR_BTNTEXT             = 18
+    COLOR_INACTIVECAPTIONTEXT = 19
+    COLOR_BTNHIGHLIGHT        = 20
+    COLOR_3DDKSHADOW          = 21
+    COLOR_3DLIGHT             = 22
+    COLOR_INFOTEXT            = 23
+    COLOR_INFOBK              = 24
+    COLOR_HOTLIGHT            = 26
+    COLOR_GRADIENTACTIVECAPTION   = 27
+    COLOR_GRADIENTINACTIVECAPTION = 28
+    COLOR_MENUHILIGHT         = 29
+    COLOR_MENUBAR             = 30
+
+    COLOR_DESKTOP     = COLOR_BACKGROUND
+    COLOR_3DFACE      = COLOR_BTNFACE
+    COLOR_3DSHADOW    = COLOR_BTNSHADOW
+    COLOR_3DHIGHLIGHT = COLOR_BTNHIGHLIGHT
+    COLOR_3DHILIGHT   = COLOR_BTNHIGHLIGHT
+    COLOR_BTNHILIGHT  = COLOR_BTNHIGHLIGHT
+    
+    AD_COUNTERCLOCKWISE = 1
+    AD_CLOCKWISE = 2
+  end
+  
+  # This is wrapper of <i>hDC</i> operation of the window.<br>
+  # See <a href="https://docs.microsoft.com/en-us/windows/desktop/api/_gdi/"> 
+  # GDI section of Microsoft Docs </a> for more information.
+  class Canvas < RWin::Canvas # This is a document holder.
+    
+=begin
+  self.new(arg)
+    Creates a new canvas from a window or a hdc (device context handle).<br>
+    Not recommended to use directly, recommended to use in the <i>paint</i> message handler or in the `self.draw' method.
+
+following methods are defined in the super class.
+:singleton method
+  self.draw(window | hdc){|cv| ... }
+    Creates a new canvas from a window or a hdc (device context handle).<br>
+    This method needs a block. A canvas object will be given as block parameter.
+    You can use all following methods in this block.<br>
+    Note: This drawing is only at once. If you want to continue, draw in the <i>paint</i> message handler.
+    
+:instance methods
+  AngleArc(x, y, r, startAngle, sweepAngle)
+    Draws a line segment and an arc.
+  Arc(x1, y1, x2, y2, x3, y3)
+    Draws an elliptical arc.
+  ArcTo(left, top, right, bottom, xr1, yr1, xr2, yr2)
+    Draws an elliptical arc
+  BitBlt(xdest, ydest[, w, h], source[, xsrc, ysrc][, rop])
+    Performs a bit-block transfer of the data corresponding to a rectangle of pixels from the source object to this canvas.<br>
+  Chord(x1, y1, x2, y2, x3, y3, x4, y4)
+    Draws a chord.
+  DrawIcon(icon, x, y)
+    Draws an image of specified icon.
+  DrawImagelist(imagelist, index, x, y, style=0)
+    Draws an image of specified index of the image list.
+  DrawText(text, [left, top[, right, bottm]] | rect, format=0)
+    Draws formatted text in the specified rectangle. 
+  Ellipse(left, top, right, bottom)
+    Draws an ellipse. 
+  FillRect(left, top, right, bottom, burush)
+    Fills a rectangle by using the specified brush. Give a RWin::Brush as <i>brush</i>.
+  FloodFill(x, y, color, filltype=FLOODFILLBORDER)
+    Fills an area of the display surface with the current brush.
+  FrameRect(left, top, right, bottom, brush)
+    Draws a border around the specified rectangle by using the specified brush.
+  GetArcDirection()
+    Retrieves the current arc direction for this canvas. <br>
+    Arc and rectangle functions use the arc direction.
+  GetBkColor()
+    Retreives the current background color of this canvas.
+  GetDeviceCaps(index)
+    Retrieves the device-specific information for this canvas by given index.
+  GetLogPixels()
+    Gets number of pixels per logical inch along the screen width.(Not GDI function)
+  GetROP2()
+    Retrieves the foreground mix mode of this canvas. 
+  GetStretchBltMode()
+    Retrieves the current stretching mode.
+  GetSysColor(index)
+    Retrieves the current color of specified index of display element. 
+  GetTextColor()
+    Retrieves the current text color for this canvas.
+  GetTextExtent()
+    Computes the width and height of the specified string of text.<br>
+    Returns array of [width, height].
+  InvertRect(left, top, right, bottom)
+    Inverts a rectangle in a window by performing a logical NOT operation on the color values for each pixel in the given rectangle's interior.
+  LineTo(x, y)
+    Draws a line from the current position up to, but not including, the specified point.
+  MaskBlt(xdest, ydest[, w, h], source[, xsrc, ysrc], mask[, rop])
+    Performs a bit-block transfer with mask image. Give a monochrome bitmap as <i>mask</i>.
+  MoveTo(x, y)
+    Updates the current position to the specified point.Retruns previous point as an array.
+  Opaque()
+    Sets back mode of this canvas to opaque.
+  PatBlt(x, y, w, h[, rop])
+    Paints the specified rectangle using the currently selected brush and the specified raster operation.
+  Pie(left, top, right, bottom, xr1, yr1, xr2, yr2)
+    Draws a pie-shaped wedge bounded by the intersection of an ellipse and two radials. 
+  PlgBlt(point1, point2, point3, src[, xsrc, ysrc[, wsrc, hsrc]], xdst, ydst)
+    Performs a bit-block transfer from the specified rectangle in the source to the specified parallelogram in this canvas.
+    Give an array of two integers such as [x1, y1] as <i>points</i>.
+  PolyBezier(point1, point1, ... )
+    Draws one or more Bezier curves.
+    Give an array of two integers such as [x, y] as each <i>points</i>.
+  PolyBezierTo(point1, point2, ... )
+    Draws a PolyBezier from the current position and update the current position.
+  PolyDraw(arpoint, arjoint)
+    Draws a set of line segments and Bezier curves.<br>
+    Give an array of point such as [[x1, y1], [x2, y2], [x3, y3] ... ] as <i>arpoint</i>.<br>
+    And give an array of integer as <i>arjoint</i>.
+  PolyPolygon(polygon1, polygon2, ... )
+    Draws the polygons by given array of polygons. (Not tested, so can anyone test it?)
+    Give an array of points such as [[x1, y1], [x2, y2] ... ] as each <i>polygons</i>.
+  PolyPolyline(polyline1, polyline2, ... )
+    Draws the polylines by given array of polylines. (Not tested, so can anyone test it?)
+    Give an array of points such as [[x1, y1], [x2, y2] ... ] as each <i>polylines</i>.
+  Polygon(point1, point2, ... )
+    Draws a polygon.<br>
+    Give an array of two integers such as [x, y] as each <i>points</i>.
+  Polyline(point1, point2, ... )
+    Draws a series of line segments by connecting the points in the specified array.<br>
+    Give an array of two integers such as [x, y] as each <i>points</i>.
+  PolylineTo(point1, point1, ... )
+    Draws a Polyline from the current position and update the current position.
+  Rectangle(left, top, right, bottom)
+    Draws a rectangle.
+  RoundRect(left, top, right, bottom, width, height)
+    Draws a rectangle with rounded corners.
+  SetArcDirection(dir)
+    Sets the drawing direction to be used for arc and rectangle functions.<br>
+    Give AD_CLOCKWISE/AD_COUNTERCLOCKWISE as <i>dir</i>.
+  SetBkColor(color)
+    Sets the text back color for this canvas to the specified color.
+  SetBrush(brush)
+    Sets the current brush style by giving RWin::Brush or RGB color.
+  SetFont(font)
+    Sets the current font by giving the RWin::Font.
+  SetHBrush(hbrush)
+    Sets the current burush style by giving a handle of the burush.
+  SetHFont(hfont)
+    Sets the current font by giving a handle of the font.
+  SetHPen(hpen)
+    Sets the current pen style by giving a handle of the pen.
+  SetPen(pen)
+    Sets the current pen style by giving a RWin::Pen or a RGB color.
+  SetROP2(rop2)
+    Sets the current foreground mix mode.
+  SetStretchBltMode(mode)
+    Sets the bitmap stretching mode in this canvas.
+  SetTextColor(color)
+    Sets the text color for this canvas to the specified color.
+  StretchBlt(xdst, ydst, wdst, hdst, source[, xsrc, ysrc, wsrc, hsrc][, rop])
+    Performs a bit-block transfer with streching or complessing to fit the dimensions of the specfyed rectangle, if necessary.
+  TextOut(x, y, text)
+    Writes a string at the specified location, using the currently selected font, background color, and text color.
+  Transparent()
+    Sets back mode of this canvas to transparent.
+  _hdc()
+    Retreives device context handle of this canvas.
+  release()
+    Releases this canvas. This must be used at out of block.
+
+=end
+
+  end
+end

data/lib/wrb/components/checkbox.rb

@@ -0,0 +1,118 @@
+# Checkbox is Button
+# See <https://msdn.microsoft.com/en-us/library/windows/desktop/bb775943%28v=vs.85%29.aspx>
+
+
+module WR
+  require_relative './button' unless defined? Button
+  
+  #This control consists of a square box that indicates a choice the user can make by selecting the button. 
+  #<br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  #window-controls">Windows Control section of Microsoft Docs.</a>
+  class Checkbox < Button
+    
+    DefaultWindowStyle = BS_AUTOCHECKBOX
+    
+    PreDefinedEvents = {
+      :clicked       => [WM_COMMAND, BN_CLICKED, 'hi'],  # ???_clicked(idcmd, code, hwnd)
+      :paint         => [WM_COMMAND, BN_PAINT, 'hi'],    # ???_paint(idcmd, code, hwnd)
+      :hilight       => [WM_COMMAND, BN_HILITE, 'hi'],   # ???_hilight(idcmd, code, hwnd)
+      :unhilight     => [WM_COMMAND, BN_UNHILITE, 'hi'], # ???_unhilight(idcmd, code, hwnd)
+      :disable       => [WM_COMMAND, BN_DISABLE, 'hi'],  # ???_disable(idcmd, code, hwnd)
+      :doubleclicked => [WM_COMMAND, BN_DOUBLECLICKED, 'hi'],# ???_doubleclicked(idcmd, code, hwnd)
+      :pushed        => [WM_COMMAND, BN_PUSHED, 'hi'],   # ???_pushed(idcmd, code, hwnd)
+      :unpushed      => [WM_COMMAND, BN_UNPUSHED, 'hi'], # ???_unpushed(idcmd, code, hwnd)
+      :dblclk        => [WM_COMMAND, BN_DBLCLK, 'hi'],   # ???_dblclk(idcmd, code, hwnd)
+      :setfocus      => [WM_COMMAND, BN_SETFOCUS,'hi'],  # ???_setfocus(idcmd, code, hwnd)
+      :killfocus     => [WM_COMMAND, BN_KILLFOCUS, 'hi'] # ???_killfocus(idcmd, code, hwnd)
+    }
+    
+    DefaultEvents = [
+      :clicked,    # ???_clicked(idcmd, code, hwnd)
+    ]
+    
+#    def self.sym2style(*args) 
+#      _sym2style(Button::WinStyles, args)
+#    end
+    
+    def initialize(*args)
+      super
+      @_style |= DefaultWindowStyle unless (@_style & BS_AUTO3STATE) > 0  
+    end
+    
+    # Following Checkbox styles are available.
+    def style=(st)
+      st |= DefaultWindowStyle if st & BS_TYPEMASK == 0
+      super st
+    end
+    
+    # Any other Button's style changes this style to other. So, do not set except following. 
+    WinStyles = {
+      :lefttext    => BS_LEFTTEXT,
+      :rightbutton => BS_RIGHTBUTTON,
+      :threestate  => BS_3STATE,
+      :auto3state  => BS_AUTO3STATE
+    }
+    
+    #
+    def create()
+      super
+      self.checked = @_checked if @_checked
+    end
+    
+    # Retreives check state of the control. Retuens true/false. 
+    def checked()
+      if alive?
+        case SendMessage(BM_GETCHECK, 0, 0)
+        when BST_UNCHECKED
+          false
+        when BST_CHECKED
+          true
+        when BST_INDETERMINATED
+          nil
+        end
+      else
+        @_checked
+      end
+    end
+    alias checked? checked
+    
+    # Sets a check-state of the control. Give true/false as state.
+    def checked=(state)
+      if alive?
+        st =
+        case state
+        when false
+          BST_UNCHECKED
+        when true
+          BST_CHECKED
+        when nil
+          case self.style & 0xf
+          when BS_3STATE, BS_AUTO3STATE
+            BST_INDETERMINATED
+          else
+            BST_UNCHECKED
+          end
+        else
+          state
+        end
+        SendMessage(BM_SETCHECK, st, 0)
+      else
+        @_checked = state
+      end
+    end
+  end
+end
+
+module WR
+  class MyForm < Form
+    def initialize()
+      resize 320, 240
+      _<< Checkbox[:cb1, "Check Me", 0, 0, 100, 24, :checked=>nil]
+    end
+    
+    def created()
+      #dp "%x", _.cb1.style & BS_OWNERDRAW
+    end
+    self.start
+  end
+end if $0==__FILE__