SetComboboxHeight

This code has been declared by its author to be Public Domain code.

SetComboboxHeight by JoshK

2008

Sets the maximum height a combobox list drops down to when opened

Function SetComboboxHeight(gadget:TGadget,height)
	Local combohwnd=SendMessageA(QueryGadget(gadget,QUERY_HWND),CBEM_GETCOMBOCONTROL,0,0)
	SetWindowPos combohwnd,0,0,0,GadgetWidth(gadget),Desktop().ClientHeight(),SWP_NOMOVE|SWP_NOZORDER|SWP_NOREDRAW|SWP_NOACTIVATE
EndFunction

Comments

None.

Code Archives Forum