Welcome to the SRP Forum! Please refer to the SRP Forum FAQ post if you have any questions regarding how the forum works.
OnComboClick event not happening
I have the following code that creates a combo dropdown.
The dropdown shows but when item is selected I dont appear to be getting the onComboClick event.
Am I missing something and can you confirm how I show be trapping it.
Equ OleSubClass$ To "MAINMENU.OLE_SUBCLASS"
CtrlId = @Window:".DWELLING_TYPE"
Handle = Get_Property(CtrlId, "HANDLE")
rv = Exec_Method(OleSubClass$, "OLE.Subclass", Handle, CtrlId)
PropertyID=getproperty("@.PROPERTY_ID","TEXT")
Gosub InitDwellingTypeDropDown
DwellingTypes= combo_load_proc("","COMBO_LISTS","DWELLING_TYPE",1)
Convert @fm To @vm In DwellingTypes
ExisingKeys=xlate("PROPERTIES_SOLD_DATA_RESIDENTIAL_REL",PropertyID,1,"X")
Cnt=fieldcount(DwellingTypes,@vm)
DwellingTypesDrop=null$
for X = 1 to Cnt
Locate PropertyId:"*":DwellingTypes<0,X> In ExisingKeys setting foo Then
RecordExists="Yes"
End Else
RecordExists=''
end
DwellingTypesDrop:=DwellingTypes<0,X>:@fm:RecordExists:@rm
next X
*Bys = 'A'
* Justs = 'L'
* call V119('S', '', Bys, Justs, DwellingTypesDrop, '')
DwellingTypesDrop[-1,1]=null$
convert @rm to @tm in DwellingTypesDrop
convert @fm to @stm in DwellingTypesDrop
DwellingTypeDropDown<2,3>=DwellingTypesDrop
CtrlId=@Window:".DWELLING_TYPE"
Convert "." to ";" in CtrlId
Set_Property(OleSubClass$, "OLE.Combo[":CtrlId:"]", DwellingTypeDropDown)
Set_Property(OleSubClass$, "OLE.MouseWheelDisabled[":CtrlId:"]", Yes$)
The dropdown shows but when item is selected I dont appear to be getting the onComboClick event.
Am I missing something and can you confirm how I show be trapping it.
Equ OleSubClass$ To "MAINMENU.OLE_SUBCLASS"
CtrlId = @Window:".DWELLING_TYPE"
Handle = Get_Property(CtrlId, "HANDLE")
rv = Exec_Method(OleSubClass$, "OLE.Subclass", Handle, CtrlId)
PropertyID=getproperty("@.PROPERTY_ID","TEXT")
Gosub InitDwellingTypeDropDown
DwellingTypes= combo_load_proc("","COMBO_LISTS","DWELLING_TYPE",1)
Convert @fm To @vm In DwellingTypes
ExisingKeys=xlate("PROPERTIES_SOLD_DATA_RESIDENTIAL_REL",PropertyID,1,"X")
Cnt=fieldcount(DwellingTypes,@vm)
DwellingTypesDrop=null$
for X = 1 to Cnt
Locate PropertyId:"*":DwellingTypes<0,X> In ExisingKeys setting foo Then
RecordExists="Yes"
End Else
RecordExists=''
end
DwellingTypesDrop:=DwellingTypes<0,X>:@fm:RecordExists:@rm
next X
*Bys = 'A'
* Justs = 'L'
* call V119('S', '', Bys, Justs, DwellingTypesDrop, '')
DwellingTypesDrop[-1,1]=null$
convert @rm to @tm in DwellingTypesDrop
convert @fm to @stm in DwellingTypesDrop
DwellingTypeDropDown<2,3>=DwellingTypesDrop
CtrlId=@Window:".DWELLING_TYPE"
Convert "." to ";" in CtrlId
Set_Property(OleSubClass$, "OLE.Combo[":CtrlId:"]", DwellingTypeDropDown)
Set_Property(OleSubClass$, "OLE.MouseWheelDisabled[":CtrlId:"]", Yes$)
Comments
Equ OleSubClass$ To @Window:".OLE_SUBCLASS"
Still no OLE event.
The ole event is set on the control to call the commuter module which is setup.
No I am not.