Добавить собственные пункты меню в дизайнер

spider13

Подскажите, возможно ли реализовать данный сабж? если возможно то как?

xlaalaa

Я добавлял визард, он попадет в кнопкой в тулбар дизайнера

  TfrxExcelImportWizard  = class(TfrxCustomWizard)
    class function GetDescription: String; override;
    function Execute: Boolean; override;
  end;

var
  bmp: Graphics.TBitmap;

function TfrxExcelImportWizard.Execute: Boolean;
begin
  { запрещаем любые отрисовки в дизайнере }
  Designer.Lock;

  gfrExcelImportForm := TgfrExcelImportForm.Create(Report);
  try
    gfrExcelImportForm.FDesigner := Designer;
    gfrExcelImportForm.FReport := Report;
    gfrExcelImportForm.ShowModal;
  finally
    gfrExcelImportForm.Free;

    Designer.ReloadPages(Report.PagesCount - 1);
    result := true;
  end;
end;

class function TfrxExcelImportWizard.GetDescription: String;
begin
  result := 'Импорт формы отчета из Excel';
end;


initialization
Bmp := TBitmap.Create;
Bmp.LoadFromResourceName(hInstance, 'FR3_EXCEL_BMP');
frxWizards.Register(TfrxExcelImportWizard, Bmp, true);

finalization
frxWizards.Unregister(TfrxExcelImportWizard);
Bmp.Free;