I am using DB2K with an ActiveX Object from Rumba mainframe. All works well except the WDMFDSP.OCX interface echos or duplicats all Letters, spaces and numbers I enter into the OCX. I created the same Form in Delphi and it works with out any problems. Any Ideas? It seems to be a problem specific to DB2K. Hers the code;
parameter bModal
local f
f = new QTTMAINForm()
if (bModal)
f.mdi = false // ensure not MDI
f.readModal()
else
f.open()
endif
class QTTMAINForm of FORM
with (this)
onClose = {||ObjectX.Disconnect()}
metric = 0 // Chars
persistent = false
colorNormal = ""
height = 32.3182
left = -0.1429
top = 0.0909
width = 145.1429
text = "QTT"
background = "filename Granite Edifice.gif"
clientEdge = false
autoCenter = true
mdi = false
sizeable = false
menuFile = "QTT.mnu"
appSpeedBar = 0 // Turn Off
escExit = false
maximize = false
minimize = false
icon = "resource #200"
refreshAlways = false
endwith
this.WDMF_BOX = new CONTAINER(this)
with (this.WDMF_BOX)
left = 44.1429
top = 11.2727
width = 100.8571
height = 21
colorNormal = "midnightblue"
endwith
this.WDMF_BOX.WDMFDSP = new ACTIVEX(this.WDMF_BOX)
with (this.WDMF_BOX.WDMFDSP)
height = 20.7273
left = 0
top = 0
width = 100
pageno = 0
license = "Copyright (c) 1995 Wall Data Incorporated"
l0 = "MJBDBBBBNFBCBBBBDJBB /-/BBBBBB" //Truncated
state = l0
classId = "{91858523-87B5-11CE-A0B6-0800095A05C3}"
anchor = 6 // Container
endwith
with (this.WDMF_BOX.WDMFDSP.nativeObject)
HostStateChanged = class::NATIVEOBJECT_HOSTSTATECHANGED
HostScreenChange = class::NATIVEOBJECT_HOSTSCREENCHANGE
endwith
parameter bModal
local f
f = new QTTMAINForm()
if (bModal)
f.mdi = false // ensure not MDI
f.readModal()
else
f.open()
endif
class QTTMAINForm of FORM
with (this)
onClose = {||ObjectX.Disconnect()}
metric = 0 // Chars
persistent = false
colorNormal = ""
height = 32.3182
left = -0.1429
top = 0.0909
width = 145.1429
text = "QTT"
background = "filename Granite Edifice.gif"
clientEdge = false
autoCenter = true
mdi = false
sizeable = false
menuFile = "QTT.mnu"
appSpeedBar = 0 // Turn Off
escExit = false
maximize = false
minimize = false
icon = "resource #200"
refreshAlways = false
endwith
this.WDMF_BOX = new CONTAINER(this)
with (this.WDMF_BOX)
left = 44.1429
top = 11.2727
width = 100.8571
height = 21
colorNormal = "midnightblue"
endwith
this.WDMF_BOX.WDMFDSP = new ACTIVEX(this.WDMF_BOX)
with (this.WDMF_BOX.WDMFDSP)
height = 20.7273
left = 0
top = 0
width = 100
pageno = 0
license = "Copyright (c) 1995 Wall Data Incorporated"
l0 = "MJBDBBBBNFBCBBBBDJBB /-/BBBBBB" //Truncated
state = l0
classId = "{91858523-87B5-11CE-A0B6-0800095A05C3}"
anchor = 6 // Container
endwith
with (this.WDMF_BOX.WDMFDSP.nativeObject)
HostStateChanged = class::NATIVEOBJECT_HOSTSTATECHANGED
HostScreenChange = class::NATIVEOBJECT_HOSTSCREENCHANGE
endwith