уважаемые посетители блога, если Вам понравилась, то, пожалуйста, помогите автору с лечением. Подробности тут.

Начиная с RAD Studio 2009 в составе VCL Delphi появилась новая вкладка Ribbon Controls. На этой вкладке располагаются компоненты для создания относительно нового интерфейса для приложения, так называемого «ленточного» интерфейса к которому уже давно привыкли пользователи Microsoft Office 2007. Сегодня и мы, как разработчики, начнем процесс мучительного привыкания к новым компонентам на благо пользователей наших приложений.

Ribbon Controls

На самом деле процесс освоения работы с новыми компонентами не такой уж и мучительный, если подойти к изучению этого вопроса с самого начала и не торопиться разработать интерфейс один-к-одному как у Office 2007 — за день такие вещи, к сожалению, не делаются.
Поэтому и мы начнем изучение Ribbon Controls с самого начала и будем создавать интерфейс приложения шаг за шагом, от простого к сложному, чтобы не упустить ни одной детали.

1. Устройство интерфейса Ribbon

В основе Ribbon лежат три вида элементов: вкладка, панель и элемент внутри панели (см. рисунок)
Ribbon ElementsВкладкам и панелям можно изменять порядок расположения в ленте Ribbon, а элементы на панелях могут иметь различную функциональную нагрузку (применяться в качестве кнопок, флажков, списков, галерей и т.д.), а также группироваться по определенным признакам. И, забегая немного вперед, скажу, что все функциональные возможности элементов Ribbon определяются с помощью одно-трех компонентов без применения каких-либо стандартный контролов, наподобие Button, CheckBox  и т.д.

ДоRibbon Componentsполнительно, Ribbon может содержать кнопку главного меню и панель быстрого запуска.

В главном меню, помимо основных элементов, могут размещаться также ссылки на последние открытые документы, что делает такое меню практически идеальным для пользователей приложений,  работающих с различными документами.

Панель быстрого запуска может содержать копии любых элементов Ribbon для удобства их использования.

Теперь, вооружившись элементарными знаниями об устройстве Ribbon, попробуем построить свой собственный ленточный интерфейс.

2. Первые Ribbon интерфейс  — он самый сложный

Все элементы Ribbon располагаются на странице палитры компонентов Ribbon Controls

Ribbon Controls

На первый взгляд, разработчики по жадничали и оставили нам в распоряжение всего пять элементов:
1. TRibbon — основа всего интерфейса (лента)
2. TRibbonComboBox
3. TRibbonSpinEdit
4. TRibbonScreenTipManager — менеджер всплывающих подсказок
5. TScreenTipsPopup — всплывающая подсказка
Но на самом деле, этих компонентов более чем достаточно для разработки полноценного интерфейса. Более того, не факт, что когда-либо Вам придётся использовать в работе второй и третий компоненты (TRibbonComboBox и TRibbonSpinEdit).

Дело в том, что Ribbon в Delphi работает только совместно с компонентом TActionManager со страницы Additional палитры компонентов. И этот компонент берет на себя львиную долю всей работы, в том числе, и работы с событиями элементов.

Теперь попробуем создать простенький интерфейс, рассмотрев попутно свойства компонентов Ribbon.

2.1. Работа с TRibbon

Откройте Delphi, создайте новое приложение и расположите на форме следующие элементы:

  1. TActionManager (вкладка Additional)
  2. TImageList (вкладка Win32)
  3. TRibbon (вкладка Ribbon Controls)

В итоге Вы должны получить примерно следующую картинку:

Ribbon Application

Теперь выберите TRibbon и в свойстве ActionManager укажите наш ActionManager1.
В свою очередь, у компонента ActionManager1 в свойстве Images укажите ImageList1.
Предварительная настройка закончена — теперь TRibbon будет находится под управлением менеджера действий и каждая новая панель Ribbon будет автоматически добавляться в  список ActionManager1.
Прежде, чем переходить к расстановке вкладок, панелей и элементов на ленте, рассмотрим её константы и основные свойства.

У компонента TRibbon определены следующие константы:

