Visual Prolog 802 CE.
![Image](http://www.hardforum.ru/attachments/31978d1577117552-listbutton.jpg)
Localization of ListButton control in editor of ToolBar is correct.
Code: Select all
open core
Code: Select all
% tb_lbut(id_tb_1_2, 80, [], b_true, 0)
tb_lbut(id_tb_1_2, 80, [], core::b_true, 0)
Code: Select all
clauses
create_listcontrols(TbWin) :-
lbut(TbWin, Id, rct(L, T0, R, _), SList, Enabled, Pos),
T = T0 + 1,
B = T + toolbar_listbutton_height,
LBW = vpi::winCreateControl(wc_LBoxButton, rct(L, T, R, B), "", TbWin, [wsf_Visible], convert(ctlId, Id)),
vpi::lboxSuspend(LBW),
vpi::lboxAdd(LBW, -1, SList),
vpi::lboxSetSel(LBW, Pos, b_true),
vpi::lboxResume(LBW),
get_Flag(Enabled, FLAG),
vpi::winSetState(LBW, [FLAG]),
vpi::winMove(LBW,rct(L, T, R, B)), % <- it is tablet
fail.