Копия викизеркало

Это зеркало вики с pascal.chat. Правка, история и вход — там.

Extending the IDE/ru

Deutsch · English · Español · Français · Slovenčina · Русский · 中文（中国） · 日本語

Расширение IDE

Обзор

Lazarus IDE поддерживает несколько типов плагинов:

Компоненты
это элементы, найденные в палитре компонентов. Например, TButton (находится на странице Standard) можно использовать для создания кнопок.

Редакторы компонентов
при двойном щелчке по компоненту в Дизайнере вызывается редактор компонентов. Редактор компонента также может добавить дополнительный элемент во всплывающее меню Дизайнера (доступ к нему осуществляется по щелчку правой кнопкой мыши на компоненте в конструкторе).

Редакторы свойств
Каждая строка в разделе сетки Инспектора объектов использует редактор свойств, чтобы разрешить установку или изменение значения этого свойства.

Эксперты
Эксперты охватывают все другие типы плагинов. Они могут регистрировать новые пункты меню, регистрировать ярлыки или расширять другие функции IDE.

Есть два возможных способа добавить свои собственные плагины в IDE Lazarus:

  1. Напишите пакет, установите его и зарегистрируйте ваши плагины в процедуре 'Register' модуля.
  2. Расширьте код Lazarus и отправьте свой svn diff в список рассылки Lazarus.

Пакеты и зависимости Makefile

Следующие шаги необходимы, если добавляются новые зависимости пакета.

Пункты меню

Вы можете добавлять новые пункты меню, скрывать или перемещать существующие и добавлять подменю, разделы. Для ваших собственных форм вы можете зарегистрировать TMainMenu/TPopupMenu, чтобы другие пакеты могли расширять вашу форму дальше. Модуль MenuIntf пакета IDEIntf содержит всю регистрацию для меню и множество стандартных пунктов меню самой IDE.

Добавление пункта меню

Одиночный элемент меню, такой как [, например,] 'View Object Inspector', называется TIDEMenuCommand. Вы можете создать его с помощью RegisterIDEMenuCommand, который имеет две формы с большим количеством параметров:

pascal
function RegisterIDEMenuCommand(Parent: TIDEMenuSection;
                                const Name, Caption: string;
                                const OnClickMethod: TNotifyEvent = nil;
                                const OnClickProc: TNotifyProcedure = nil;
                                const Command: TIDECommand = nil;
                                const ResourceName: String = ''
                                ): TIDEMenuCommand; overload;
function RegisterIDEMenuCommand(const Path, Name, Caption: string;
                                const OnClickMethod: TNotifyEvent = nil;
                                const OnClickProc: TNotifyProcedure = nil;
                                const Command: TIDECommand = nil;
                                const ResourceName: String = ''
                                ): TIDEMenuCommand; overload;

Разница между этими двумя [функциями] только в том, как вы указываете родительский раздел меню. Вы можете указать раздел меню прямо или косвенно через путь. Многие стандартные разделы можно найти в модуле MenuIntf. Например, раздел mnuTools, который является [пунктом] меню Tools главной панели IDE. Он содержит раздел itmSecondaryTools, рекомендуемый для сторонних инструментов.

Следующий [код] регистрирует новую команду меню с именем 'MyTool', с заголовком 'Start my tool' и при нажатии выполняет процедуру StartMyTool:

pascal
procedure StartMyTool;
begin
  ... ?????????????????????? ?????? ?????????????? ???? ?????????? ???????? ...
end;

procedure Register;
begin
  RegisterIDEMenuCommand(itmSecondaryTools, 'MyTool','Start my tool',nil,@StartMyTool);
end;

Если вы хотите вызвать метод вместо процедуры, используйте параметр OnClickMethod.

Этот пункт меню не имеет сочетания клавиш. Если вы хотите [назначить ему] сочетание клавиш, вы должны создать TIDECommand и передать его в параметре Command. Например:

pascal
uses ... IDECommands, MenuIntf;
...
var
  Key: TIDEShortCut;
  Cat: TIDECommandCategory;
  CmdMyTool: TIDECommand;
begin
  // регистрация сочетаний клавиш IDE и пункта меню
  Key := IDEShortCut(VK_UNKNOWN,[],VK_UNKNOWN,[]);
  Cat:=IDECommandList.FindCategoryByName(CommandCategoryToolMenuName);
  CmdMyTool := RegisterIDECommand(Cat,'Start my tool', 'Starts my tool to do some stuff', Key, nil, @StartMyTool);
  RegisterIDEMenuCommand(itmSecondaryTools, 'MyTool', 'Start my tool', nil, nil, CmdMyTool);
end;

Сочетания клавиш

Все сочетания клавиш (ключи, которые вызывают какое-либо действие) зарегистрированы в IDECommandList. Вот пример того, как найти все команды, которые реагируют на клавиши Ctrl+D или две комбинации клавиш, начинающиеся с Ctrl+D:

pascal
uses
  Classes, SysUtils, LCLProc, IDECommands;

procedure ListCtrlD;
// список всех команд IDE с комбинациями клавиш <Ctrl>+<D>
var
  i: integer;
  Cmd: TIDECommand;
  Commands: TFPList;
