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$)

Comments

Sign In or Register to comment.