OpenEuphoria

[WIN] how make empty combo not "open" (dropdown) if clicked on?

• Posted by Dan Moyer <DANIELMOYER at prodigy.net> Oct 20, 2001
• 524 views

I have a combo box (defined as a DropDownList), which sometimes has stuff in
it & sometimes doesn't, and I want it *not* to drop down if it's clicked on
and there's nothing in it.  Nothing I've tried works.  Here's the last thing
I tried, can anyone suggest something that would work?  (I tried commenting
out my "getCount" test, in case something was happening I didn't know about,
and the list still drops down when clicked on.)


procedure Combo3_onEvent (atom event, atom wParam, atom lParam)

  if event = CBN_DROPDOWN then
    if getCount(Combo3) = 0 then  -- if nothing in combo, close it
       dummy = sendMessage(Combo3,CB_SHOWDROPDOWN , False,0)
    end if
  end if
end procedure
onEvent[Combo3] = routine_id("Combo3_onEvent")

Dan Moyer