Константа Значение Описание
cRibbonHideWidth 300 Ширина родительского элемента при которой Ribbon
должен автоматически скрываться
cRibbonHideHeight 250 Высота родительского элемента при которой Ribbon
должен автоматически скрываться
cRibbonQuickAccessToolbarLeft 34 Левый отступ панели быстрого запуска
cRibbonHeight 117 Высота ленты
cRibbonQATHeight 26 Высота панели быстрого запуска
cRibbonUnthemedCaptionHeight 30 Высота заголовка ленты
cRibbonFirstTabOffSet 47 Отступ первой вкладки
cRibbonTabSpacing 6 Отступ между вкладками
cRibbonTabHeight 23 Высота вкладки
cRibbonMinimizedHeight 27 Высота вкладки в минимизированном состоянии
cRibbonTabScrollButtonWidth 12 Ширина скрола
cRibbonGroupCaptionHeight 16 Высота заголовка группы
cRibbonGroupHeight 86 Высота группы
cRibbonPageHeight 93 Высота вкладки
cRibbonMinimumCaptionWidth 50 Минимальная ширина заголовка ленты
UM_DISPLAYKEYTIPS WM_USER + 1 Сообщение показа KeyTips
UM_CHECKSIZE WM_USER + 2 Сообщение, посылаемое после WMWindowPosChanged

Свойства компонента TRibbon:

Свойство Тип Описание
ActionManager TCustomActionManager Компонент TActionManager под управлением
которого будет работать лента
ApplicationMenu TApplicationMenu Главное меню приложения
Caption string Заголовок ленты
DocumentName string Необязательное свойство. Имя документа дописывается перед свойством
Caption
HideTabs boolean Определяет будут или нет скрываться вкладки на ленте
QuickAccessToolbar TQuickAccessToolbar Панель быстрого запуска
ScreenTips TCustomScreenTipsManager Менеджер всплывающих подсказок
ShowHelpButton boolean Определяет будет или нет показываться кнопка «Помощь» в правом
верхнем углу ленты
Style TRibbonStyleActionBars Визуальный стиль ленты. Всего по умолчанию доступно три стиля:
Luna, Obsidian и Silver
Tabs TRibbonTabs Коллекция вкладок ленты

Теперь, давайте добавим на нашу ленту первую вкладку. Для этого можно:

    1. Воспользоваться контекстным меню компонента (опция Add Tab)
    2. Воспользоваться опциями компонента в Object Inspector’e:

Ribbon Options

  1. Использовать редактор свойства Tabs компонента

Теперь на вкладку можно добавлять новые группы. Сделать это можно либо через контекстное меню вкладки, либо, опять же воспользовавшись опциями в Object Inspector’е. Для примера, добавим на вкладку три группы:

Ribbon Groups

В любой момент вы можете изменить положение групп на вкладке. Для этого необходимо воспользоваться опцией «Reorder Groups…».
У группы Ribbon появляются следующие дополнительные свойства:
DialogAction : TAction — действие, которое будет выполняться при клике на заголовке группы. Если это свойство определено, то вид заголовка группы измениться на следующий:

Ribbon DialogAction

Rows : integer — свойство определяет на сколько строк будут занимать элементы панели. По умолчанию свойство имеет значение 3.

Теперь попробуем добавить обычную кнопку.

    1. В свойствах ImageList устанавливаем значения свойств Height и Width равным 32 и загружаем в него любую картинку.
    2. Двойным кликом по ActionManager открываем редактор и добавляем новое событие:

ActionManager Actions

  1. Редактируем свойства у нового действия (Action)
Свойство Тип Значение Описание
Caption string WebDelphi.ru Заголовок, который будет показываться пользователю при размещении
действия на панели Ribbon
ImageIndex integer 0 Индекс картинки в ImageList, которая будет
ассоциирована с действием
Name string OpenStartURL Внутреннее имя действия. Обязательно его изменяйте, т.к. при большом
количестве действий Вы можете просто запутаться в них
ShortCut TShortCut Ctrl+U Клавиши быстрого вызова действия

Теперь определим обработчик действия. Пусть при вызове действия открывается главная страница нашего блога. Располагаем на форме компонент TWebBrowser (вкладка Interet палитры компонентов), в редакторе Action Manager’а делаем двойной клик по действию и пишем обработчик:

procedure TForm2.OpenStartURLExecute(Sender: TObject);
begin
WebBrowser1.Navigate('http://webdelphi.ru');
end;

