![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 07.02.2009
Сообщений: 31
|
![]()
В своей программе в Delphi 2009 пытаюсь настроит интересную штуку - кнопку, с выпадающим списком ввиде сетки (у TActionClientItem свойство CommandStyle=csGallery, в CommandProperties ButtonType=btSplit). При этом почему-то, в сетке должно быть несколько элементов, но отображается только один.
![]() ![]() |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 07.02.2009
Сообщений: 31
|
![]()
В Delphi 2009 хочу добавить гелерею как в Office 2007 (картинка приклеплена)
Кода нет, т.к. Delphi это RAD среда. Но последовательность действий привести могу: 1. Создаём приложение 2. Создаём на главной форме Ribbon 3. Кидаем на форму ActionManager 4. На Ribbon правой кнопкой - Add Tab 5. На созданной RibbonPage правой кнопкой - Add Group 6. В Action Manager - ActionBars создаём новую ActionBar 7. Связываем ActionBar (в ActionBar дноимённое св-во в RibbonGroup1 8. Открывает св-во Items и создаём новую TActionClientItem 9. Назначаем ей любую Action (создаём в ActionManager - пр.кн. - Customize, в Action дожна присутствовать картинка) 10. Устанавливаем CommandStyle в csGallery 11. А в CommandProperties ButtonType в bsSplit 12.Проделываем п.8-9 несколько раз в отношении TActionClientItem, созданной в п.8 13. При запуске программы, при нажатии на созданной кнопке на стрелку должно выпадать меню должно получится как на скриншоте Вообще, те, кто программировал в Delphi 2009 должны былии проделывать что-то подобное (всё-таки функции новые и интересные). Но результат, как я уже сказал, - 0. Хотя в примере от CodeGear всё ок! (пример находится в C:\Users\Public\Documents\RAD Studio\6.0\Demos\DelphiWin32\VCLWin 32\RibbonControls\Ribbon Demo, в Windows XP в C:\Documents and Settings\Общие документы\RAD Studio\6.0\Demos\DelphiWin32\VCLWin 32\RibbonControls\Ribbon Demo) Вопрос: Почему??? Изображение Последний раз редактировалось Alex217Vish; 27.06.2009 в 10:02. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Наше будущее - ribbon | andrey4623 | Свободное общение | 23 | 26.01.2009 16:54 |
свойство Visible Delphi | Var17 | Win Api | 1 | 08.10.2008 11:31 |
задать свойство Caption на Русском для кнопки mbYes в сообщении MessageDlg | Plastik-X | БД в Delphi | 4 | 27.04.2008 13:52 |
триггерные кнопки и кнопки переключатели в DELPHI | MARGO | Помощь студентам | 3 | 12.11.2007 17:35 |