Примеры использования инструментальных панелей

Пример 1.

// Определение ToolBar
toolBar webToolBar {
  button1 = {
	command = cmHyperlink;
	bitmap  = bmpHyperlink;
	help	= "Гиперссылка";
  };
  button2 = cmWebpanel, bmpWebpanel, "Web панель";
  button3 = cmMail, bmpMail, "E-mail";
};
toolBar screenTB {
  greating = cmGreating, bmpGreating, "Поздравление";
  sheet	= cmSheet, bmpSheet, "Чистый лист";
};
// Применение ToolBar
Screen iExEc
		show at (,,24,23)
		noTableNavigation;
		toolbar screenTB;
.......
HandleEvent
cmInternet :
{
 ShowToolbar('webToolBar', not isToolBarVisible('webToolBar'));
}

Пример 2. Использование инструментальной панели в компонентной модели.

Файл проекта:

#include ToolBar.inc
end;
#make "ToolBarC1.vih"
#make "ToolBarC2.vih"
#make "ToolBarC0.vip"

Файл ToolBar.inc:

Const
	cmBt01 = 30001;
	cmBt02 = 30002;
	cmBt03 = 30003;
	cmBt11 = 30004;
	cmBt12 = 30005;
	cmBt13 = 30006;
	cmBt21 = 30007;
	cmBt22 = 30008;
	cmBt23 = 30009;

Файл ToolBarC1.vih:

#component "C_C1"

bmp04 bitmap "bmp04.bmp
bmp05 bitmap "bmp05.bmp
bmp06 bitmap "bmp06.bmp

toolBar tbC1 {
  button1 = cmBt11, C_C0::bmp02, 'Кнопка 1 компонента C_C1';
  button2 = cmBt12, bmp05,  'Кнопка 2 компонента C_C1';
  button3 = cmBt13, C_C2::bmp08, 'Кнопка 3 компонента C_C1';
};

Файл ToolBarC2.vih:

#component "C_C2"

bmp07 bitmap "bmp07.bmp
bmp08 bitmap "bmp08.bmp
bmp09 bitmap "bmp09.bmp

toolBar tbC2 {
  button1 = cmBt21, C_C0::bmp03, 'Кнопка 1 компонента C_C2';
  button2 = cmBt22, C_C1::bmp06, 'Кнопка 2 компонента C_C2';
  button3 = cmBt23, bmp09,  'Кнопка 3 компонента C_C2';
};

Файл ToolBarC0.vih:

#component "C_C0"

#include ToolBarC1.vih
#include ToolBarC2.vih

bmp01 bitmap "bmp01.bmp
bmp02 bitmap "bmp02.bmp
bmp03 bitmap "bmp03.bmp

toolBar tbC0 {
  button1 = cmBt01, bmp01,  'Кнопка 1 компонента C_C0';
  button2 = cmBt02, C_C1::bmp04, 'Кнопка 2 компонента C_C0';
  button3 = cmBt03, C_C2::bmp07, 'Кнопка 3 компонента C_C0';
};

interface ToolBarTest;
	toolbar tbC0, C_C1::tbC1, C_C2::tbC2;

  screen scTB;
	show at (,,40,15);
	noTableNavigation;
<<
Тест инструментальной панели
>>
  end;

  HandleEvent
	cmBt01: {
	Message ('Кнопка 1 компонента C_C0');
}
	cmBt02: {
	Message ('Кнопка 2 компонента C_C0');
}
	cmBt03: {
	Message ('Кнопка 3 компонента C_C0');
}
	cmBt11: {
	Message ('Кнопка 1 компонента C_C1');
}
	cmBt12: {
	Message ('Кнопка 2 компонента C_C1');
}
	cmBt13: {
	Message ('Кнопка 3 компонента C_C1');
}
	cmBt21: {
	Message ('Кнопка 1 компонента C_C2');
}
	cmBt22: {
	Message ('Кнопка 2 компонента C_C2');
}
	cmBt23: {
	Message ('Кнопка 3 компонента C_C2');
}
  end;
end.