Теперь возьмие и перетащите мышкой действие из ActionManager на любую панель Ribbon. В результате должно получиться примерно следующее:

Ribbon with action

По умолчанию новое действие располагается в первой свободной строке (Row) панели. Для того, чтобы новая кнопка выглядела как полагается, т.е. сверху располагалась иконка 32×32 пикселя и снизу подпись, необходимо выбрать действие на панели, перейти в Object Inspector’е выбрать вкладку свойств CommandProperties и указать в свойстве ButtonSize значение bsLarge. При этом ширина панели Ribbon автоматически изменится и вид панели Ribbon станет следующим:

Ribbon Button

Теперь можете запустить приложение и проверить работу.

Ribbon Application

Кроме того, что Вы можете располагать на панели действия в виде кнопок различного размера, Вы также можете, используя ActionManager располагать действия как CheckBox’ы, RadioButton’ы и т.д.
Давайте, например на второй панели разместим 3 действия в виде радиокнопок.


Создаем в Action Manager’е три новых действия с именами RadioOption1, RadioOption2, RadioOption3 соответственно. Перетаскиваем их наа панель Ribbon и в свойстве CommandStyle указываем значение csRadioButton. Вид Ribbon должен быть следующим:

Ribbon radio options

Видите, новые опции при запуске приложение оказались недоступными? Все дело в том, что, если Action не имеет обработчика, то в работающем приложении его свойство Enabled автоматически переходит в значение false. Напишем три простых обработчика:

procedure TForm2.Action1Execute(Sender: TObject);
begin
ShowMessage('RadioOption1 Executed');
Action1.Checked:=true;
end;

procedure TForm2.Action2Execute(Sender: TObject);
begin
ShowMessage('RadioOption2 Executed');
Action2.Checked:=true;
end;

procedure TForm2.Action3Execute(Sender: TObject);
begin
ShowMessage('RadioOption3 Executed');
Action3.Checked:=true;
end;

Для того, чтобы все три кнопки действовали как и полагается, чтобы в одно время могла быть нажата только одна кнопка, необходимо в ActionManager’е выставить у всех трех действий одинаковое свойство GroupIndex отличное от нуля.
Теперь снова запустите приложение и можете увидеть, что вторая панель Ribbon действует также как и обычный компонент TRadioGroup.
Все возможные формы представления действий на панелях Ribbon мы рассмотрим в следующей статье, а пока сосредоточимся на основах работы.
Переходим к созданию главного меню. Выбираем компонент TRibbon и в Object Inspector’е жмем опцию «Add Application Menu». Иконка кнопки главного меню берется из свойств проекта (Application Icon). По умолчанию в главное меню добавляется пустое действие ActionClientItem0, которое Вы можете изменить по своему усмотрению. Добавим в главное меню уже имеющееся у нас действие OpenStartURL. Просто перетащите действие из ActionManager’а на кнопку главного меню. В результате вид главного меню у работающего приложения будет следующим:

Ribbon Application Menu

Аналогичным образом настраивается и панель быстрого запуска. Надеюсь, смысл работы с компонентом Ribbon в общих чертах Вам стал более-менее понятен. Поэтому переходим к следующему шагу разработки интерфейса — работе с всплывающими подсказками.

2.2. Работа с компонентом TScreenTipsManager

Ещё одной отличительной чертой интерфейса Ribbon являются красивые всплывающие подсказки. Эти подсказки (ScreenTips) помимо своей красоты и удобства являются также и более информативными для пользователей нежели те же самые Hints.

За работу и управление подсказками отвечает компонент TScreenTipsManager. Располагаем его на форме и в свойстве  ScreenTips у компонента TRibbon указываем  ScreenTipsManager1. Теперь вы можете создавать подсказки программно или воспользоваться редактором. Так как сегодня мы делаем только  первый шаг в работе с Ribbon Controls, то рассмотрим работу визуального редактора.

Выбираем компонент ScreenTipsManager1, в Object Inspector’e вызываем редактор свойства LinkedActionLists, и добавляем в список уже имеющийся компонент ActionManager1:

Ribbon ScreenTips