begin
  Commands:=IDECommandList.FindCommandsByShortCut(IDEShortCut(VK_D,[],VK_UNKNOWN,[]));
  try
    for i:=0 to Commands.Count-1 do begin
      Cmd:=TIDECommand(Commands[i]);
      writeln('Cmd: ',Cmd.Name,
        ' A=',dbgs(Cmd.ShortcutA.Shift1),'-',Cmd.ShortcutA.Key1,
        ',',dbgs(Cmd.ShortcutA.Shift2),'-',Cmd.ShortcutA.Key2,
        ' B=',dbgs(Cmd.ShortcutB.Shift1),'-',Cmd.ShortcutB.Key1,
        ',',dbgs(Cmd.ShortcutB.Shift2),'-',Cmd.ShortcutB.Key2
        );
    end;
  finally
    Commands.Free;
  end;
end;

Конфигурационные файлы

Загрузка/Сохранение настроек

Все конфигурационные файлы IDE хранятся в одном каталоге в виде XML-файлов. Пакеты также могут добавлять свои собственные файлы туда. Каталог primary config path можно прочитать с помощью:

pascal
uses LazIDEIntf;
...
  Directory := LazarusIDE.GetPrimaryConfigPath;

Пакеты могут создавать свои собственные файлы XML с помощью:

pascal
uses
  ..., LCLProc, BaseIDEIntf, LazConfigStorage;

const
  Version = 1;
var
  Config: TConfigStorage;
  SomeValue: String;
  SomeInteger: Integer;
  SomeBoolean: Boolean;
  FileVersion: LongInt;
begin
  SomeValue:='Default';
  SomeInteger:=3;
  SomeBoolean:=true;

  // сохранение настроек
  try
    Config:=GetIDEConfigStorage('mysettings.xml',false);
    try
      // сохраняем номер версии, чтобы будущие расширения могли обрабатывать старые файлы конфигурации
      Config.SetDeleteValue('Path/To/The/Version',Version,0);
      // сохраняем строковую переменную "SomeValue"
      // если SomeValue имеет значение по умолчанию, запись не сохраняется,
      // поэтому сохраняются только [значения,] отличающиеся от значения по умолчанию.
      // Таким образом, xml остается коротким, и значения по умолчанию могут измениться в будущем.
      Config.SetDeleteValue('Path/To/Some/Value',SomeValue,'Default');
      Config.SetDeleteValue('Path/To/Some/Integer',SomeInteger,3);
      Config.SetDeleteValue('Path/To/Some/Boolean',SomeBoolean,true);
      // далее [по коду] еще overloads-инструкции для SetDeleteValue, 
      // которые [всплывают в редакторе кода по нажатию] <Ctrl>+<Space> 
    finally
      Config.Free;
    end;

  except
    on E: Exception do begin
      DebugLn(['Saving mysettings.xml failed: ',E.Message]);
    end;
  end;

  // загрузка настроек
  try
    Config:=GetIDEConfigStorage('mysettings.xml',true);
    try
      // чтение версии конфигурации
      FileVersion:=Config.GetValue('Path/To/The/Version',0);
      // чтение строковой переменной "SomeValue". Если запись не существует, используется
      // значение по умолчанию
      SomeValue:=Config.GetValue('Path/To/Some/Value','Default');
      SomeInteger:=Config.GetValue('Path/To/Some/Integer',3);
      SomeBoolean:=Config.GetValue('Path/To/Some/Boolean',true);
    finally
      Config.Free;
    end;
  except
    on E: Exception do begin
      DebugLn(['Loading mysettings.xml failed: ',E.Message]);
    end;
  end;
end;

На заметку:

Компоненты

Расширение существующих компонентов

Источник: 1 Это обычная настройка существующих компонентов LCL, например, если вы хотите добавить свойства.

Добавьте необходимые свойства с соответствующими методами установки и получения и полями хранения.

Затем создайте их экземпляр «вручную», предоставив компонент-владелец (для последующей обработки), и установите [свойство] Parent и, возможно, [свойства] Top и Left и любые другие значения по умолчанию, необходимые для вашего компонента при инициализации.

Когда вы убедитесь, что ваш настроенный компонент отлажен, добавьте вызов RegisterComponent(), чтобы прикрепить его к палитре компонентов IDE и избавьте вас от необходимости выполнять код установки вручную (посмотрите на исходник любого компонента, чтобы узнать, как это сделать).

Вот простой пример:

pascal
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, StdCtrls;

type
  TEdX = class(TEdit)
  private
    FNewIntProp: integer;
    FNewStrProp: string;
    procedure SetNewIntProp(AValue: integer);
    procedure SetNewStrProp(AValue: string);
  public
    constructor Create(theComponent: TComponent); override;
    property NewIntProp: integer read FNewIntProp write SetNewIntProp;
    property NewStrProp: string read FNewStrProp write SetNewStrProp;
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    edX: TEdX;
  public
  end;

var
  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  edX:= TEdX.Create(Self);
  edX.Parent:= Self;
  edX.Caption:= IntToStr(edX.NewIntProp);
  Caption:= edX.NewStrProp;
end;

{$R *.lfm}

{ TEdX }

