wrb 2.0.0

data/lib/wrb/components/updown.rb

@@ -0,0 +1,198 @@
+require 'wrb'
+require 'wrb/commctrlconst'
+
+module WR
+  module RC
+    UD_MAXVAL = 0x7fff
+    UD_MINVAL = -UD_MAXVAL
+
+    UDS_WRAP        = 0x1
+    UDS_SETBUDDYINT = 0x2
+    UDS_ALIGNRIGHT  = 0x4
+    UDS_ALIGNLEFT   = 0x8
+    UDS_AUTOBUDDY   = 0x10
+    UDS_ARROWKEYS   = 0x20
+    UDS_HORZ        = 0x40
+    UDS_NOTHOUSANDS = 0x80
+    UDS_HOTTRACK    = 0x100
+
+    UDM_SETRANGE   = WM_USER+101
+    UDM_GETRANGE   = WM_USER+102
+    UDM_SETPOS     = WM_USER+103
+    UDM_GETPOS     = WM_USER+104
+    UDM_SETBUDDY   = WM_USER+105
+    UDM_GETBUDDY   = WM_USER+106
+    UDM_SETACCEL   = WM_USER+107
+    UDM_GETACCEL   = WM_USER+108
+    UDM_SETBASE    = WM_USER+109
+    UDM_GETBASE    = WM_USER+110
+    UDM_SETRANGE32 = WM_USER+111
+    UDM_GETRANGE32 = WM_USER+112
+    UDM_SETPOS32   = WM_USER+113
+    UDM_GETPOS32   = WM_USER+114
+    UDM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT
+    UDM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT
+    
+    UDN_FIRST    = -721
+    UDN_DELTAPOS = UDN_FIRST-1
+  end
+  
+  # A pair of arrow buttons that the user can click to increment or decrement a value, such as a number displayed in a buddy control. 
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  # window-controls"> Windows Control section of Microsoft Docs.</a>
+  class Updown < WinControl
+    UDACCEL = API.defstruct "
+      UINT nSec;
+      UINT nInc;"
+    
+    UDACCELS = API.defstruct "UDACCEL[]"
+    
+    NMUPDOWN = API.defstruct "
+      NMHDR hdr;
+      int iPos;
+      int iDelta;"
+    
+    module ModUpdownBuddy
+      attr_accessor :__updownbuddy__
+      def move(*args)
+        super
+        if @__updownbuddy__
+          if @__updownbuddy__.style&RC::UDS_ALIGNRIGHT>0
+            @__updownbuddy__.move(x+w, y,  @__updownbuddy__.w, h)
+          elsif @__updownbuddy__.style&RC::UDS_ALIGNLEFT>0
+            @__updownbuddy__.move(x-@__updownbuddy__.w, y, @__updownbuddy__.w, h)
+          end
+        end
+        self
+      end
+    end
+    
+    WinStyles = {
+      :wrap        => UDS_WRAP,
+      :setbuddyint => UDS_SETBUDDYINT,
+      :alignright  => UDS_ALIGNRIGHT,
+      :alignleft   => UDS_ALIGNLEFT,
+      :autobuddy   => UDS_AUTOBUDDY,
+      :arrowkeys   => UDS_ARROWKEYS,
+      :horz        => UDS_HORZ,
+      :nothousands => UDS_NOTHOUSANDS,
+      :hottrack    => UDS_HOTTRACK
+    }
+#    def self.sym2style(*args) _sym2style(WinStyles, args); end
+    
+    PreDefinedEvents = {
+      :releasedcapture => [WM_NOTIFY, NM_RELEASEDCAPTURE, 'xs', NMHDR],
+      :deltapos => [WM_NOTIFY, UDN_DELTAPOS, 'xs', NMUPDOWN]
+    }
+    DefaultEvents = [:deltapos]
+    
+    def initialize(*args)
+      super
+      @_classname = "msctls_updown32"
+      @_acceptable_events = PreDefinedEvents.dup
+    end
+    #
+    def create()
+      super
+      self.accel =@_accel if @_accel
+      self.base = @_base if @_base
+      self.buddy = @_buddy if @_buddy
+      self.pos = @_pos if @_pos
+      self.range = @_range if @_range
+      if buddy
+        buddy.extend(ModUpdownBuddy)
+        buddy.__updownbuddy__ = self
+      end
+    end
+    
+    # Retrieves acceleration information for this up-down control.
+    def accel()
+      if alive?
+        n = SendMessage(UDM_GETACCEL, 0, 0)
+        accels = UDACCELS[n]
+        SendMessage(UDM_GETACCEL, n, accels)
+        ar = []
+        n.times{|i|ar << accels[i].to_a}
+        ar
+      else
+        @_accel
+      end
+    end
+    
+    # Sets the acceleration for an up-down control.<br>
+    # Give an array of [[nSec, nInc], ... ].<br>
+    # The nSec is an amount of elapsed time, and the nInc is a position to change accelaration.
+    def accel=(*args)
+      raise ArgumentError, "argument must be pair of [nSec, nInc]" unless args[0].is_a?(Array)
+      ar = args[0][0].is_a?(Array) ? args[0] : [args[0]]
+      n = ar.size
+      accels = UDACCELS[n]
+      n.times{|i| accels[i] = UDACCEL[*ar[i]]}
+      if alive?
+        SendMessage(UDM_SETACCEL, n, accels)
+      else
+        @_accel = args[0]
+      end
+    end
+    
+    # Retrieves the current radix base (that is, either base 10 or 16) for this up-down control. 
+    def base()
+      alive? ? SendMessage(UDM_GETBASE, 0, 0) : @_base
+    end
+    # Sets the radix base for this up-down control.
+    def base=(bs)
+      alive? ? SendMessage(UDM_SETBASE, bs, 0) : @_base = bs
+    end
+    alias radix base
+    alias radix= base=
+    
+    # Retrieves crrent buddy window for this up-down control.
+    def buddy()
+      alive? ? APP.hwnd2ref(SendMessage(UDM_GETBUDDY, 0, 0)) : @_buddy
+    end
+    
+    # Sets the buddy window for this up-down control. 
+    def buddy=(win)
+      if alive?
+        if win
+#          win.create unless win.alive?
+          win.extend(ModUpdownBuddy)
+          win.__updownbuddy__ = self
+          SendMessage(UDM_SETBUDDY, win._hwnd, 0)
+        else
+          SendMessage(UDM_SETBUDDY, 0, 0)
+        end
+      else
+        @_buddy = win
+      end
+    end
+    
+    # Retrieves the current position of this up-down control.
+    def pos()
+      alive? ? SendMessage(UDM_GETPOS, 0, 0) : @_pos
+    end
+    # Sets the current position for this up-down control.
+    def pos=(ps)
+      alive? ? SendMessage(UDM_SETPOS, 0, MAKELPARAM(ps, 0)) : @_pos = ps
+    end
+    
+    # Retrieves the minimum and maximum positions (range) for this up-down control.
+    def range()
+      alive? ? SPLITPARAM(SendMessage(UDM_GETRANGE, 0, 0)) : @_range
+    end
+    # range=(low=0, hifgh)
+    # Sets the minimum and maximum positions (range) for this up-down control.
+    def range=(*args)
+      lo, hi = args[0].is_a?(Array) ? args[0] : [0, args[0]]
+      alive? ? SendMessage(UDM_SETRANGE, 0, MAKELPARAM(hi, lo)) : @_range = [lo, hi]
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st=WinStyles[arg]
+        self.style |= st
+      end
+    end
+    
+  end
+end