Теперь в опциях Object Inspector выбираем действие «Generate Screen Tips». В итоге, если всё сделано правильно, то Вы должны получить сообщение следующего вида:

ScreenTips

Это сообщение означает, что ScreenTipsManager создал для каждого действия из ActionManager свою подсказку. Для того, чтобы изменить вид подсказок нажмите в Object Inspector’е «Edit Screen Tips» и перед Вами откроется визуальный редактор подсказок:

Ribbon ScreenTips redactor

Работа с редактором достаточно проста и удобна:

  1. Выбираете в списке действие
  2. Редактируете  текст подсказки
  3. При необходимости загружаете картинку, вставляете/удаляете нижнюю подпись (Footer), верхнюю подпись (Header) и т.д.

По умолчанию за текст подсказки принимается значение свойства Hint у действия. Создадим подсказку для одного из наших действий.

Выбираем в редакторе действие OpenStartURL и заполняем текстовое поле:

Ribbon Redactor

Загружаем картинку для подсказки. Для этого делаем двойной клик по соответствующему полю и выбираем рисунок в формате bmp.
Так как у нашего приложения ещё нет своей встроенной справки, то желательно убрать Footer. Для этого снимаем флажок с опции Show Footer. В итоге у меня получилась вот такая подсказка:

Screen Tip

Дополнительно для каждой подсказки вы можете установить радиус скругления для углов (свойство Corner Size), изменить текст Footer’а, отключить показ заголовка, клавиш быстрого вызова (ShortCuts), а также изменить рисунок для Footer (по умолчанию это рисунок в виде вопросительного знака).
А теперь самое важное — для того, чтобы все подсказки появлялись необходимо чтобы у главной формы приложения свойство ShowHint было равно True.
Теперь запустите приложение и наведите курсор мыши на кнопку. Через пару секунд появится всплывающая подсказка:

Application with Screen Tip

Кроме такого вида всплывающих подсказок, вы также можете использовать компонент TScreenTipsPopup.

2.3. Работа с компонентом TScreenTipsPopup

В отличие от предыдущего компонента TScreenTipsPopup является визуальным компонентом. Смысл работы примерно тот же, что и у ScreenTipsManager, но за одним замечательным различием — TScreenTipsPopup может быть ассоциирован с любым компонентом формы, даже с тем у которого нет действия, описанного в ActionManager’е. В нашем случае таким компонентом является WebBrowser1. Давайте создадим для него свой Screen Tip.
Расположите в любом удобном для Вас месте новый компонент TScreenTipsPopup.
Теперь перейдите в Object Inspector и откройте вкладку свойств Screen Tip. Задайте значения свойств Description и Header. Остальные свойства можно оставить незаполненными.
Ассоциируйте подсказку с компонентом WebBrowser. Для этого в выпадающем списке свойства Associate компонента выберите WebBrowser1, а в свойстве ScreenTipsManager укажите ScreenTipsManager1.
Запустите приложение и наведите указатель мыши на браузер:

WebBrowser ScreenTip

Эта же подсказка появится и при наведении указателя мыши на сам компонент ScreenTipsPopup.
Вот пожалуй и все, что касается основ работы с компонентами Ribbon Controls.
Как видите, сегодня основной упор в статье был сделан именно на визуальную разработку интерфейса при минимальной работе с исходным кодом.
В следующий раз пройдем немного дальше и займемся программированием. Научимся создавать новые виды элементов, красивые PopUp-меню и так далее. В общем оставайтесь с нами и скучно не будет ;)

5 1 голос
Рейтинг статьи
уважаемые посетители блога, если Вам понравилась, то, пожалуйста, помогите автору с лечением. Подробности тут.
Подписаться
Уведомить о
98 Комментарий
Межтекстовые Отзывы
Посмотреть все комментарии
Алексей
Алексей
27/10/2009 22:33

Спасибо за статью. Я сейчас тоже юзаю Ribbon. Так увлекся, что не могу оторваться, почему-то очень понравились эти компоненты, хотя никогда не пользовался приложениями с таким интерфейсом, кроме Small Basic — там вроде тоже также сделано. :-)

jkeks
28/10/2009 14:17

Шикарно, если я тупо задам щас вопрос, то пожалуйста удалите этот коммент, но ответьте пожалуйста, где взять этот Delphi , дайте адрес пожалуйста.
Спасибо.
Автору огромное спасибо за инфу. Давно искал как делать современнеые интерфейсы на Дельфях.