procedure TEdX.SetNewIntProp(AValue: integer);
begin
  if FNewIntProp=AValue then Exit;
  FNewIntProp:=AValue;
  // добавьте свой код здесь
end;

procedure TEdX.SetNewStrProp(AValue: string);
begin
  if FNewStrProp=AValue then Exit;
  FNewStrProp:=AValue;
  // добавьте свой код здесь
end;

constructor TEdX.Create(theComponent: TComponent);
begin
  inherited Create(theComponent);
  FNewStrProp:= 'new string property value';
  FNewIntProp:= 99;
end;

end.

Написание компонент

Основная статья: How To Write Lazarus Component

Вы можете создавать новые компоненты через редактор пакетов.

Создайте или откройте пакет, нажмите add(добавить), нажмите New Component (Новый компонент), заполните пункты: Ancestor Type(Тип предка) = TButton, New class name (Имя нового класса) = TMyButton, palette page (страница палитры) = Misc, Unit file name (имя файла модуля) = mybutton.pas (этот файл будет создан), имя модуля MyButton, и нажмите кнопку ok.

Предоставление новому компоненту иконки для палитры компонентов

Создайте файл изображения в формате .bmp, .xpm или .png с тем же именем, что и класс компонента. Например, tmybutton.png и сохраните его в исходном каталоге пакета. Изображение может быть создано любой графической программой (например, GIMP [или IncScape]) и должно быть не больше 24x24 пикселей. Затем преобразуйте изображение в файл ресурсов с помощью инструмента lazres, который можно найти в каталоге lazarus/tools:

bash
~/lazarus/tools/lazres mybutton.lrs tmybutton.png

Note: Лаззарус trunk/1.4+? использует файлы ресурсов .res взамен .lrs-файлов

bash
~/lazarus/tools/lazres mybutton.res tmybutton.png

Это создаст include-файл паскаля, который используется в разделе initialization mybutton.pas:

pascal
initialization
  {$I mybutton.lrs}
  // или в более новой версии Lazarus - синтаксис docheck
  {$R mybutton.res}

Установите пакет.

Скрытие компонента в палитре компонентов

Пакет IDEIntf, модуль componentreg:

pascal
IDEComponentPalette.FindComponent('TButton').Visible:=false;

Написание редактора компонента

Редактор компонента обрабатывает такие вещи, как двойной щелчок по компоненту в конструкторе или добавление пунктов меню при щелчке правой кнопкой мыши по компоненту. Написать редактор компонентов легко. Посмотрите модуль componententeditors.pas пакета IDEIntf для [просмотра] кучи примеров. Например, чтобы показать редактор при двойном щелчке, см. TCheckListBoxComponentEditor.

Написание редакторов свойств

Каждый тип свойства (integer, string, TFont, ...) в Инспекторе объектов нуждается в редакторе свойств. Если у вашего компонента есть свойство Password типа string, вы можете определить редактор свойств для вашего конкретного класса компонента со именем свойства Password типа string. Модуль propedits.pp пакета IDEIntf содержит многие стандартные редакторы свойств, используемые самой IDE. Например, TStringPropertyEditor является редактором свойств по умолчанию для всех строк, в то время как TComponentNamePropertyEditor является более конкретным и обрабатывает только TComponent.Name. Смотрите [исходный код] модуля для [получения] множества примеров.

Сокрытие свойства в инспекторе объектов

Существует специальный редактор свойств для сокрытия [свойств]:

pascal
  RegisterPropertyEditor(TypeInfo(TAnchorSide), TControl, 'AnchorSideLeft', THiddenPropertyEditor);

Поиск редактора свойств, используемого для свойства

pascal
uses Classes, TypInfo;
var
  Instance: TPersistent; // ваш экземпляр
  PropInfo: PPropInfo;
  EdClass: TPropertyEditorClass;
begin
  PropInfo:=GetPropInfo(Instance.ClassType,'Name'); // замените Name именем свойства, которое вы ищете
  GetEditorClass(PropInfo, Instance);
end;

Формы

IDE позволяет легко создавать потомков форм и фреймов. Эти формы могут иметь новые published-компоненты и новые published-методы. Но, когда вы добавляете новые published-свойства, они не доступны через инспектор объектов. Они работают только во время выполнения [приложения]. Методы в IDE являются поддельными, они не могут быть выполнены. В среде IDE можно создавать компоненты, поскольку их классы зарегистрированы в палитре компонентов. Ваши новые свойства существуют только в вашем исходном коде. IDE пока не может их подделать. Вот почему вы должны зарегистрировать новый класс. Это означает [, что вы должны]:

pascal
...
interface

uses FormEditingIntf, Forms;

type
  TYourForm = class(TForm)
  private
    FYourProperty: integer;
  published
    property YourProperty: integer read FYourProperty write FYourProperty;
  end;

procedure Register;

implementation

procedure Register;
begin
 FormEditingHook.RegisterDesignerBaseClass(TYourForm);
end;
...

Дизайнер

Написание дизайнера-посредника

Стандартный конструктор позволяет визуально редактировать элементы управления LCL, тогда как все остальные отображаются в виде значков (например, TOpenDialog или TDataSource). Чтобы визуально редактировать элемент управления не [из библиотеки] LCL, вам нужно создать designer mediator (дизайнер-посредник). Он может быть использован для разработки веб-страниц, диаграмм UML или других наборов виджетов, таких как fpGUI. Полный пример приведен в examples/designnonlcl/.

