wrb 2.0.0

data/lib/wrb/components/cursor.rb

@@ -0,0 +1,91 @@
+require 'wrb'
+require 'wrb/lzss'
+
+module WR
+  module RC
+    IDC_ARROW = 32512
+    IDC_IBEAM = 32513
+    IDC_WAIT = 32514
+    IDC_CROSS = 32515
+    IDC_UPARROW = 32516
+#   IDC_SIZE = 32640 # not created
+    IDC_ICON = 32641
+    IDC_SIZENWSE = 32642
+    IDC_SIZENESW = 32643
+    IDC_SIZEWE = 32644
+    IDC_SIZENS = 32645
+    IDC_SIZEALL = 32646
+    IDC_NO = 32648
+    IDC_HAND = 32649
+    IDC_APPSTARTING = 32650
+    IDC_HELP = 32651
+  end
+  
+  # A small picture whose location on the screen is controlled by a pointing device.
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/menurc/resources">
+  # Menus and Other Resources section of Microsft Docs</a>
+  class Cursor < RWin::Cursor
+    include RC
+    attr_accessor :name
+    
+=begin
+  self.new(xhot, yhot, bmmask, bmcolor)
+    Creates a new cursor with the specified arguments.<br>
+    Give <i>xhot</i> and <i>yhot</i> as coordinates of hotspot.
+
+following methods are defined at the super class.
+:singleton_methods
+  self._load(str)
+    Loads from a string. Give a String as <i>str</i>.
+
+:instance_methods
+  _dump()
+    Dumps self to a string for Marshal object.
+  _hcursor()
+    Retrieves a handle of self. Returns 32/64 bits integer as it.
+  dispose()
+    Disposes self from resource table and sets hicon to 0. Returns true/false.
+  to_bmps()
+    Creates new bitmap data from self. Returns an array of [bmmask, bmcolor, xHotspot, yHotspot].
+
+=end
+    
+    # Creates a new cursor by geven arguments. Args are typically name and string.
+    def self.[](*args)
+      if args.size == 1
+        self.fromfile(args[0])
+      else
+        self.new(*args)
+      end
+    end
+    
+    # Creates a new sistem defined cursor.<br>
+    # Give an integer for id of system cursor such as <i>IDC_ARROW</i>, <i>IDC_WAIT</i> e.t.c.
+    def self.fromsystem(id)
+      raise TypeError, "argument must be Integer" unless id.is_a?(Integer)
+      self.fromfile(id)
+    end
+    
+    # self.fromfile(name=nil, path)
+    # Loads from a cursor file. Give a String as <i>path</i> to cursor file.
+    def self.fromfile(*args)
+      nm = args.shift if args[0].is_a?(Symbol)
+      obj = super
+      obj.name = nm
+      obj
+    end
+    
+    # Creates a new icon from a base64 encoded string. Give a String as <i>str</i>.
+    def self.loadb64(*args)
+      nm = args.shift if args[0].is_a?(Symbol)
+      obj = self._load(LZSS.expand(args[0].unpack('m')[0]))
+      obj.name = nm
+      obj
+    end
+    
+    # Dumps self to a base64 encoded string with LZSS compression.
+    def dumpb64()
+      [LZSS.compress(self._dump)].pack('m')
+    end
+  end
+end

data/lib/wrb/components/datetimepicker.rb

