Ribbon UI как он есть. Работа с Windows Ribbon Framework в Delphi 2010 — XE2.

В процессе написания целого цикла статей по работе с Ribbon Controls мне довольно часто приходилось отвечать на различного рода вопросы основная суть которых, по большому счёту, сводилась к примерно такому: «Почему Ribbon Controls в Delphi такие глючные и недоделанные?«. И ведь сильно-то тут и не поспоришь…Если по бОльшей части «глюков» можно было бы и поспорить, то с недоделками — врядли. Взять хотя бы сам внешний вид ленты — он изменился. Не сказать, что стал совершенно другой, но тем не менее откройте тот же Office 2007 и Office 2010 и ощутите разницу. Она есть. То есть получается, что мы в Delphi опять как бы застряли на пару лет в прошлом по части Ribbon? Оказывается, что совсем не застряли и даже более того — мы имеем возможность собирать приложения с интерфейсом «а-ля Office 2010» без использования каких-либо дорогостоящих компонентов типа DevExpress. Не верите? =) Смотрите скрин ниже:

На библиотеку, с помощью которой можно сделать такой интерфейс я наткнулся абсолютно случайно — хотел по-быстрому найти информацию по тем же Ribbon Controls и скинуть ссылочку на форум, а натолкнулся на довольно интересную библиотеку под названием «Windows Ribbon Framework for Delphi» автором которой является Erik van Bilsen. Библиотека отличная, но чтобы так прям сходу «въехать» в работу с ней — придётся плотненько подучить мат.часть по Ribbon в MSDN…ну или продолжать дальше пользоваться Ribbon Controls и ожидать. Так как в данный момент я по большей части работаю с Firemonkey (опять же конкурс новый на Delphifeeds.ru), то сегодня я расскажу про эту библиотеку совсем немного, ну, а дальше посмотрим.

[adsenseyu1]

 Итак, что нам понадобится для работы с библиотекой:

1. ОС Windows 7. В Windows XP не пойдет.
2. Delphi не ниже Delphi 2010.
3. Сама библиотека и необходимые инструменты для создания Ribbon-интерфейса. Скачать их можно тут.
4. Руки и голова с, хотя бы, основными сведениями о том, как создается Ribbon UI в Windows. Без этих знаний работа с библиотекой — темный лес.

Сейчас в нем ничего нет. Для того, чтобы создать новый проект, выбираем в главном меню File->New. Откроется окно для выбора параметров проекта:

Здесь у нас есть выбор:

В списке слева содержится весь перечень команд для интерфейса «а-ля WordPad». Можете выбрать в списке любую команду и увидите справа всю информацию по ней, а именно:

На последней вкладке «XML Source» находится содержимое того самого файла Ribbon Markup, который мы должны бы писать ручками:

Теперь посмотрим, что нам создал дизайнер. В главном меню выбираем Project -> Preview или просто жмем F9. Перед вами появится вот такое окно с просмотром только что созданного интерфейса:

После того, как интерфейс доведен до ума и содержит всё, что нам необходимо, жмем Ctrl+F9 и дизайнер, используя компилятор UICC.EXE и компилятор Delphi соберет нам необходимые для дальнейшей работы файлы. А именно:

1. Запускаем Delphi и создаем новый проект «VCL Application«.
2. В настройках проекта указываем в Search Path путь к директории Lib
3. Выбираем в меню «Project->Add To Project» и добавляем в проект только что собранный rc-файл. У меня этот файл носит название RibbonMarkup.rc;

Теперь нам необходимо подключить в uses следующие модули библиотеки: UIRibbon, UIRibbonForm и UIRibbonCommands. Если всё было сделано как описано выше, то при компиляции проекта никаких ошибок не возникнет. Остается последнее — указать вместо у TForm у главной формы родителя TUIRibbonForm, т.е. исходник главного модкля программы примет следующий вид:

unit uMain;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UIRibbon, UIRibbonForm, UIRibbonCommands;
 