Создание нового уникального имени компонента

pascal
uses FormEditingIntf;

...

NewName:=FormEditingHook.CreateUniqueComponentName(AComponent);

// Или, если вам нужно создать имя перед созданием компонента:

NewName:=FormEditingHook.CreateUniqueComponentName(ComponentClassName,OwnerComponent);
// ComponentClassName будет использоваться в качестве префикса без начального T.
// OwnerComponent является новым владельцем нового компонента.

Выбор компонента в конструкторе/инспекторе объектов

pascal
uses propedits;
..
GlobalDesignHook.SelectOnlyThis(AComponent);

Получение файла модуля, дизайнера формы

pascal
uses ProjectIntf, LazIDEIntf, ComponentEditors;
...
// открываем файл
if LazarusIDE.DoOpenEditorFile(Filename,-1,-1,[ofAddToRecent])<>mrOk then exit;
// получаем интерфейс файла
aFile:=LazarusIDE.ActiveProject.FindFile(Filename,[]);
// получаем дизайнер
aDesigner:=TComponentEditorDesigner(LazarusIDE.GetDesignerWithProjectFile(AFile,true));
if aDesigner=nil then 
  exit; // этот модуль не имеет ресурса (форма, фрейм, модуль данных и т.д.)
// получаем форму
aForm:=aDesigner.Form;

Сохранение модуля, дизайнера формы

pascal
uses LazIDEIntf;
...
if LazarusIDE.DoSaveEditorFile(Filename,[])<>mrOk then exit;

Сохранение формы дизайнера как кода Паскаль

Обработчики событий

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

События дизайнера

В propedits.pp есть объект "GlobalDesignHook", который поддерживает несколько событий для проектирования. Каждое событие вызывает список обработчиков. Обработчики по умолчанию добавляются в среду IDE. Вы можете добавить свои собственные обработчики с помощью методов AddHandlerXXX и RemoveHandlerXXX. Они будут вызваны перед обработчиками по умолчанию.

Примеры:

text
 GlobalDesignHook.AddHandlerPersistentAdded(@YourOnPersistentAdded);
text
 GlobalDesignHook.RemoveHandlerPersistentAdded(@YourOnPersistentAdded);
text
 GlobalDesignHook.RemoveAllHandlersForObject(Self);

Обработчики GlobalDesignHook:

Примеры для событий дизайнера

Пример: когда [на родителя] помещается новый компонент, перемещать элемент управления в дочерний элемент

pascal
...
type
  TYourDesignerExtension = class
  private
    function AddClicked(ADesigner: TIDesigner;
             MouseDownComponent: TComponent; Button: TMouseButton;
             Shift: TShiftState; X, Y: Integer;
             var AComponentClass: TComponentClass;
             var NewParent: TComponent): boolean of object;
  public
    constructor Create;
    destructor Destroy; override;
  end;

...
constructor TYourDesignerExtension.Create;
begin
  // регистрация вашего обработчика
  GlobalDesignHook.AddHandlerAddClicked(@AddClicked);
end;

destructor TYourDesignerExtension.Destroy;
begin
  // удаление вашего обработчика
  GlobalDesignHook.RemoveHandlerAddClicked(@AddClicked);
end;

function TYourDesignerExtension.AddClicked(ADesigner: TIDesigner;
             MouseDownComponent: TComponent; Button: TMouseButton;
             Shift: TShiftState; X, Y: Integer;
             var AComponentClass: TComponentClass;
             var NewParent: TComponent): boolean of object;
begin
  // в этом примере TYourControl - это пользовательский элемент управления с ChildControl.
  // Всякий раз, когда пользователь помещает элемент управления на TYourControl, вместо добавления
????// нового элемента управления на TYourControl, [этот] новый элемент управления добавляется как дочерний элемент
????// [имеющегося] ChildControl.
  // создание 
  if MouseDownComponent is TYourControl then
    NewParent:=TYourControl(MouseDownComponent).ChildControl;
  Result:=true;
end;

Отключение обработчика мыши в [режиме] дизайнера

Обычно дизайнер ловит все события мыши компонента. Если ваш пользовательский элемент управления должен обрабатывать дескриптор событий мыши, вы можете либо установить csDesignInteractive ControlStyle, либо вы можете точно управлять им через сообщение CM_DESIGNHITTEST в вашем элементе управления:

pascal
type
  TYourControl = class(TCustomControl)
  protected
    procedure CMDesignHitTest(var Message: TLMessage); message CM_DESIGNHITTEST;
  end;
...
procedure TYourControl.CMDesignHitTest(var Message: TLMessage);
var
  p: TSmallPoint;
  aShiftState: TShiftState;
begin
  aShiftState:=KeysToShiftState(PtrUInt(Message.WParam));
  p:=TSmallPoint(longint(Message.LParam));
  debugln(['TForm1.CMDesignHitTest ShiftState=',dbgs(aShiftState),' x=',p.x,' y=',p.y]);
  if SkipDesignerMouseHandler then
    Message.Result:=1; // теперь дизайнер вызывает обычные методы MouseUp, MouseMove и MouseDown.
