По vipprog.chm разборался как что делается, но пару моментов не нашел!
1. Как вставить разделитель в инструментальную панель(черта разделитель между кнопками)?
2. Как сделать чтобы кнопка была зажата(тоесть появился эффект переключателя зажата/отжата)?
На этот счет обнаружил такую функцию
Код: Выделить всё
function ShowToolButtonEx(toolBarID : longInt;
buttonName : string;
flags : word
) : word
но заставить ее работать не получается
Вот пример моего фейса
Код: Выделить всё
#commands start at 7800
const
cmGoToForm = 7701;
cmGoToFilter = 7702;
cmGoToReport = 7703;
end;
bmp1 bitmap "Заявки.bmp"
bmp2 bitmap "Фильтры.bmp"
bmp3 bitmap "Отчеты.bmp"
toolBar ZyavkaToolBar {
button1 = cmGoToForm, bmp1,"ЗАЯВКИ";
button2 = cmGoToFilter, bmp2, "ФИЛЬТРЫ";
button3 = cmGoToReport, bmp3, "ОТЧЕТЫ";
};
interface ifcMakeZayavka 'Заявки' sci3InsPMcIns), cyan;
show at (,,100,30);
toolbar ZyavkaToolBar;
var ZyavkaToolBar : longInt;
create view vMain
ActivSheet : word;
;
procedure SetSheet(Number : word);
{
ShowToolButtonEx(ZyavkaToolBar, case(MainView.ActivSheet; 1 : 'button1', 2 : 'button2', 3 : 'button3'; '' ), TB_CHECKED);
set vMain.ActivSheet := Number;
ShowToolButtonEx(ZyavkaToolBar, case(MainView.ActivSheet; 1 : 'button1', 2 : 'button2', 3 : 'button3'; '' ), TB_CHECKED);
}
HandleEvent
cmInit : {
ZyavkaToolBar := LoadToolBarEx ('ZyavkaToolBar');
}
cmGoToFilter : {
SetSheet(2);
}
cmGoToForm : {
SetSheet(1);
}
cmGoToReport : {
SetSheet(3);
}
end;
end.