RemaGe
28/10/2009 16:33

На торентах есть, скачал поюзал, но что бы написать что либо приличное, да и разобраться в 2010 нехватает времени, видимо так и буду сидеть на 7 -)

V.I.R.U.S.
28/10/2009 18:42

Респект автору статьи, да и вообще, этот сайт уже давно в закладках браузера!!! Так Держать, Влад! Все вместе с другими читателями, будем ждать новых материалов!!!

RemaGe
28/10/2009 20:07

В принципе и без заточки под д7 все понятно (чуть чуть потыкал, вроде все по старому), просто время нао выделить, а это уже проблема)

Sergey
Sergey
01/11/2009 08:28

Статья супер, особенно для начинающих.
У меня вопрос возник, я работаю в MS Office 2007, там при перемещении указателя мыши с одной (П) группы на другую (В)  подсветка П угасает медленно и подсветка В появляется тоже медленно. А в компоненте TRibbon — это происходит моментально, есть ли какие-нибудь настройки этого компонента, чтобы решить вопрос с подсветкой (чтоб было как в MS Office 2007)…
Заранее спасибо!

Алексей Тимохин

Спасибо за подробное описание.
Меня больше всего заинтриговал компонент TScreenTipsManager. Настолько, что я подумываю, а не реализовать ли самому такой для старых версий Delphi и без привязки к Action-ам.

Олег
Олег
08/12/2009 20:08

Спасибо!
А как в рунтайме удалять старые и добавлять новые элементы в RibbonGroup и самое важное — итемы к элементам, например, такие, которые выпадают в списке у кнопки ButtonType = btDropDown?

Олег
Олег
09/12/2009 16:39

Спасибо, да, и такой вариант кое-в чём рассматриваю, но вот содержимое Items должно зависеть от конфигурационного файла. Ладно, будем думать, искать методы.
Кстати, я не могу понять каким образом можно узнать и изменить текущий ItemIndex у риббон комбобокса. :? Он просто-напросто не имеет такого свойства. В RibbonActnCtrls.pas текст ItemIndex или что-то похожее на него тоже не встречается.

Олег
Олег
09/12/2009 18:15

О, блин.. всё через мягкое место.))
Благо RibbonGroups могут быть контейнерами, поэтому буду использовать привычные компоненты вместо ленточных.
В таком случае, надеюсь, вы позволите мне немного почти оффтопа. Не подскажете, где можно почитать о модификации стандартных компонентов, чтобы стиль (например, цвет подсветки при наведении мышки, при клике) приблизить к риббоновским?

Олег
Олег
10/12/2009 21:23

Спасибо, посмотрю.
PS: Продолжайте писать, нам очень интересно.

RozReg
RozReg
16/12/2009 17:47

Спасибо автору!
У меня вопрос.
Хочу поместить на панель Ribbon простую метку Label для просто для показа какой-то текущей информации. Это возможно? Что нужно выставить в свойстве CommandStyle?

RaiNNy
RaiNNy
10/01/2010 10:18

У меня очень странная проблема с риббоном: при добавлении картинки прозрачные области становятся черными. Пробовал разные изображения, не помогает. Может быть есть какое-то хитрое свойство, которое за это отвечает?

RaiNNy
RaiNNy
11/01/2010 05:30

Изначально в ImageList, потом в ActionManager’е просто устанавливаю нужный ItemIndex.

RozReg
RozReg
11/01/2010 15:31

«Перехватываю» вопрос, т.к. у меня такая же проблема. Пробовал вставлять сразу в формате png с прозрачным фоном. В этом случае в ImageList свойство Transparent Color недоступно. А на Ribbon’e картинка становится на черном фоне. Если вставляю в формате bmp, и указываю Transparent Color, то всё в порядке за исключением того, что по краям картинки нимб, рваные края, остатки от бэкграунда (картинка круглая).

bambarmia
bambarmia
11/01/2010 21:12