end;

Получение уведомлений при изменении дизайнера форм

Каждая разработанная форма LCL имеет конструктор типа TIDesigner. В среде IDE создаются конструкторы типа TComponentEditorDesigner, определенные в компонентных компонентах модуля IDEIntf. Например:

pascal
procedure TYourAddOn.OnDesignerModified(Sender: TObject);
var
  IDEDesigner: TComponentEditorDesigner;
begin
  IDEDesigner:=TComponentEditorDesigner(Sender);
  ...
end;

procedure TYourAddOn.ConnectDesignerForm(Form1: TCustomForm);
var
  IDEDesigner: TComponentEditorDesigner;
begin
  IDEDesigner:=TComponentEditorDesigner(Form1.Designer);
  IDEDesigner.AddHandlerModified(@OnDesignerModified);
end;

События проекта

Эти события определены в модуле LazIDEIntf.

Другие события IDE

uses LazIDEIntf;

Вызовите их в процедуре регистрации вашего пакета:

Вызовите их в разделе инициализации одного из модулей:

Проект

Текущий проект

Текущий основной проект может быть получен [при помощи] LazarusIDE.ActiveProject. (модуль LazIDEIntf)

Все модули текущего проекта

Обратите внимание, что термин «юниты проекта» неоднозначен.

Все модули инспектора проекта

Чтобы перебрать все паскалевские модули, перечисленные в инспекторе проектов, вы можете использовать, например:

pascal
uses 
  LCLProc, FileUtil, LazIDEIntf, ProjectIntf;

procedure ListProjectUnits;
var
  LazProject: TLazProject;
  i: Integer;
  LazFile: TLazProjectFile;
begin
  LazProject:=LazarusIDE.ActiveProject;
  if LazProject<>nil then
    for i:=0 to LazProject.FileCount-1 do
    begin
      LazFile:=LazProject.Files[i];
      if LazFile.IsPartOfProject
      and FilenameIsPascalUnit(LazFile.Filename)
      then
        debugln(LazFile.Filename);
    end;
end;

Все используемые модули проекта

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

pascal
uses 
  LazLoggerBase, LazIDEIntf, ProjectIntf;

procedure ListProjectUnits;
var
  LazProject: TLazProject;
  i: Integer;
begin
  LazProject:=LazarusIDE.ActiveProject;
  if LazProject<>nil then 
  begin
    Units:=LazarusIDE.FindUnitsOfOwner(LazProject,[fuooListed,fuooUsed]); // добавьте fuooPackages, чтобы включить модули из пакетов
    try
      for i:=0 to Units.Count-1 do
        debugln('Filename=',Units[i]);
    finally
      Units.Free;
    end;
  end;
end;

Файлы .lpr, .lpi и .lps проекта

pascal
uses 
  LCLProc, FileUtil, ProjectIntf, LazIDEIntf;
var
  LazProject: TLazProject;
begin
  LazProject:=LazarusIDE.ActiveProject;
  // у каждого проекта есть файл .lpi:
  DebugLn(['Файл проекта lpi: ',LazProject.ProjectInfoFile]);

  // если информация о сеансе проекта хранится в отдельном файле .lps:
  if LazProject.SessionStorage<>pssNone then
    DebugLn(['Файл проекта lps: ',LazProject.ProjectSessionFile]);

  // Если у проекта есть файл .lpr, то он является основным исходным файлом:
  if (LazProject.MainFile<>nil)
  and (CompareFileExt(LazProject.MainFile.Filename,'lpr')=0) then
    DebugLn(['Проект имеет файл lpr: ',LazProject.MainFile.Filename]);
end;

Имя исполняемого / целевого файла проекта

Существует макрос $(TargetFile), который можно использовать в путях и внешних инструментах. Вы можете запросить макрос в коде:

pascal
uses MacroIntf;

function MyGetProjectTargetFile: string;
begin
  Result:='$(TargetFile)';
  if not IDEMacros.SubstituteMacros(Result) then
    raise Exception.Create('невозможно получить целевой файл проекта');
end;

См. здесь для более полной информации по макросам: Макросы IDE в путях и именах файлов.

Добавление своего собственного типа проекта

Вы можете добавлять [свои] пункты в диалоговое окно 'New ...':

Добавление своих собственных типов файлов

Вы можете добавлять [свои] пункты в диалоговое окно 'New ...':

Добавление нового типа файла

pascal
uses ProjectIntf;
...
  { TFileDescText }

  TFileDescMyText = class(TProjectFileDescriptor)
  public
    constructor Create; override;
    function GetLocalizedName: string; override;
    function GetLocalizedDescription: string; override;
  end;
...

procedure Register;

implementation

procedure Register;
begin
  RegisterProjectFileDescriptor(TFileDescMyText.Create,FileDescGroupName);
end;

{ TFileDescMyText }

constructor TFileDescMyText.Create;
begin
  inherited Create;
  Name:='MyText'; // не переводите эту [строку]
  DefaultFilename:='text.txt';
  AddToProject:=false;
end;

function TFileDescText.GetLocalizedName: string;
begin
  Result:='My Text'; // замените это строкой из resourcestring
end;

function TFileDescText.GetLocalizedDescription: string;
begin
  Result:='Пустой текстовый файл';
