|
Вопрос # 2 945/ вопрос открыт / |
|
Здравствуйте, эксперты!
В своей программе в Delphi 2009 пытаюсь настроит интересную штуку - кнопку, с выпадающим списком ввиде сетки (у TActionClientItem свойство CommandStyle=csGallery, в CommandProperties ButtonType=btSplit). При этом почему-то, в сетке должно быть несколько элементов, но отображается только один. Кто может назвать возможные причины?
 |
Вопрос задал: Вишняков Александр (статус: Посетитель)
Вопрос отправлен: 24 июня 2009, 11:33
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 27 июня 2009, 10:58; участников в обсуждении: 1.
|
|
Вишняков Александр (статус: Посетитель), 27 июня 2009, 10:58 [#1]:
В 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)
Вопрос: Почему???
Изображение: http://cid-f1c74bb4ef7c215d.skydrive.live.com/self.aspx/.Public/Untitled.jpg
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