2Олег, про генерацию рибона в реал-тайме — глянь на https://forums.embarcadero.com/message.jspa?messageID=199857#199857 2RaiNNy, про зачернение прозрачных областей — я тоже наступил на эти грабли, помогло только создание проекта заново, и перенос текста программы в него из старой версии, судя по всему это где-то в настройках дизайн-тайма что-то сбилось (правда обрати внимание на обязательную глубину цвета в cd32Bit, может просто у тебя cdDeviceDependent вместо него выставлен в ImageList). 2Vlad, во-первых, спасибо за то, что Вы есть))), но осмелюсь тут повторить свой вопрос про ScreenTips из второй части статьи (адресовал туда, так как там больше про галерею описано). Кому (и как) удалось добавить эти… Подробнее »

bambarmia
bambarmia
11/01/2010 21:17

чтобы вопрос был понятнее, снял несколько скриншотов:
тут Tips естьcomment image
тут — нетуcomment image
а, содержимое формы подробно выложил на https://forums.embarcadero.com/thread.jspa?threadID=30991&tstart=0

bambarmia
bambarmia
13/01/2010 13:39

    2RaiNNy, про зачернение прозрачных областей: сегодня случайно эксперимент произвел, удалив res файл из проекта, при следующем открытии проекта появилось предупреждение «Cannot find resource file… Recreated.», жму ОК и вуаля — все бывшие прозрачности стали черными. Пришлось разбираться, так как с нуля опять клепать  проект не комильфо. Вот пяткой чую, что не «хитрое свойство» за прозрачки отвечает, а содержимое res файлов, только каким боком? Ведь там хранится лишь Icon\MAINICON и Manifest\1, тут-то собака и порылась! Если в res-файле удалить Manifest\1 содержащий <?xml version=»1.0″ encoding=»UTF-8″ standalone=»yes»?> <assembly xmlns=»urn:schemas-microsoft-com:asm.v1″ manifestVersion=»1.0″> <assemblyIdentity type=»win32″ name=»CodeGear RAD Studio» version=»14.0.3615.26342″ processorArchitecture=»*»/> <dependency> <dependentAssembly> <assemblyIdentity type=»win32″… Подробнее »

Дмитрий
Дмитрий
22/06/2010 22:27

Доброе времени суток!! Помогите ришить одну проблему. Я поставил Билдер 2010, пробывал работать с етими обектами, статья очень понятная, но у меня не как не выходит вставить в главное меню картинки, может ктото с этим сталкивался

Дмитрий
Дмитрий
22/06/2010 23:19

Я розобрался как картинки всавлять, а можно вставльт png картинки ну только чтобы они были прозрачны как ониесть?

Дмитрий
Дмитрий
22/06/2010 23:20

Может кто знает где можно скачать всезначки от Microsoft Word 2007?

Дмитрий
Дмитрий
22/06/2010 23:48

А где именно?

Дмитрий
Дмитрий
23/06/2010 21:08

Vlad
Я хочу поставить картинки png но она по контуру почемуто чорная и не прозрачна я не как не могу найти там прозрвчность чорного цвета выставить, подскажите пожайлусто, где именно выставить

Дмитрий
Дмитрий
24/06/2010 16:08

Vlad, это вашы статьи?

Дмитрий
Дмитрий
24/06/2010 17:13

А вы бы не могли написать еще несколько статей ка зделать (вставить) обект ComboBox і Edit?

Дмитрий
Дмитрий
24/06/2010 17:37

Я раньше написал программу Текстовий редактор, и я хочу создать в RibbonGroup вибор размера текста и Вибор шрифта, мне главное узнать ка можно такие обекты поставить как у Microsoft Office Word 2007 есть RibbonGroup (Шрифт), от мне нужно такое зделать, включая всьо што там есть

bambarmia
bambarmia
25/06/2010 12:00