end;

Добавление нового типа формы

pascal
uses ProjectIntf;

...
  TFileDescPascalUnitWithMyForm = class(TFileDescPascalUnitWithResource)
  public
    constructor Create; override;
    function GetInterfaceUsesSection: string; override;
    function GetLocalizedName: string; override;
    function GetLocalizedDescription: string; override;
  end;
...

procedure Register;

implementation

procedure Register;
begin
  RegisterProjectFileDescriptor(TFileDescPascalUnitWithMyForm.Create,FileDescGroupName);
end;

{ TFileDescPascalUnitWithMyForm }

constructor TFileDescPascalUnitWithMyForm.Create;
begin
  inherited Create;
  Name:='MyForm'; // не переводите эту [строку]
  ResourceClass:=TMyForm;
  UseCreateFormStatements:=true;
end;

function TFileDescPascalUnitWithMyForm.GetInterfaceUsesSection: string;
begin
  Result:='Classes, SysUtils, MyWidgetSet';
end;

function TFileDescPascalUnitWithForm.GetLocalizedName: string;
begin
  Result:='MyForm'; // замените это строкой из resourcestring
end;

function TFileDescPascalUnitWithForm.GetLocalizedDescription: string;
begin
  Result:='Создать новую MyForm из примера пакета NotLCLDesigner';
end;

Сохранение пользовательских значений в [файлах] lpi/lps

Вы можете хранить свои собственные данные с помощью пар имя/значение в CustomData и CustomSessionData.

pascal
LazarusIDE.ActiveProject.CustomData['Name']:=Value; // хранится в lpi - x-platform, общие данные
LazarusIDE.ActiveProject.CustomSessionData['Name']:=Value; // хранится в lpi - x-platform, общие данные

Пакеты

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

Поиск во всех пакетах

Переберите все пакеты, загруженные в IDE (начиная с 0.9.29).

pascal
uses PackageIntf;
...
for i:=0 to PackageEditingInterface.GetPackageCount-1 do
  writeln(PackageEditingInterface.GetPackages(i).Name);

Поиск в пакетах с [определенным] именем

pascal
uses PackageIntf;
...
var
  Pkg: TIDEPackage;
begin
  Pkg:=PackageEditingInterface.FindPackageWithName('LCL');
  if Pkg<>nil then 
    ...
end;

Note: FindPackageWithName не открывает редактор пакетов. Для этого используйте DoOpenPackageWithName.

Получение имени файла lpk установленного пакета

pascal
uses PackageIntf;
...
var
  Pkg: TIDEPackage;
begin
  Pkg:=PackageEditingInterface.FindPackageWithName('LCL');
  if Pkg<>nil then 
    LPKFilename:=Pkg.Filename;
end;

Установка пакетов

Note: Устанавливайте только пакеты с плагинами IDE. Установка других пакетов может привести к нестабильной работе среды IDE.

pascal
uses PackageIntf, contnrs;
...
  PkgList:=TObjectList.create(true);
  try
    Pkg:=TLazPackageID.Create;
    Pkg.Name:='Cody';
    PkgList.Add(Pkg);
    // проверьте, может ли IDE найти cody.lpk и все зависимости
    // Среда IDE покажет некоторые предупреждения/подтверждения, если что-то выглядит странно.
    if not PackageEditingInterface.CheckInstallPackageList(PkgList,[]) then
      exit;
    // в этом примере мы [это] уже проверили, поэтому пропустите предупреждения
    // и пересоберите IDE
    if PackageEditingInterface.InstallPackages(PkgList,[piiifSkipChecks,piiifRebuildIDE])<>mrOK then
      exit;
  finally
    PkgList.Free;
  end;

Открытие файла пакета (lpk)

pascal
uses PackageIntf, FileUtil;
...
var
  pkg: TIDEPackage;
begin
  if PackageEditingInterface.DoOpenPackageFile(LPKFilename,[pofAddToRecent],false)<>mrOk then
    exit;
  Pkg:=PackageEditingInterface.FindPackageWithName(ExtractFilenameOnly(LPKFilename));
  ...
end;

Warning: Среда IDE автоматически закрывает неиспользуемые пакеты в режиме ожидания. Никогда не храните ссылку на TIDEPackage.

Поиск пакета(-ов) модуля

У вас есть имя файла модуля, например '/home/user/unit.pas', и [если] вы хотите знать, какому пакету(-ам) и проекту(-ам) он принадлежит, используйте это:

pascal
uses Classes, PackageIntf, ProjectIntf;
...
var
  Owners: TFPList;
  i: Integer;
  o: TObject;
begin
  Owners:=PackageEditingInterface.GetPossibleOwnersOfUnit('/full/path/of/unit.pas',[]);
  if Owners=nil then begin
    // модуль не связан напрямую с проектом/пакетом
    // возможно модуль был по какой-то причине не добавлен, но доступен
    // поиск по всем путям модулей всех проектов/пакетов
    // Осторожно: это может привести к ложным попаданиям
    Owners:=PackageEditingInterface.GetPossibleOwnersOfUnit('/full/path/of/unit.pas',
      [piosfExcludeOwned,piosfIncludeSourceDirectories]);
  end;
  if Owners=nil then exit;
  try
    for i:=0 to Owners.Count-1 do begin
      o:=TObject(Owners[i]);
      if o is TIDEPackage then begin
        writeln('Owner is package ',TIDEPackage(o).Name);
      end else if o is TLazProject then begin
        writeln('Owner is project ',TLazProject(o).ProjectInfoFile);
      end;
    end;
  finally
    Owners.Free;
  end;

