Доработка дизайнера FR3

Комментарии

• AlexTZ

  September 2004 отредактировано 05:39

  В событии TfrxDesigner.OnShow. Например, добавить пункт в меню File:
  
  with TfrxDesignerForm(Sender) do
  begin
  FileMenu.Items.Add(...)
  end;
• Ejik

  September 2004 отредактировано 05:39

  Спасибо, попробую. Хотя скажу прямо, это не есть лучший способ! А если этих элементов не один и не два? Почему не проходит с наследником класса? Это был бы оптимальный вариант.
• AlexTZ

  September 2004 отредактировано 05:39

  Не знаю, почему не проходит с наследником. Механизм тот же, что и в FR2.x:
  frxDesignerClass := TfrxDesignerForm;
  
• Ejik

  September 2004 отредактировано 05:39

  При попытки использования наследника возникает ошибка в строке
  
  Lines := Report.ScriptText; (Report = nil)
  
  метода TfrxDesignerForm.CreateWorkspace;
• Ejik

  September 2004 отредактировано 05:39

  Пошёл путём программной доработки дизайнера, наследника так сделать и не удалось . Нужно было несколько пунктов в меню "Файл" добавить(не в конец меню). Добавил, всё шло хорошо, до тех пор пока не пришлось пару раз шаблон из файла загрузить. Оказалось, что при загрузке файла исчезает верхний разделитель блока ранее открытых файлов (SepMI11). Он попросту удаляется. Соответственно возникает ошибка.
• AlexTZ

  September 2004 отредактировано 05:39

  См. процедуру
  procedure TfrxDesignerForm.UpdateRecentFiles(NewFile: String);
  она производит манипуляции со списком открытых файлов и пунктами меню.
• Ejik

  October 2004 отредактировано 05:39

  Посмотрел, в этом методе есть такая строчка:
  
  while FileMenu.Items[FRecentMenuIndex] <> SepMI4 do
  FileMenu.Items[FRecentMenuIndex].Free;
  
  Дело в том, что переменная FRecentMenuIndex определяется как
  
  FRecentMenuIndex := FileMenu.IndexOf(SepMI4);
  
  в методе Init, который вызывается (в FormCreate) раньше, чем происходит обработка события дизайнера OnShow. Поэтому, при добавлении пунктов в меню File (в событии OnShow) выше чем разделитель SepMI4, переменная FRecentMenuIndex хранит уже не тот индекс.
  
  Надо бы ещё раз добвать строчку FRecentMenuIndex := FileMenu.IndexOf(SepMI4); после обработки OnShow в методе FormCreate
• stas

  October 2004 отредактировано 05:39

  Здравствуйте.
  Маленький вопрос, по поводу дизайнера
  Если он запускается в модальном режиме, то зачем ,простите, кнопка "свернуть".
  В MDI-приложениях это не очень удобно.
  Да и вообще зачем эта модальность?
  
  Заранее благодарен за ответ