type
  TForm10 = class(TUIRibbonForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form10: TForm10;
 
implementation
 
{$R *.dfm}
 
end.

Теперь жмем F9 и смотрим, что получилось:

Красота. Тут вам и плавная смена цвета группы при наведении мыши и красивые разделители групп и даже смену цветовой палитры можно организовать. Короче все 33 удовольствия. Что ещё для счастья надо? Ах да, не хватает самого главного — обработчиков команд. Выглядит программка красиво, а вот полезного ничего не делает — мы ведь только «навесили» ленту и все.

Для примера, создадим какой-нибудь простенький обработчик для команды. Доступ к команде на ленте Ribbon осуществляется по её ID. ID команд содержаться в pas-файле, который сгенерировал нам дизайнер интерфейса. Подключаем модуль c ID всех команд в uses.

Для того, чтобы инициализировать какую-либо команды нам необходимо переопределить метод CommandCreated класса TUIRibbonForm. Этот метод будет выполняться сразу после того как команда будет создана на ленте Ribbon. Например, инициализируем самую первую на ленте команду «Paste». Приведу весь исходник модуля:

unit uMain;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UIRibbon, UIRibbonForm, UIRibbonCommands;
 
type
  TForm10 = class(TUIRibbonForm)
  private
     //Action команды
     FCmdPaste: TUICommandAction;
     //переопределенный метод класса TUIRibbonForm
     procedure CommandCreated(const Sender: TUIRibbon;
      const Command: TUICommand);override;
    //обработчик события OnExecute команды
    procedure PasteExecute(const Args: TUICommandActionEventArgs);
  public
    { Public declarations }
  end;
 
var
  Form10: TForm10;
 
implementation
 
uses RibbonMarkup;
 
{$R *.dfm}
 
{ TForm10 }
 
procedure TForm10.CommandCreated(const Sender: TUIRibbon;
  const Command: TUICommand);
begin
   case Command.CommandId of
     //ID команды Paste
     CmdPaste:begin
                FCmdPaste:=Command as TUICommandAction;
                FCmdPaste.OnExecute:=PasteExecute;
              end;
   end;
end;
 
procedure TForm10.PasteExecute(const Args: TUICommandActionEventArgs);
begin
  ShowMessage('Hello World');
end;
 
end.

Теперь посмотрим, что мы здесь сделали. Начнем с переменных. Вначале мы определили переменную для действия (Action) команды:

FCmdPaste: TUICommandAction;

Не улавливаете аналогию со стандартным ActionManager в Delphi? Кстати, стандартный Action’ы эта библиотека тоже «понимает». Далее мы создали обработчик события OnExecute команды:

procedure TForm10.PasteExecute(const Args: TUICommandActionEventArgs);
begin
  ShowMessage('Hello World');
end;

И в конце переопределили метод CommandCreated в котором по CommndID «поймали» необходимую нам команду на ленте Ribbon и присвоили ей необходимый обработчик:

procedure TForm10.CommandCreated(const Sender: TUIRibbon;
  const Command: TUICommand);
begin
   case Command.CommandId of
     //ID команды Paste
     CmdPaste:begin
                FCmdPaste:=Command as TUICommandAction;
                FCmdPaste.OnExecute:=PasteExecute;
              end;
   end;
end;

Теперь запускаем программку и радуемся полученному результату:

Вот очень кратко о том, что такое Ribbon UI без Ribbon Controls. Можете скачать библиотеку и попробовать поработать с ней самостоятельно. Пока могу сказать по работе с библиотекой следующее — не нашел каким образом создавать через дизайнер DialogAction для группы и встраивать в ToolTip картинки. Может плохо смотрел. Но, при знании того как устроен Windows Ribbon Framework можно просто подредактировать XML-разметку и получить необходимый результат.

Теперь у нас на выбор есть следующие варианты работы с Ribbon в Delphi:

1. Использовать стандартные Ribbon Controls — достаточно просто, но не лишено некоторых проблем и недоработок
2. Использовать контролы DevExpress — намного сложнее, чем Ribbon Controls, но и качественнее и функциональнее. Плюс ко всему — дорого.
3. Использовать только что представленную библиотеку Windows Ribbon Framework for Delphi. Бесплатно, но и без особых удобств — практически чистый API. Для полноценной работы надо будет очень плотно изучать документацию фреймворка.

На этом всё. Спасибо за внимание. Будут вопросы — пишите комменты или задавайте вопросы через новый форум.

Если Вы вдруг решите создать свой собственный сайт про Delphi или на другую тему, то за создание сайтов Благовещенск может быть спокоен, так как специально для жителей Благовещенска работает blagoveschensk.irr.ru — создадут сайт не дорого и качественно. Ну, а я свой блог делал самостоятельно на WordPress :).