Окна

Есть четыре основных типа окон IDE.

Добавление нового закрепляемого окна IDE

Что такое закрепляемое окно IDE: Окна, такие как Редактор исходного кода или Инспектор объектов, являются плавающими окнами, которые можно закрепить, если установлен пакет закрепления, а его состояние, положение и размер сохраняются и восстанавливаются при следующем запуске IDE. Для восстановления окна IDE нужен создатель, как определено в модуле IDEWindowIntf пакета IDEIntf. Каждое закрепляемое окно должно иметь уникальное имя. Не используйте общие имена, такие как 'FileBrowser', потому что это будет легко конфликтовать с другими пакетами. И не используйте короткие имена, такие как 'XYZ', потому что создатель отвечает за все формы, начинающиеся с этого имени.

Как зарегистрировать закрепляемое окно IDE

Не забудьте выбрать длинное уникальное имя, которое является действительным идентификатором Паскаля. Ваше окно может иметь любой заголовок, который вы хотите.

pascal
uses SysUtils, IDEWindowIntf;
...
var MyIDEWindow: TMyIDEWindow = nil; 

procedure CreateMyIDEWindow(Sender: TObject; aFormName: string; var AForm: TCustomForm; DoDisableAutoSizing: boolean);
begin
  // проверяем имя
  if CompareText(aFormName,MyIDEWindowName)<>0 then exit;
  // создаем форму, если это еще не сделано, и отключаем автомасштабирование
  IDEWindowCreators.CreateForm(MyIDEWindow,TMyIDEWindowm,DoDisableAutosizing,Application);
  ... ???????????????????? ???????? ...
  AForm:=MyIDEWindow;
end;

procedure Register;
begin
  IDEWindowCreators.Add('MyIDEWindow',@CreateMyIDEWindow,nil,'100','50%','+300','+20%');
  // стандартная граница формы - это:
  // Left=100, Top=50% от [величины] Screen.Height, Width=300, Height=20% от [величины] Screen.Height
  // когда IDE требуется экземпляр этого окна, она вызывает процедуру CreateMyIDEWindow.
end;

Отображение окна IDE

Warning: Не используйте [процедуру] Show.

text
Используйте:
pascal
IDEWindowCreators.ShowForm(MyIDEWindow,false);

Это будет работать с [механизмом] пристыковки. Система пристыковки может обернуть форму в стыковочный узел. Параметр BringToFront указывает системе закрепления сделать форму и все ее родительские сайты видимыми и вывести сайт верхнего уровня вперед.

Заметки о IDEWindowCreators и SimpleLayoutStorage

IDEWindowCreators.SimpleLayoutStorage просто хранит BoundsRect и WindowState всех форм, которые когда-то были открыты. Он используется как запасной вариант, если не установлен док-мастер. Он сохраняет состояние, даже если установлен DockMaster, поэтому, когда dockmaster удален, границы форм восстанавливаются.

IDEWindowCreators используется всеми присоединяемыми формами для регистрации и отображения форм. При показе формы Создатель проверяет, установлен ли IDEDockMaster, и передает ему отображение. Если IDEDockMaster не установлен, он просто показывает форму. IDEDockMaster может использовать информацию в IDEWindowCreators для создания форм по именам и получить представление о том, где разместить форму при ее первом отображении. Для более подробной информации смотрите пакеты AnchorDockingDsgn и EasyDockMgDsgn.

CodeTools

CodeTools - это пакет, предоставляющий огромное количество функций для анализа, поиска и изменения исходных текстов, а также некоторые основные функции для других языков. Вы можете использовать их также и без IDE. Рекомендуется сначала прочитать о CodeTools в целом, прежде чем использовать их в IDE: Codetools.

Перед вызовом любой из функций CodeTools в IDE вы должны зафиксировать текущие изменения редактора исходного кода в буферах CodeTools:

pascal
uses LazIDEIntf;
...
  // сохраняем изменения в редакторе исходного кода в codetools
  LazarusIDE.SaveSourceEditorChangesToCodeCache(-1); // -1: фиксируем все редакторы исходного кода

Добавление директивы ресурса в файл

Это добавляет {$R example.res} к модулю паскаля:

pascal
procedure AddResourceDirectiveToPascalSource(const Filename: string);
var
  ExpandedFilename: String;
  CodeBuf: TCodeBuffer;
begin
  // убеждаемся, что имя файла обрезано [от концевых пробелов] и содержит полный путь
  ExpandedFilename:=CleanAndExpandFilename(Filename);
  
  // сохраняем изменения в редакторе исходного кода в codetools
  LazarusIDE.SaveSourceEditorChangesToCodeCache(-1);

  // загружаем файл
  CodeBuf:=CodeToolBoss.LoadFile(ExpandedFilename,true,false);

  // добавляем директиву ресурса
  if not CodeToolBoss.AddResourceDirective(CodeBuf,'example.res') then
    LazarusIDE.DoJumpToCodeToolBossError;