Дмитрий, в Word используется Fluent UI писанный не на Delphi, поэтому такие-же как у MS Office плюшки не получатся. Более того, дополнительное лицензионное соглашение ( http://www.developers.org.ua/forum/topic/1472 ) ограничивает полёт фантазии. Только пытаться использовать всё, что у них там есть, равно что пытаться в комментарии использовать все буквы русского алфавита, текст доходчивее не получится, но надеюсь программы то вы грамотнее пишите.

Дмитрий
Дмитрий
25/06/2010 19:33

Я с TRibbonComboBox розобрался у меня еше один фопрос, как мне иожно зделать как в MS Office 2007 типа панелюку там где Жирний шрифт и так далее, можно ли вапще такую поставить панельку?

Дмитрий
Дмитрий
25/06/2010 19:42

А как именно это можно реализовать? За рание спасибо

bambarmia
bambarmia
25/06/2010 19:59

Сомневаюсь, что Дмитрий настолько глуп, что сам бы не разобрался как склепать аналог панели Главная/Шрифт, ведь судя по почерку это либо наш юный соотечественник (значит гениальный программист в будущем), либо индус (профессиональный программист в настоящем). Поэтому, скорее всего, вопрос то стоял про всплывающую при выделении фрагмента «панелюку», а тут без кода не обойтись.

Дмитрий
Дмитрий
25/06/2010 20:14

мне нужно просто расположить компоненты чтобы вышло что то такое на подобие
А код у меня есть

Дмитрий
Дмитрий
25/06/2010 22:03

Я 2010 удалил поставил 2009

Дмитрий
Дмитрий
29/06/2010 19:28

Vlad, я нашол исходники от 2009 Билдера, это там свойствами задано маленькая панель где там Жирный, Курсивный, или кодом?

Дмитрий
Дмитрий
29/06/2010 19:31

Щас буду пробывать!!!

Дмитрий
Дмитрий
29/06/2010 19:42

Vlad я шо то пробую и не чего не выходит, может ты попробуеш?

Дмитрий
Дмитрий
06/07/2010 16:41

Vlad привет ты не могби посмотреть как в групу зделать несколько кнопок, я не как не могу розобратса в том исходнике, ты мне хотяби свойства подскажи, В принципе я свойства знаю как начать группу кнопок и запкончить только не чего путьового не выходит, попробуй ты пожайлусто!!!!!!! А лучше статью написать надеюсь не меня одного это интерисует

Дмитрий
Дмитрий
09/07/2010 09:41

Vlad, привет я уже розобрался с групами кнопок, у меня еще один вопрос, я Хочу чтобы в комбо боксе била прокрутка (ScrollBars) как в Word 2007

Дмитрий
Дмитрий
13/07/2010 20:12

Vlad, Привет как мне можно обратитса к кнопке из ActionManager1, к изображению которое туда загружаетса, я хочу запрограмировать цыет текста, при этом используя БитМап, но я не знаю как обратитса к кнопке, подскажы!

Дмитрий
Дмитрий
14/07/2010 10:51

Vlad, Привет я запрограмировал кнопку СпидБуттон, можеш мне помочь єтот код перенисти в кнопку из ActionManager1.
Вот код кнопки:
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
Graphics::TBitmap *bmp = new Graphics::TBitmap();
bmp->Height = 5;
bmp->Width = 17;
bmp->LoadFromFile(«F:\\Мой проэкт\\Значки на проект\\16\\Панель инструментов\\ColorText.bmp»); // загрузили
bmp->Canvas->Pen->Color=clRed;
bmp->Canvas->Brush->Color = clRed; // установили цвет
bmp->Canvas->Rectangle(0,13,16,17); // дорисовали
SpeedButton1->Glyph->Assign(bmp);
delete bmp;
bmp = NULL;
}

Дмитрий
Дмитрий
14/07/2010 11:01

Vlad, ти мне просто помоги этот код перенисти в кнопку из ActionManager1.  Я на С++ пишу

Дмитрий
Дмитрий
14/07/2010 11:30

Vlad, а ты не знаеш?

Дмитрий
Дмитрий
14/07/2010 11:45

Vlad ты видил в ворде вибор цвета текста?, Вот там иконка кнопки — снизу иконки прямоугольний который показует цвет текста, Я вот попробывал зделать для SpeedButton1, и у меня вышло что я хотел, мне поросто нужно узнать как можно обратитса к изображению кнопки чтобы туда прописать этот код!!!

Дмитрий
Дмитрий
02/09/2010 19:59

Vlad, привет у меня такой вопрос с подсказками я розобрался всьо выходит, но одно но у меня не отображаэтса подсказка RibbonGroup->DialogAction — событие в этом свойстве задано и подсказка для этого события тоже создана но не показывает, что делать?

Дмитрий
Дмитрий
02/09/2010 20:37

