Добавление Delphi компонента в Гедымин

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

Предположим, что у нас есть компонент TMyLabel, наследованный от TLabel. Данный компонент позволяет выводить текст под любым углом и даже обводить его одинарной или двойной рамкой. Компонент расширяет родительский TLabel методом Flash, который на долю секунды отрисовывает текст в инвертированном цвете. Ниже приводится определение соответсвующего класса:

 type
   // тип рамки вокруг текста: нет, одинарная или двойная
   TBorderType = (btNone, btSingle, btDouble);

 TMyLabel = class(TLabel)
 private
   FBorderType: TBorderType;
   FAngle: Integer;

 published
   procedure Flash;

   property BorderType: TBorderType read FBorderType;
   property Angle: Integer read FAngle write FAngle;
 end;

Наша задача: добавить компонент TMyLabel в Гедымин так, чтобы можно было создавать экземпляры из макросов вызовом:

 Designer.CreateObject(Owner, "TMyLabel", name)

а также, чтобы пиктограммка компонента появилась на палитре компонентов в дизайнере экранных форм.

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

Первым шагом следует открыть из Делфи библиотеку типов gedemin/report/gedemin.tlb и добавить в нее новый интерфейс IgsMyLabel:

Интерфейс следует наполнить необходимыми методами и свойствами:

Далее, следует создать CoClass с именем gs_gsMyLabel и добавить в список поддерживаемых интерфейсов IgsMyLabel:

На этом следует закончить работу с библиотекой типов и сохранить сделанные изменения. В процессе сохранения могут появиться предупреждения, но на них не стоит обращать внимание.

Создание класса оболочки

Класс-оболочка реализует созданный нами интерфейс. Оболочки стандартных компонент хранятся в модуле gedemin\property\obj_WrapperDelphiClasses.pas. Оболочка для нашего гипотетического класса могла бы выглядеть следующим образом:

 TwrpMyLabel = class(TwrpLabel, IgsMyLabel)
 private
   function  GetMyLabel: TMyLabel;
 protected
   function Get_Angle: Integer; safecall;
   procedure Set_Angle(Value: Integer); safecall;
   function Get_BorderStyle: Integer; safecall;
   procedure Set_BorderStyle(Value: Integer); safecall;
   procedure Flash; safecall;
 end;

 ...

 function TwrpMyLabel.GetMyLabel: TMyLabel;
 begin
   Result := GetObject as TMyLabel;
 end;

 function TwrpMyLabel.Get_Angle: Integer;
 begin
   Result := GetObject.Angle;
 end;

 procedure TwrpMyLabel.Set_Angle(Value: Integer);
 begin
   GetMyLabel.Angle := Value;
 end;
  
 function TwrpMyLabel.Get_BorderStyle: Integer;
 begin
   Result := Integer(GetObject.BorderStyle);
 end;

 procedure TwrpMyLabel.Set_BorderStyle(Value: Integer);
 begin
   GetMyLabel.BorderStyle := TBorderStyle(Value);
 end;

 procedure TwrpMyLabel.Flash;
 begin
   GetMyLabel.Flash;
 end;

Регистрация класса

Осталось зарегистрировать класс, чтобы он стал виден из макросов. Соответствующий вызов функции RegisterGdcOLEClass лучше всего располагать в initialization секции юнита:

 RegisterGdcOLEClass(TMyLabel, TwrpMyLabel, ComServer.TypeLib, IID_IgsMyLabel);

Регистрация компонентов в дизайнере форм

Для того, чтобы подключенная нами компонента стала видна на одной из вкладок палитры компонентов в дизайнере форм, следует зайти в юнит dlg_gsResizer_Palette_unit.pas из папки designer и в секции initialization найти вызов процедуры RegisterNewClass для нужной вкладки и добавить в массив класс -- TMyLabel.

Перекомпиляция Гедымина

Для того, чтобы изменения вступили в силу, следует перекомпилировать модуль gedemin.exe.