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

Версия 18:20, 14 марта 2007

В платформу Гедымин встроено несколько сотен уже готовых визуальных и невизуальных компонентов. При необходимости можно добавить свои компоненты. Для этого придется взять с сайта исходный код платформы, внести в него изменения и перекомпилировать. Предположим, что у нас есть компонент 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;

Теперь добавим этот компонент в Гедымин:

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

Первым шагом следует добавить в библиотеку типов GEDEMIN/REPORT/GEDEMIN.TLB новый интерфейс IgsMyLabel:

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