end;

Codetools также предоставляет такие функции, как FindResourceDirective и RemoveDirective.

Получение путей поиска для модулей и включаемых файлов

В среде IDE существует множество различных путей поиска из проектов, пакетов, каталога fpc и lazarus, и существует множество типов путей: до или после разрешения макросов, с унаследованными путями поиска или без них, как относительными или абсолютными путями. Все файлы в каталоге имеют одинаковый набор путей поиска. Вы можете получить пути поиска для каждого каталога, полностью решенного путем запроса codetools:

pascal
uses CodeToolManager;
...

Dir:=''; // пустой каталог для новых файлов и имеет те же настройки, что и каталог проекта

// Получение путей поиска для включаемых файлов:
Path:=CodeToolBoss.GetIncludePathForDirectory(Dir);

// Получение путей поиска для модулей:
// Этот путь поиска передается компилятору.
// Он содержит выходные каталоги пакетов, но не каталоги с исходниками пакетов.
Path:=CodeToolBoss.GetUnitPathForDirectory(Dir);

// Могут быть дополнительные пути поиска модулей только для IDE (не передаются компилятору)
Path:=CodeToolBoss.GetSrcPathForDirectory(Dir);

// Полный путь поиска содержит также все исходные пути пакета для модулей:
Path:=CodeToolBoss.GetCompleteSrcPathForDirectory(Dir);

Редактор исходного кода

Активный редактор исходного кода

pascal
uses SrcEditorIntf;
...
Editor:=SourceEditorManagerIntf.ActiveEditor;
if Editor=nil then exit;
Filename:=Editor.FileName;
ScreenPos:=Editor.CursorScreenXY;
TextPos:=Editor.CursorTextXY;

SynEdit

Получение настроек для TSynEdit

Если у вас есть диалог с использованием TSynEdit, и вы хотите использовать тот же шрифт и настройки, которые использует редактор исходного кода:

pascal
uses SrcEditorIntf;
...
SourceEditorManagerIntf.GetEditorControlSettings(ASynEdit);

Получение настроек для подсветки SynEdit

Если у вас есть диалог, использующий TSynEdit с подсветкой, и вы хотите использовать те же цвета, что и для подсветки редактора исходного кода для этого языка, используйте:

pascal
uses SrcEditorIntf;
...
SourceEditorManagerIntf.GetHighlighterSettings(ASynHighlighter);

См. пример: TSQLStringsPropertyEditorDlg.Create in the unit SQLStringsPropertyEditorDlg.

Справка

Добавление справки для исходников

Сначала создаем THelpDatabase:

pascal
HelpDB := TFPDocHTMLHelpDatabase(
  HelpDatabases.CreateHelpDatabase('ANameOfYourChoiceForTheDatabase',
  TFPDocHTMLHelpDatabase,true));
HelpDB.DefaultBaseURL := 'http://your.help.org/';

FPDocNode := THelpNode.CreateURL(HelpDB,
  'Package1 - A new package',
  'file://index.html');
HelpDB.TOCNode := THelpNode.Create(HelpDB,FPDocNode);// один раз как оглавление TOC
DirectoryItem := THelpDBISourceDirectory.Create(FPDocNode,'$(PkgDir)/lcl',
  '*.pp;*.pas',false);// и один раз как обычная страница
HelpDB.RegisterItem(DirectoryItem);

Добавление строк в окно сообщений

pascal
unit IDEMsgIntf;
...
var Dir: String;
begin
  Dir:=GetCurrentDir;
  IDEMessagesWindow.BeginBlock;
  IDEMessagesWindow.AddMsg('unit1.pas(30,4) Error: Identifier not found "a"',Dir,0);
  IDEMessagesWindow.EndBlock;
end;

Окно настроек IDE

Открытие параметров в определенном кадре

pascal
uses LazIDEIntf;
...
LazarusIDE.DoOpenIDEOptions(TYourIDEOptionsFrame);

Прочее

Добавление макроса

Вы можете добавить свои собственные макросы IDE:

pascal
uses MacroIntf, MacroDefIntf;

procedure Register;
begin
  // регистрация макроса с фиксированным значением:
  IDEMacros.Add(TTransferMacro.Create('MyMacro1','Value','Description',nil,[]));
end;

// регистрация макроса с динамическим значением требует метода объекта
procedure TForm1.Init;
begin
  IDEMacros.Add(TTransferMacro.Create('MyMacro','Value','Description',@OnResolveMyMacro,[]));
end;

function TForm1.OnResolveMyMacro(const s: string; const Data: PtrInt;
  var Abort: boolean): string;
// s - это параметр. Например, $MyMacro(parameter)
// Data  - это экземпляр запроса. Может быть nil.
// Если есть ошибка, установите Abort в true.
// Результирующая строка может содержать макросы. Например, Result:='$(FPCVer)/$(TargetOS)';
begin
  Result:='MyValue';
end;

Отладка IDE

См. также

From the Free Pascal wiki, page "Extending the IDE/ru", as it stood on 2020-02-14 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.

Версия 4, последнее изменение: WikiArchive, .