data/lib/wrb/ddeml.rb

@@ -0,0 +1,241 @@
+# Base class and common constants for DDEML
+
+require 'wrb'
+
+module WR
+  module RC
+    CF_TEXT    = 1  unless defined? CF_TEXT
+    CF_OEMTEXT = 7  unless defined? CF_OEMTEXT
+    CF_HDROP   = 15 unless defined? CF_HDROP
+    
+    XST_NULL           = 0
+    XST_INCOMPLETE     = 1
+    XST_CONNECTED      = 2
+    XST_INIT1          = 3
+    XST_INIT2          = 4
+    XST_REQSENT        = 5
+    XST_DATARCVD       = 6
+    XST_POKESENT       = 7
+    XST_POKEACKRCVD    = 8
+    XST_EXECSENT       = 9
+    XST_EXECACKRCVD    = 10
+    XST_ADVSENT        = 11
+    XST_UNADVSENT      = 12
+    XST_ADVACKRCVD     = 13
+    XST_UNADVACKRCVD   = 14
+    XST_ADVDATASENT    = 15
+    XST_ADVDATAACKRCVD = 16
+    
+    ST_CONNECTED      = 0x0001
+    ST_ADVISE         = 0x0002
+    ST_ISLOCAL        = 0x0004
+    ST_BLOCKED        = 0x0008
+    ST_CLIENT         = 0x0010
+    ST_TERMINATED     = 0x0020
+    ST_INLIST         = 0x0040
+    ST_BLOCKNEXT      = 0x0080
+    ST_ISSELF         = 0x0100
+    
+    # DDE constants for wStatus field
+    DDE_FACK          = 0x8000
+    DDE_FBUSY         = 0x4000
+    DDE_FDEFERUPD     = 0x4000
+    DDE_FACKREQ       = 0x8000
+    DDE_FRELEASE      = 0x2000
+    DDE_FREQUESTED    = 0x1000
+    DDE_FAPPSTATUS    = 0x00ff
+    DDE_FNOTPROCESSED = 0x0000
+
+    DDE_FACKRESERVED  = (DDE_FACK | DDE_FBUSY | DDE_FAPPSTATUS)
+    DDE_FADVRESERVED  = (DDE_FACKREQ | DDE_FDEFERUPD)
+    DDE_FDATRESERVED  = (DDE_FACKREQ | DDE_FRELEASE | DDE_FREQUESTED)
+    DDE_FPOKRESERVED  = (DDE_FRELEASE)
+    
+    # message filter hook types 
+    MSGF_DDEMGR       = 0x8001
+    
+    # codepage constants 
+    CP_WINANSI      = 1004
+    CP_WINUNICODE   = 1200
+    
+    # transaction types
+    XTYPF_NOBLOCK        = 0x0002
+    XTYPF_NODATA         = 0x0004
+    XTYPF_ACKREQ         = 0x0008
+    
+    XCLASS_MASK          = 0xFC00
+    XCLASS_BOOL          = 0x1000
+    XCLASS_DATA          = 0x2000
+    XCLASS_FLAGS         = 0x4000
+    XCLASS_NOTIFICATION  = 0x8000
+    XTYP_ERROR           = 0x0000 | XCLASS_NOTIFICATION | XTYPF_NOBLOCK 
+    XTYP_ADVDATA         = 0x0010 | XCLASS_FLAGS         
+    XTYP_ADVREQ          = 0x0020 | XCLASS_DATA | XTYPF_NOBLOCK 
+    XTYP_ADVSTART        = 0x0030 | XCLASS_BOOL          
+    XTYP_ADVSTOP         = 0x0040 | XCLASS_NOTIFICATION
+    XTYP_EXECUTE         = 0x0050 | XCLASS_FLAGS         
+    XTYP_CONNECT         = 0x0060 | XCLASS_BOOL | XTYPF_NOBLOCK
+    XTYP_CONNECT_CONFIRM = 0x0070 | XCLASS_NOTIFICATION | XTYPF_NOBLOCK
+    XTYP_XACT_COMPLETE   = 0x0080 | XCLASS_NOTIFICATION  
+    XTYP_POKE            = 0x0090 | XCLASS_FLAGS         
+    XTYP_REGISTER        = 0x00A0 | XCLASS_NOTIFICATION | XTYPF_NOBLOCK
+    XTYP_REQUEST         = 0x00B0 | XCLASS_DATA          
+    XTYP_DISCONNECT      = 0x00C0 | XCLASS_NOTIFICATION | XTYPF_NOBLOCK
+    XTYP_UNREGISTER      = 0x00D0 | XCLASS_NOTIFICATION | XTYPF_NOBLOCK
+    XTYP_WILDCONNECT     = 0x00E0 | XCLASS_DATA | XTYPF_NOBLOCK
+
+    XTYP_MASK            = 0x00F0
+    XTYP_SHIFT           = 4
+    
+    # Timeout constants
+    TIMEOUT_ASYNC        = 0xFFFFFFFF
+
+    # Transaction ID constants
+    QID_SYNC             = 0xFFFFFFFF
+
+    CBF_FAIL_SELFCONNECTIONS  = 0x00001000
+    CBF_FAIL_CONNECTIONS      = 0x00002000
+    CBF_FAIL_ADVISES          = 0x00004000
+    CBF_FAIL_EXECUTES         = 0x00008000
+    CBF_FAIL_POKES            = 0x00010000
+    CBF_FAIL_REQUESTS         = 0x00020000
+    CBF_FAIL_ALLSVRXACTIONS   = 0x0003f000
+    
+    CBF_SKIP_CONNECT_CONFIRMS = 0x00040000
+    CBF_SKIP_REGISTRATIONS    = 0x00080000
+    CBF_SKIP_UNREGISTRATIONS  = 0x00100000
+    CBF_SKIP_DISCONNECTS      = 0x00200000
+    CBF_SKIP_ALLNOTIFICATIONS = 0x003c0000
+    
+    SZDDESYS_TOPIC         = "System"
+    SZDDESYS_ITEM_TOPICS   = "Topics"
+    SZDDESYS_ITEM_SYSITEMS = "SysItems"
+    SZDDESYS_ITEM_RTNMSG   = "ReturnMessage"
+    SZDDESYS_ITEM_STATUS   = "Status"
+    SZDDESYS_ITEM_FORMATS  = "Formats"
+    SZDDESYS_ITEM_HELP     = "Help"
+    SZDDE_ITEM_ITEMLIST    = "TopicItemList"
+
+    # Application command flags
+    APPCMD_CLIENTONLY  = 0x00000010
+    APPCMD_FILTERINITS = 0x00000020
+    APPCMD_MASK        = 0x00000FF0
+
+    # Application classification flags
+    APPCLASS_STANDARD  = 0x00000000
+    APPCLASS_MASK      = 0x0000000F
+    
+    # Name service
+    DNS_REGISTER   = 0x0001
+    DNS_UNREGISTER = 0x0002
+    DNS_FILTERON   = 0x0004
+    DNS_FILTEROFF  = 0x0008
+    
+    DMLERR_NO_ERROR = 0
+    
+    DMLERR_ADVACKTIMEOUT =0x4000
+    DMLERR_BUSY = 0x4001
+    DMLERR_DATAACKTIMEOUT = 0x4002
+    DMLERR_DLL_NOT_INITIALIZED = 0x4003
+    DMLERR_DLL_USAGE = 0x4004
+    DMLERR_EXECACKTIMEOUT = 0x4005
+    DMLERR_INVALIDPARAMETER = 0x4006
+    DMLERR_LOW_MEMORY = 0x4007
+    DMLERR_MEMORY_ERROR = 0x4008
+    DMLERR_NOTPROCESSED = 0x4009
+    DMLERR_NO_CONV_ESTABLISHED = 0x400a
+    DMLERR_POKEACKTIMEOUT = 0x400b
+    DMLERR_POSTMSG_FAILED = 0x400c
+    DMLERR_REENTRANCY = 0x400d
+    DMLERR_SERVER_DIED = 0x400e
+    DMLERR_SYS_ERROR = 0x400f
+    DMLERR_UNADVACKTIMEOUT = 0x4010
+    DMLERR_UNFOUND_QUEUE_ID = 0x4011
+  end
+  
+  class DDEML
+    
+    API.defun 'DdeInitialize(LPDWORD pidInst, PFNCALLBACK pfnCallback, DWORD afCmd, 
+                             DWORD ulRes)'
+    API.defun 'DdeUninitialize(DWORD idInst)'
+    API.defun 'DdeConnectList(DWORD idInst, HSZ hszService, HSZ hszTopic, 
+                               HCONVLIST hConvList, PCONVCONTEXT pCC)'
+    API.defun 'DdeQueryNextServer(HCONVLIST hConvList, HCONV hConvPrev)'
+    API.defun 'DdeDisconnectList(HCONVLIST hConvList)'
+    API.defun 'DdeConnect(DWORD idInst, HSZ hszService, HSZ hszTopic, PCONVCONTEXT pCC)'
+    API.defun 'DdeDisconnect(HCONV hConv)'
+    API.defun 'DdeReconnect(HCONV hConv)'
+    API.defun 'DdeQueryConvInfo(HCONV hConv, DWORD idTransaction, PCONVINFO pConvInfo)'
+    API.defun 'DdeSetUserHandle(HCONV hConv,DWORD id,DWORD_PTR hUser)'
+    API.defun 'DdeAbandonTransaction(DWORD idInst, HCONV hConv,DWORD idTransaction)'
+    API.defun 'DdePostAdvise(DWORD idInst, HSZ hszTopic, HSZ hszItem)'
+    API.defun 'DdeEnableCallback(DWORD idInst, HCONV hConv, UINT wCmd)'
+    API.defun 'DdeImpersonateClient(HCONV hConv)'
+    API.defun 'DdeNameService(DWORD idInst, HSZ hsz1, HSZ hsz2, UINT afCmd)'
+    API.defun 'DdeClientTransaction(LPBYTE pData, DWORD cbData, HCONV hConv, HSZ hszItem,
+                                    UINT wFmt, UINT wType, DWORD dwTimeout, LPDWORD pdwResult)'
+    API.defun 'DdeCreateDataHandle(DWORD idInst, LPBYTE pSrc, DWORD cb, DWORD cbOff, 
+                                   HSZ hszItem, UINT wFmt, UINT afCmd)'
+    API.defun 'DdeAddData(HDDEDATA hData, LPBYTE pSrc, DWORD cb, DWORD cbOff)'
+    API.defun 'DdeGetData(HDDEDATA hData, LPBYTE pDst, DWORD cbMax, DWORD cbOff)'
+    API.defun 'DdeAccessData(HDDEDATA hData, LPDWORD pcbDataSize)'
+    API.defun 'DdeUnaccessData(HDDEDATA hData)'
+    API.defun 'DdeFreeDataHandle(HDDEDATA hData)'
+    
+    API.defun 'DdeCreateStringHandle(DWORD idInst, LPCTSTR psz, int iCodePage)'
+    API.defun 'DdeQueryString(DWORD idInst, HSZ hsz, LPTSTR psz, DWORD cchMax, int iCodePage)'
+    API.defun 'DdeFreeStringHandle(DWORD idInst, HSZ hsz)'
+    API.defun 'DdeKeepStringHandle(DWORD idInst, HSZ hsz)'
+    API.defun 'DdeCmpStringHandles(HSZ hsz1, HSZ hsz2)'
+    API.defun 'DdeGetLastError(DWORD idInst)'
+    
+    IDINST = API.defstruct 'int value'
+    
+    DDEError={
+      0x4003 => "not initialized", 
+      0x4004 => "illegal usage",
+      0x4006 => "invalid parameter",
+      0x400a => 'no conversation established'
+    }
+    
+    include RC
+    
+    def self.callback_finalizer(idinst, hservice, htopic)
+      proc{ 
+        API.DdeFreeStringHandle(idinst, hservice)
+        API.DdeFreeStringHandle(idinst, htopic)
+        API.DdeUninitialize(idinst) 
+      }
+    end
+    
+    def h2str(hsz)
+      ccMax = API.DdeQueryString(@_idinst, hsz, nil, 0, @_codepage) + 1
+      lpsz = @_codepage==CP_WINUNICODE ? API::WCHAR[ccMax] : CHAR[ccMax]
+      API.DdeQueryString(@_idinst, hsz, lpsz, ccMax, @_codepage)
+      lpsz.to_s
+    end
+    def str2h(str)
+      API.DdeCreateStringHandle(@_idinst, str.to_s, @_codepage)
+    end
+    def freestrhandle(hstr)
+      API.DdeFreeStringHandle(@_idinst, hstr)
+    end
+    
+    def h2data(hdata)
+      sdata = API.DdeGetData(hdata, nil, 0, 0)
+      lpbDest = API::BYTE[sdata]
+      API.DdeGetData(hdata, lpbDest, sdata, 0)
+      lpbDest.to_s
+    end
+    
+    def data2h(hitem, data)
+      data.force_encoding(Encoding::ASCII_8BIT) if data.is_a?(String)
+      API.DdeCreateDataHandle(@_idinst, data, data.bytesize, 0, hitem, CF_TEXT, 0)
+    end
+    
+    def freedatahandle(hdata)
+      API.DdeFreeDataHandle(hdata)
+    end
+  end
+end
+

