Class: VRActiveXControl

Inherits:
VRControl show all
Defined in:
lib/vr/vractivex.rb

Constant Summary collapse

WINCLASSINFO = 
["AtlAxWin",0]
ACTIVEXCINFO =

PROGID,EVENTSINK

["",""]

Instance Attribute Summary

Attributes inherited from VRControl

#handlers, #name, #parent

Attributes inherited from VRWinComponent

#parent, #screen

Instance Method Summary collapse

Methods inherited from VRControl

Controltype, #add_parentcall, #call_parenthandler, #create, #setFont

Methods inherited from VRWinComponent

#_init, #create, #exwinstyle, #hide, #maximizebox, #maximizebox=, #minimizebox, #minimizebox=, #setscreen, #sizebox, #sizebox=, #tabstop, #tabstop=, #winstyle

Constructor Details

#initialize ⇒ VRActiveXControl

Returns a new instance of VRActiveXControl.



27
28
29
30
31
32
 
# File 'lib/vr/vractivex.rb', line 27

def initialize
  self.progId = self.class::ACTIVEXCINFO[0]
  class <<self
    undef_method :progId=
  end
end

Instance Method Details

#_getproperty(*args) ⇒ Object 



54
 
# File 'lib/vr/vractivex.rb', line 54

def _getproperty(*args) @_vr_win32ole._getproperty(*args) end

#_invoke(*args) ⇒ Object 



52
 
# File 'lib/vr/vractivex.rb', line 52

def _invoke(*args) @_vr_win32ole._invoke(*args) end

#_setproperty(*args) ⇒ Object 



53
 
# File 'lib/vr/vractivex.rb', line 53

def _setproperty(*args) @_vr_win32ole._setproperty(*args) end

#add_oleeventhandler(evname, handlername = evname.downcase) ⇒ Object 



46
47
48
49
50
 
# File 'lib/vr/vractivex.rb', line 46

def add_oleeventhandler(evname,handlername=evname.downcase)
  ole_events.on_event(evname) do |*args|
    @parent.controlmsg_dispatching(self,handlername,*args)
  end
end

#caption ⇒ Object 



24
 
# File 'lib/vr/vractivex.rb', line 24

def caption() "" end

#caption=(arg) ⇒ Object 



25
 
# File 'lib/vr/vractivex.rb', line 25

def caption=(arg) arg end

#ole_events ⇒ Object 



44
 
# File 'lib/vr/vractivex.rb', line 44

def ole_events() @_vr_win32ole_event; end

#ole_interface ⇒ Object 



43
 
# File 'lib/vr/vractivex.rb', line 43

def ole_interface() @_vr_win32ole; end

#progId ⇒ Object 



22
 
# File 'lib/vr/vractivex.rb', line 22

alias :progId :caption

#progId= ⇒ Object 



23
 
# File 'lib/vr/vractivex.rb', line 23

alias :progId= :caption=

#vrinit ⇒ Object 



34
35
36
37
38
39
40
41
 
# File 'lib/vr/vractivex.rb', line 34

def vrinit
  super
	@_vr_win32ole = self.get_oleinterface
  if self.class::ACTIVEXCINFO[1] then
    @_vr_win32ole_event = 
      WIN32OLE_EVENT.new(@_vr_win32ole,self.class::ACTIVEXCINFO[1])
  end
end