| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Toolbar

Solik ©   (2005-02-01 07:27:00) 

Можно ли без пересоздания тулбара поменять у него такие параметры как размер иконок и показывание текста на них?
и как пользоваться dropdown кнопками?

---

ECM   (2005-02-03 10:38:00) [1]

Примерно так:
procedure TMainForm.Toolbar1TBDropDown(Sender: PObj);
var
 R: TRect;
 P: TPoint;
begin
 if ToolBar1.CurIndex = tbDrDn1 then begin
   R := ToolBar1.TBButtonRect[tbDrDn1];
   P.X := R.Left;
   P.Y := R.Bottom;
   P := ToolBar1.Client2Screen(P);
   PopupMenu1.Popup(P.X,P.Y);
 end else if ToolBar1.CurIndex = tbDrDn2 then begin
   R := ToolBar1.TBButtonRect[tbDrDn2];
   P.X := R.Left;
   P.Y := R.Bottom;
   P := ToolBar1.Client2Screen(P);
   PopupMenu2.Popup(P.X,P.Y);
 end;
end;

---

Solik   (2005-02-03 07:14:00) [2]

А в ответ тишина...
про кнопки со стилем dropdown кто нибудь расскажите
у тулбара есть событие OnTBDropdown, дык как узнать на какую кнопку пришло это событие и координаты для вывода меню?

---

Наверх