Code: Select all
setMaxDropDownRows(_) :-
exception::raise_unsupportedPredicate().
Code: Select all
clauses
setMaxDropDownRows(Rows) :-
maxDropDownRows_fact := Rows,
whenCreated(
{ :-
_ = sendMessage(gui_native::cb_setminvisible, gui_api::mkW(maxDropDownRows_fact)),
rct(L, T, R, B) = getClientRect(),
Height = getMaxDropDownRows() * gui_api::getInteger(sendMessage(gui_native::cb_getitemheight)),
Border = 2 * systemInformation_native::getSystemMetrics(systemInformation_native::sm_cyborder),
setClientRect(rct(L, T, R, B + Height + Border))
}).
Where should I put the setting of maximal dropped down lines?
A)In the property sheet generating automatically
Code: Select all
pole_lb:setMaxDropDownRows(2)
B) In the onShow event handling?
C) Let me forget dropdown and and set rather the height of the list box?