@@ -0,0 +1,197 @@
+require 'wrb'
+
+module WR
+  module RC
+    DTM_FIRST = 0x1000
+    DTM_GETSYSTEMTIME = DTM_FIRST+1
+    DTM_SETSYSTEMTIME = DTM_FIRST+2
+    DTM_GETRANGE = DTM_FIRST+3
+    DTM_SETRANGE = DTM_FIRST+4
+    DTM_SETFORMATA = DTM_FIRST+5
+    DTM_SETFORMATW = DTM_FIRST+50
+    DTM_SETMCCOLOR = DTM_FIRST+6
+    DTM_GETMCCOLOR = DTM_FIRST+7
+    DTM_GETMONTHCAL = DTM_FIRST+8
+    DTM_SETMCFONT = DTM_FIRST+9
+    DTM_GETMCFONT = DTM_FIRST+10
+    
+    DTN_FIRST = -760
+    DTN_DATETIMECHANGE = DTN_FIRST+1
+    DTN_USERSTRINGA = DTN_FIRST+2
+    DTN_USERSTRINGW = DTN_FIRST+15
+    DTN_WMKEYDOWNA = DTN_FIRST+3
+    DTN_WMKEYDOWNW = DTN_FIRST+16
+    DTN_FORMATA = DTN_FIRST+4
+    DTN_FORMATW = DTN_FIRST+17
+    DTN_FORMATQUERYA = DTN_FIRST+5
+    DTN_FORMATQUERYW = DTN_FIRST+18
+    DTN_DROPDOWN = DTN_FIRST+6
+    DTN_CLOSEUP = DTN_FIRST+7
+    
+    DTS_UPDOWN = 0x1
+    DTS_SHOWNONE = 0x2
+    DTS_SHORTDATEFORMAT = 0x0
+    DTS_LONGDATEFORMAT = 0x4
+    DTS_SHORTDATECENTURYFORMAT = 0xc
+    DTS_TIMEFORMAT = 0x9
+    DTS_APPCANPARSE = 0x10
+    DTS_RIGHTALIGN = 0x20
+    
+    if RWin::UNICODE
+      DTM_SETFORMAT = DTM_SETFORMATW
+      
+      DTN_USERSTRING = DTN_USERSTRINGW
+      DTN_WMKEYDOWN = DTN_WMKEYDOWNW
+      DTN_FORMAT = DTN_FORMATW
+      DTN_FORMATQUERY = DTN_FORMATQUERYW
+    else
+      DTM_SETFORMAT = DTM_SETFORMATA
+      
+      DTN_USERSTRING = DTN_USERSTRINGA
+      DTN_WMKEYDOWN = DTN_WMKEYDOWNA
+      DTN_FORMAT = DTN_FORMATA
+      DTN_FORMATQUERY = DTN_FORMATQUERYA
+    end
+    
+    GDTR_MIN = 0x1
+    GDTR_MAX = 0x2
+
+    GDT_ERROR = -1
+    GDT_VALID = 0
+    GDT_NONE = 1
+  end
+  
+  #This control provides a simple and intuitive interface through which to exchange date and time information with a user. 
+  # <br>See also <a href="https://docs.microsoft.com/en-us/windows/desktop/Controls/
+  #window-controls">Windows Control section of Microsoft Docs.</a>
+  class DateTimePicker < WinControl #CommonControl
+    
+    NMDATETIMECHANGE = API.defstruct "
+      NMHDR nmhdr;
+      DWORD dwFlags;
+      SYSTEMTIME st;"
+    
+    NMDATETIMESTRING = API.defstruct "
+      NMHDR nmhdr;
+      LPCWSTR pszUserString;
+      SYSTEMTIME st;
+      DWORD dwFlags;"
+    
+    NMDATETIMEWMKEYDOWN = API.defstruct "
+      NMHDR nmhdr;
+      int nVirtKey;
+      LPTSTR pszFormat;
+      SYSTEMTIME st;"
+    
+    NMDATETIMEFORMAT = API.defstruct "
+      NMHDR nmhdr;
+      LPTSTR pszFormat;
+      SYSTEMTIME st;
+      LPTSTR pszDisplay;
+      TCHAR szDisplay[64];"
+    
+    NMDATETIMEFORMATQUERY = API.defstruct "
+      NMHDR nmhdr;
+      LPTSTR pszFormat;
+      SIZE szMax;"
+  
+    WinStyles = {
+      :updown => DTS_UPDOWN,
+      :shownone => DTS_SHOWNONE,
+      :shortdateformat => DTS_SHORTDATEFORMAT,
+      :longdateformat => DTS_LONGDATEFORMAT,
+      :shortdatecenturyformat => DTS_SHORTDATECENTURYFORMAT,
+      :timeformat => DTS_TIMEFORMAT,
+      :appcanparse => DTS_APPCANPARSE,
+      :rightalign => DTS_RIGHTALIGN
+    }
+#    def self.sym2style(*args) _sym2style(WinStyles, args); end
+    
+    PreDefinedEvents = {
+      :datetimechange => [WM_NOTIFY, DTN_DATETIMECHANGE, 'xs', NMDATETIMECHANGE],
+      :userstring => [WM_NOTIFY, DTN_USERSTRING, 'xs', NMDATETIMESTRING],
+      :wmkeydowna => [WM_NOTIFY, DTN_WMKEYDOWN, 'xs', NMDATETIMEWMKEYDOWN],
+      :format => [WM_NOTIFY, DTN_FORMAT, 'xs', NMDATETIMEFORMAT],
+      :formatquery => [WM_NOTIFY, DTN_FORMATQUERY, 'xs', NMDATETIMEFORMATQUERY],
+      :dropdown => [WM_NOTIFY, DTN_DROPDOWN, 'xs', NMHDR],
+      :closeup => [WM_NOTIFY, DTN_CLOSEUP, 'xs', NMHDR]
+    }
+    DefaultEvents = []
+    
+    def initialize(*args)
+      super
+      @_classname = "SysDateTimePick32"
+    end
+    
+    #
+    def create()
+      super
+      self.format = @_format if @_format
+    end
+    
+    # Sets the display of this DateTimePicker control based on a given format string.
+    def format=(str)
+      alive? ? SendMessage(DTM_SETFORMAT, 0, str) : @_format=str
+    end
+    
+    #### Methods only for window alive. ####
+    
+    # Closes month calender of this DateTimePicker control. 
+    def closemonthcal()
+      SendMessage(DTM_CLOSEMONTHCAL, 0, 0)
+    end
+    
+    # Gets the currently selected time from this DateTimePicker control and places it in a specified SYSTEMTIME structure.
+    def systemtime()
+      systime = SYSTEMTIME.new
+      SendMessage(DTM_GETSYSTEMTIME, 0, systime)
+      systime
+    end
+    
+    StRange = API.defstruct "
+      SYSTEMTIME min;
+      SYSTEMTIME max;"
+    
+    # Gets the current minimum and maximum allowable system times for this DateTimePicker  control. <br>
+    # Returns array of two SYSTEMTIME structurs.
+    def range()
+      rng = StRange.new
+      SendMessage(DTM_GETRANGE, 0, rng)
+      [rng.min, rng.max]
+    end
+    
+    # Sets the minimum and maximum allowable system times for this DateTimePicker  control. <br>
+    # Give two SYSTEMTIME structurs as <i>min</i> and <i>max</i>.
+    def range=(min, max)
+      SendMessage(DTM_SETRANGE, GDTR_MIN, min)
+      SendMessage(DTM_SETRANGE, GDTR_MAX, max)
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st=WinStyles[arg]
+        self.style |= st
+      end
+      super
+    end
+  end # class DateTimePicker
+end
+
+module WR
+  class Form1 < Form
+    def initialize()
+      #GC.stress = true
+      resize 640, 480
+      self.font = Font['Meiyo', 14]
+      _<< Button[:button1, 'GetSystemTime', 10, 10, 120, 24]
+      _<< DateTimePicker.new(:datetime1, '', 140, 10, 200, 24, :parentfont)
+    end
+    
+    def button1_clicked(*)
+      t = controls.datetime1.systemtime
+      dpp Time.mktime(t.wYear, t.wMonth, t.wDay, t.wHour, t.wMinute, t.wSecond)
+    end
+  end
+  
+  Form1.start
+end if __FILE__ == $0

