Выполнение команд с ленты Microsoft? - PullRequest
Новая
       33

Выполнение команд с ленты Microsoft?

4 голосов
/ 15 июня 2011

Я создал свою первую ленту, отличную от Delphi, с использованием Microsoft Ribbon Framework благодаря помощи и советам, предоставленным в этой теме .

Следуя руководству , опубликованному А.Бучезом в этой теме, мне удалось скомпилировать свой проект и увидеть ленту Microsoft в действии.

Однако я не могу заставить ленту реагировать на ввод при выполнении команды.

Я всегда использую TActionManager для управления своими событиями, поэтому все, что мне нужно, это связать каждое TAction из TActionManager с лентой. Следуя уроку, указанному выше, я попробовал следующее безрезультатно: 

// actNew is the name of a TAction set in the TActionManager
procedure TfrmMain.actNewExecute(Sender: TObject);
begin
  ShowMessage('execute new event');
end;

procedure TfrmMain.CommandCreated(const Sender: TUIRibbon; const Command: TUICommand);
begin
  inherited;

  case Command.CommandId of
    cmdNew: // cmdNew was defined in the Ribbon Designer
    begin
      // link the ribbon commands to the TActions
      actNew.OnExecute(Command as TUICommandAction); // obviously will not work
    end;
  end;
end;

Итак, как мне назначить мои TANA на ленте?

Спасибо.

1 Ответ

2 голосов
/ 16 июня 2011

Я узнал, как выполнять команды, просматривая предоставленные образцы (не знаю, как я их пропустил!).Кажется, что события должны быть определены независимо от TActions, поэтому я думаю, что это правильный путь.

Возможно, хотя связать обработчик Actions OnExecute внутри процедуры, которая используется для вызова команд для ленты,пример: 

private
  CommandNew: TUICommandAction;
  procedure CommandNewExecute(const Args: TUICommandActionEventArgs);

  procedure UpdateRibbonControls;
strict protected
  procedure RibbonLoaded; override;
  procedure CommandCreated(const Sender: TUIRibbon; const Command: TUICommand); override;

implementation

procedure TfrmMain.RibbonLoaded;
begin
  inherited;

  Color:= ColorAdjustLuma(Ribbon.BackgroundColor, -25, False);
  UpdateRibbonControls;
end;

// set command states here
procedure TfrmMain.UpdateRibbonControls;
begin
  if Assigned(CommandNew) then
    CommandNew.Enabled:= True;
end;

// assign the commands
procedure TfrmMain.CommandCreated(const Sender: TUIRibbon; const Command: TUICommand);
begin
  inherited;

  case Command.CommandId of
    cmdNew: // command id defined in the ribbon designer
    begin
      CommandNew:= Command as TUICommandAction;
      CommandNew.OnExecute:= NewExecute;
    end;
  end;
end;

// command events
procedure TfrmMain.NewExecute(const Args: TUICommandActionEventArgs);
begin
  actNew.OnExecute(nil); // < this is calling the event code from a TAction      
end;

Папка Samples внутри Ribbon Framework продемонстрирует это более наглядно.Рамки можно найти здесь: http://www.bilsen.com/windowsribbon/index.shtml

...