Class: VRActiveXControl
Constant Summary
collapse
- WINCLASSINFO =
["AtlAxWin",0]
- ACTIVEXCINFO =
["",""]
Instance Attribute Summary
Attributes inherited from VRControl
#handlers, #name, #parent
#parent, #screen
Instance Method Summary
collapse
Methods inherited from VRControl
Controltype, #add_parentcall, #call_parenthandler, #create, #setFont
#_init, #create, #exwinstyle, #hide, #maximizebox, #maximizebox=, #minimizebox, #minimizebox=, #setscreen, #sizebox, #sizebox=, #tabstop, #tabstop=, #winstyle
Constructor Details
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
|
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
|
22
|
# File 'lib/vr/vractivex.rb', line 22
alias :progId :caption
|
23
|
# File 'lib/vr/vractivex.rb', line 23
alias :progId= :caption=
|
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
|