setMaxDropDownRows
Posted: 1 Mar 2015 12:29
Listbox issues an error message:
ListControlSupport works:
My program calls the erroneous version.
Where should I put the setting of maximal dropped down lines?
A)In the property sheet generating automatically
commands?
B) In the onShow event handling?
C) Let me forget dropdown and and set rather the height of the list box?
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?