|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Настраиваемый TToolbar: как добавить кнопки в левую панель?
Имеется тулбар в проекте на Delphi 7, его свойство Customizable = True, и при двойном щелчке на тулбаре открывается форма с двумя окнами, которая позволяет (?) добавлять кнопки на этот тулбар. Вопрос: как добавить кнопки в левое окно формы "Avaliable toolbar buttons", т.е. кнопки, которые, собственно, можно добавлять? Несколько часов гугления не ответ не натолкнули.
|
#2
|
|||
|
|||
Вариант 1. Делаем все возможные кнопки, ненужные делаем невидимыми. Соответсвенно, цикл по всем кнопкам с разбрасыванием по спискам по свойству видимости.
Вариант 2. Все действия делаем на TActionList. Соответсвенно, доступные кнопки выбираются из списка action'ов, те, которые видны, циклом по кнокам. Соответсвенно, после редактирования создаем нужные кнопки и указываем им соотв. action. Вариант 3. Ставим что-нить типа DevExpress Bars и пользуемся их тулбаром. У них он настраиваемый. |
#3
|
|||
|
|||
Первый вариант я уже пытался делать - невидимые кнопки всё равно появляются в правом окне.
Остальное - попробую. Спасибо за советы. |
#4
|
|||
|
|||
Решение
Раз уж я сам разобрался, то напишу здесь: может, кому-то пригодится.
Делается это примерно так (в Delphi 7). Пусть у нас есть Toolbar1 с битмапами из ImageList1. Первые Toolbar1.Count кнопок уже на нём, остальные ImageList1.Count - Toolbar1.Count мы хотим увидеть после двойного щелчка по тулбару в левой панели окна настройки тулбара. 1) Пишем обработчик события WM_NOTIFY основной формы Form1, который создаёт кнопки левой панели (не забудьте добавить CommCtrl в uses): Код:
procedure TForm1.WMNotify(var Message: TWMNotify); var pnmTB: PNMToolBar; Button: TToolButton; ButtonName: string; i: integer; begin Inherited; case Message.NMHdr^.code of TBN_GETBUTTONINFO: // запрос на описание кнопок в левой панели begin pnmTB := PNMToolBar(Message.NMHdr); // структура для описания кнопки i := pnmTB^.iItem; // индекс кнопки в ImageList1 if i >= ImageList1.Count then begin Message.Result := 0; Exit; end; // если кнопка уже есть на тулбаре, то она появится в правом списке окна Customize Toolbar // иначе if i >= Toolbar1.ButtonCount then // её нет на тулбаре begin ButtonName := Format( 'NewToolButton%d', [i-Toolbar1.ButtonCount+1] ); // подпись кнопки with pnmTB^ do begin cchText := Length(ButtonName); // количество символов в подписи кнопки StrLCopy(pszText, PChar(ButtonName), Length(ButtonName)); // копирование подписи end; with pnmTB^.tbButton do //заполняем структуру для кнопки begin iBitmap := i; idCommand := i; //? fsState := TBSTATE_ENABLED; fsStyle := TBSTYLE_BUTTON; // не нужно // bReserved[1] := 0; // bReserved[2] := 0; iString := 0; end; // создаём экземпляр кнопки Button := TToolButton.Create(Self); with Button do begin Style := tbsButton; Caption := ButtonName; ImageIndex := i; OnClick := ToolButtonClick; end; pnmTB^.tbButton.dwData := Integer(Button) end; Message.Result:= 1; end; TBN_ENDADJUST: // при закрытии формы настройки begin AdjustToolBar; // доработать тулбар Message.Result:= 1; end; end; end; 2) Для того, чтобы сепараторы на тулбаре были правильной длины, нужно после его настройки выполнять: Код:
procedure TForm1.AdjustToolBar; Var i: integer; B: TToolButton; begin with ToolBar1 do for i := 0 to ButtonCount-1 do with Buttons[i] do begin B := Buttons[i]; if Caption='' then // признак вставленного сепаратора - пустая подпись Width := 8; // установить правильную ширину Parent := ToolBar1; //без этого почему-то не работает OnClick end; end; |