Vlad, я розобрался спасибо, афегезные стати, побольше таких!!!!!!!!

Agronom
Agronom
04/09/2010 18:30

Vlad, большое спасибо за статью! Практически все получилось, за исключением динамического создания кнопок с выпадающим списком (btDropDown и BtSplit). В выпадающем списке иконки «съезжают» вниз где-то на треть и частично отсекаются. Вот картинка Создаю кнопку так: [code] // сначала добавляем кнопку с выпадающим списком aci:=abi.Items.Add; // aci (ActionClientItem) - abi - ActionBarItem // создаем экшн, присваиваем ему икону и заголовок задаем обработчик aci.action:=CreateNewAction(ActionManager1, caption1, imageindex1, process_function); Tbuttonproperties(aci.CommandProperties).ButtonType:=btDropDown; Tbuttonproperties(aci.CommandProperties).ButtonSize:=bsLarge;  // Теперь добавляем элементы выпадающего списка из заранее заготовленного массива for i:=0 to elements.count-1 do begin acie:=aci.Items.Add; acie.Action:=CreateNewAction(Actionmanager1,elements.items[i].caption,elements.items[i].imageindex,process_function); end; [/code] Пожалуйста, подскажите, что я могу делать не так. При этом вариант создать… Подробнее »

Agronom
Agronom
09/09/2010 16:33

Иконки я делал в IcoFX, каждая иконка содержит один слайд 16*16 или 32*32 (про разрешение иконки IcoFX ничего не спросило). Иконки с одинаковым названием, но разного размера кладутся в 2 разные папки Ico16 и Ico32, а потом во время создания очередного элемента ActionClientItem добавляются в 2 ImageLista, которые создаются динамически со значениями свойств: [code] // создаем ImageList rib_images := TImageList.Create(Owner); rib_images.Name := 'rib_images'; rib_images.ColorDepth := cd32Bit; rib_images.DrawingStyle := dsTransparent; rib_images.Height := 16; rib_images.Width := 16; rib_largeimages := TImageList.Create(Owner); rib_largeimages.Name := 'rib_largeimages'; rib_largeimages.ColorDepth := cd32Bit; rib_largeimages.DrawingStyle := dsTransparent; rib_largeimages.Height := 32; rib_largeimages.Width := 32; ----------------------- acm.Images := rib_images; // acm:TActionManager acm.LargeImages… Подробнее »

Михаил
Михаил
18/09/2010 03:38

Уважаемый Влад!
Большое спасибо за Ваш труд.
Проблема (возможно ошибка в коде TRibbon): для кнопок, у которых ButtonSize = bsSmall, не удается создать группу — работает некорректно, «загораются» все кнопки одновременно. Если ButtonSize = bsLarge, то все OK. Попробуйте изменить ButtonSize с bsLarge на bsSmall для кнопок стиля в Embarcaderoвском примере RibbonDemo — переключение работать будет, но состояние кнопок отображаться будет неверно, все они «западут», а не будут , как положено, отскакивать.
Допускаю, конечно, и своё непонимание. А как Вы считаете?

Михаил
Михаил
18/09/2010 04:55

Уважаемый Влад!
Дополнительная информация для размышления. А как же в этом примере работают кнопки выравнивания текста — они же bsSmall? Они работают не по правилам. У них GroupIndex = 0. И корректно работают только в присутствии TRichEdit.

Михаил
Михаил
18/09/2010 05:45

Уважаемый Влад!
Проверил. Вроде порядок. Еще раз подтвердил: меняешь кнопки с маленьких на большие, начинает работать как надо. Можно ли выслать проект? Если да, то как?

Михаил
Михаил
18/09/2010 13:07

Уважаемый Влад!
Прошу простить за надоедливость.
Продолжил эксперимент с родным примером TRibbon Embarcadero RibbonDemo. Переключение стилей. Если заменить большие кнопки на маленькие, то работает правильно. Но только если в обработчике команда на изменение стиля. Меняем команду (например, на Exit;), работает неправильно. Меняем теперь на большие кнопки – работает правильно (уже и с Exit;). Т.е. правильность работы должна обеспечиваться либо командой на изменение стиля, либо режимом больших кнопок. Продолжаю выяснения.