data/lib/wrb/documents/animate.html

@@ -0,0 +1,46 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html lang="en">
+<head>
+<meta content="text/html; charset=utf-8" http-equiv="content-type">
+<title>Animate</title>
+<link href="wrb.css" type="text/css" rel="stylesheet">
+<link rel="shortcut icon" href="favicon.png">
+</head>
+<body>
+  <h3> Animate  &lt; <a href="wincontrol.html">WinControl</a> <span class=gohome> <a href="index.html">Home </a></span></h3>
+  <p>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>
+</p>
+  <h4> Instance methods </h4>
+  <dl>
+    <dt><code>open(path)</code></dt>
+    <dd>Opens an <i>path</i> of AVI clip and displays its first frame in this.</dd>
+    <dt><code>play(times, from=0, to=-1)</code></dt>
+    <dd>Plays an AVI clip in athis.</dd>
+    <dt><code>playing?()</code></dt>
+    <dd>Retreives whether an AVI clip is playing. Returns true/false.</dd>
+    <dt><code>stop()</code></dt>
+    <dd>Stops playing an AVI clip in this</dd>
+  </dl>
+  <h4> Animate styles <span class=spl>( both the symbols and the integers can be used )</span></h4>
+  <p></p>
+  <table>
+<tr><th>Symbol</th><th>Integer value</th><th>Symbol</th><th>Integer value</th></tr>
+    <tr><td class=name1><code>:autoplay</code></td><td class=type><code>ACS_AUTOPLAY</code></td><td class=name1><code>:timer</code></td><td class=type><code>ACS_TIMER</code></td></tr>
+    <tr><td class=name1><code>:transparent</code></td><td class=type><code>ACS_TRANSPARENT</code></td></tr>
+  </table>
+  <h4> Pre-defined events <span class=spl> ( can be added by `events=` method )</span></h4>
+  <p></p>
+  <table>
+<tr><th width=20%>Symbol</th><th width=20%>Notification code</th><th>Definition <span class=spl>( `???' is name of the control )</span></th></tr>
+    <tr><td class=name1><code>:start</code></td><td class=type><code>ACN_START</code></td><td class=desc><code>???_start(idcmd, code, hwnd)</code></td></code></tr>
+    <tr><td class=name1><code>:stop</code></td><td class=type><code>ACN_STOP</code></td><td class=desc><code>???_stop(idcmd, code, hwnd)</code></td></code></tr>
+  </table>
+  <h4> Default events <span class=spl>( can be defined without using `events=' method )</h4>
+  <p>(No default events)</p>
+  <dl>
+  </dl>
+
+</body>
+</html>