data/lib/wrb/components/ddeclient.rb

@@ -0,0 +1,180 @@
+#ddemlclient
+require 'wrb/ddeml'
+
+module WR
+  
+  # A client interface for Dynamic Data Exchange.
+  class  DdeClient < DDEML
+    def self.[](*args) self.new(*args); end
+    
+    def initialize(*args)
+      @_owner = args.shift if args[0].is_a?(Window)
+      appname, topic, codepage, timeout = args
+      @_name = appname || raise(ArgumentError, "appname needed")
+      @_topic = topic || raise(ArgumentError, "topic needed")
+      @_codepage = codepage || CP_WINUNICODE
+      @_timeout = timeout || 1000
+      if @_owner && @_owner.alive?
+        create
+        if block_given?
+          connect()
+          yield self
+          disconnect()
+        end
+      end
+    end
+    
+    def name()
+      @_name
+    end
+    
+    def parent()
+      @_owner
+    end
+    def parent=(win)
+      @_owner = win
+      create if @_owner.alive?
+    end
+    
+    def create()
+      @sescallback = lambda{|uType, uFmt, hconv, htopic, hservice, hdata, dwData1, dwData2|
+        dispatchXTYP(uType, uFmt, hconv, htopic, hservice, hdata, dwData1, dwData2)
+      }
+      idinst = IDINST.new
+      API.DdeInitialize(idinst, @sescallback, APPCMD_CLIENTONLY, 0)
+      @_idinst = idinst.value
+      @_hservice = str2h(@_name)
+      @_htopic = str2h(@_topic)
+      ObjectSpace.define_finalizer(self, 
+                                   self.class.callback_finalizer(@_idinst, @_hservice, @_htopic))
+    end
+    
+    private
+    def dispatchXTYP(uType, uFmt, hconv, htopic, hitem, hdata, dwData1, dwData2)
+      case uType
+      when XTYP_REGISTER
+        if @_owner.respond_to?("#{@_name}_register")
+           @_owner.__send__("#{@_name}_register", h2str(htopic), h2str(hitem))
+        end
+      when XTYP_DISCONNECT
+        if @_owner.respond_to?("#{@_name}_disconnect")
+           @_owner.__send__("#{@_name}_disconnect", h2str(htopic), h2str(hitem))
+        end
+      when XTYP_ADVDATA
+        if @_owner.respond_to?("#{@_name}_advdata")
+          @_owner.__send__("#{@_name}_advdata", h2str(htopic), h2str(hitem), h2data(hdata))
+          return DDE_FACK
+        end
+      else
+        #dp "@%#x", uType
+      end
+      0
+    end
+    
+    public
+    def connect() #; dpp appname, topic, @_codepage, @_idinst
+      @_hconv = API.DdeConnect(@_idinst, @_hservice, @_htopic, 0)
+      if @_hconv == 0
+        freestrhandle(@_htopic)
+        freestrhandle(@_hservice)
+        err = API.DdeGetLastError(@_idinst)
+        raise "#{DDEError[err] || 'DDEError: ' + err}"
+      end
+      self
+    end
+    
+    def disconnect()
+      API.DdeDisconnect(@_hconv)
+      self
+    end
+    
+    def execute(data)
+      API.DdeClientTransaction(data, data.size, @_hconv, 0, 0, XTYP_EXECUTE, @_timeout, nil)
+    end
+    
+    def request(item)
+      hitem = str2h(item)
+      hdata = API.DdeClientTransaction(0, 0, @_hconv, hitem, CF_TEXT, XTYP_REQUEST, @_timeout, 0)
+      len = API.DdeGetData(hdata, nil, 0, 0)
+      result = API::BYTE[len]
+      API.DdeGetData(hdata, result, len, 0)
+      freestrhandle(hitem)
+      result.to_s
+    end
+    
+    def poke(item, data)
+      hitem = str2h(item)
+      pdata = API::BYTE.alloc(data)
+      hdata = API.DdeClientTransaction(pdata, data.size, @_hconv, hitem, CF_TEXT,
+                                       XTYP_POKE, @_timeout, 0)
+      freedatahandle(hdata)
+      freestrhandle(hitem)
+      self
+    end
+    
+    def advise(item, nodata=nil, ackreq=true)
+      hitem = str2h(item)
+      advstart = XTYP_ADVSTART | (nodata ? XTYPF_NODATA : 0) | (ackreq ? XTYPF_ACKREQ : 0)
+      accept = API.DdeClientTransaction(0, 0, @_hconv, hitem, 1, advstart, @_timeout,nil)
+      freestrhandle(hitem)
+      self
+    end
+    
+    def unadvise(item)
+      hitem = str2h(item)
+      accept = API.DdeClientTransaction(0, 0, @_hconv, hitem, 1, XTYP_ADVSTOP, @_timeout, nil)
+      freestrhandle(hitem)
+      self
+    end
+  end
+end
+
+module WR
+  class MyForm < Form
+    def initialize()
+      resize 280, 210
+      _<< Button[:bt1, 'Excel', 0, 0, 100, 24]
+      _<< Button[:bt2, 'Mytopic', 100, 0, 100, 24]
+      _<< Button[:bt3, "Advise start", 0, 30,100, 24]
+      _<< Button[:bt4, "Advise stop", 100, 30,100, 24]
+      _<< DdeClient[:mytest, "mytopic1"]
+    end
+    
+    def bt1_clicked(*)
+      DdeClient.new(self, 'Excel', 'Book1'){|dde|
+        p dde.request('R2C1').unpack('A*')[0]
+        dde.poke('R3C1', "Xyz")
+      }
+    end
+    
+    def bt2_clicked(*)
+      dde = DdeClient.new(self, 'Mytest', 'Mytopic')
+      dde.connect
+      p dde.request('R2C1')
+      dde.poke('R3C1', "Xyz")
+      dde.disconnect()
+    end
+    
+    def bt3_clicked(*)
+#      @dde = DdeClient.new(self, 'mytest', 'Mytopic')
+#      @dde.connect.advise('R1C1')
+      _.mytest.connect.advise('R1C1')
+    end
+    
+    def bt4_clicked(*)
+#      @dde.unadvise('R1C1')
+      #      @dde.disconnect
+      _.mytest.unadvise('R1C1')
+      _.mytest.disconnect
+    end
+    
+    def mytest_advdata(topic, item, data)
+      dpp topic, item, data
+    end
+    
+    def mytest_register(svname, instance)
+      dpp svname, instance
+    end
+    self.start
+  end
+end if $0 == __FILE__