Добавление Delphi компонента в Гедымин - История изменений

SYSDBA в 13:55, 24 февраля 2017

2017-02-24T13:55:26Z

SYSDBA: /* Регистрация класса */

2010-04-13T13:11:30Z

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

SYSDBA в 13:11, 13 апреля 2010

2010-04-13T13:11:16Z

SYSDBA в 13:08, 13 апреля 2010

2010-04-13T13:08:52Z

SYSDBA в 13:08, 13 апреля 2010

2010-04-13T13:08:13Z

Alexander: /* Создание класса оболочки */

2007-05-08T19:14:45Z

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

SYSDBA в 16:37, 14 марта 2007

2007-03-14T16:37:50Z

SYSDBA: /* Создание класса оболочки */

2007-03-14T16:33:59Z

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

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

2007-03-14T16:31:20Z

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

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

2007-03-14T16:27:51Z

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

@@ Строка 27: / Строка 27: @@
 а также, чтобы пиктограммка компонента появилась на палитре компонентов в дизайнере экранных форм.
-=== Добавление интерфейса в библиотеку типов ===
+=== Добавление интерфейса в библиотеку типов (TLB) ===
 Первым шагом следует открыть из Делфи библиотеку типов gedemin/report/gedemin.tlb и добавить в нее новый интерфейс IgsMyLabel:

@@ Строка 98: / Строка 98: @@
 <syntaxhighlight lang="delphi">
    RegisterGdcOLEClass(TMyLabel, TwrpMyLabel, ComServer.TypeLib, IID_IgsMyLabel);
-<syntaxhighlight>
+</syntaxhighlight>
 === Регистрация компонентов в дизайнере форм ===

@@ Строка 47: / Строка 47: @@
 Класс-оболочка реализует созданный нами интерфейс. Оболочки стандартных компонент хранятся в модуле gedemin\property\obj_WrapperDelphiClasses.pas. Оболочка для нашего гипотетического класса могла бы выглядеть следующим образом:
    TwrpMyLabel = class(TwrpLabel, IgsMyLabel)
    private
@@ Строка 89: / Строка 90: @@
      GetMyLabel.Flash;
    end;
 === Регистрация класса ===
@@ Строка 94: / Строка 96: @@
 Осталось зарегистрировать класс, чтобы он стал виден из макросов. Соответствующий вызов функции [[RegisterGdcOLEClass]] лучше всего располагать в initialization секции юнита:
    RegisterGdcOLEClass(TMyLabel, TwrpMyLabel, ComServer.TypeLib, IID_IgsMyLabel);
 === Регистрация компонентов в дизайнере форм ===

@@ Строка 3: / Строка 3: @@
 Предположим, что у нас есть компонент TMyLabel, наследованный от TLabel. Данный компонент позволяет выводить текст под любым углом и даже обводить его одинарной или двойной рамкой. Компонент расширяет родительский TLabel методом Flash, который на долю секунды отрисовывает текст в инвертированном цвете. Ниже приводится определение соответсвующего класса:
-<syntaxhighlight lang="Pascal">
+<syntaxhighlight lang="delphi">
    type
      // тип рамки вокруг текста: нет, одинарная или двойная

@@ Строка 3: / Строка 3: @@
 Предположим, что у нас есть компонент TMyLabel, наследованный от TLabel. Данный компонент позволяет выводить текст под любым углом и даже обводить его одинарной или двойной рамкой. Компонент расширяет родительский TLabel методом Flash, который на долю секунды отрисовывает текст в инвертированном цвете. Ниже приводится определение соответсвующего класса:
    type
      // тип рамки вокруг текста: нет, одинарная или двойная
@@ Строка 18: / Строка 19: @@
      property Angle: Integer read FAngle write FAngle;
    end;
 Наша задача: добавить компонент TMyLabel в Гедымин так, чтобы можно было создавать экземпляры из макросов вызовом:

@@ Строка 43: / Строка 43: @@
 === Создание класса оболочки ===
-Класс-оболочка реализует созданный нами интерфейс. Оболоски стандартных компонент хранятся в модуле gedemin\property\obj_WrapperDelphiClasses.pas. Оболочка для нашего гипотетического класса могла бы выглядеть следующим образом:
+Класс-оболочка реализует созданный нами интерфейс. Оболочки стандартных компонент хранятся в модуле gedemin\property\obj_WrapperDelphiClasses.pas. Оболочка для нашего гипотетического класса могла бы выглядеть следующим образом:
    TwrpMyLabel = class(TwrpLabel, IgsMyLabel)

← Предыдущая		Версия 16:37, 14 марта 2007
Строка 1:		Строка 1:
−	В платформу Гедымин встроено несколько сотен уже готовых визуальных и невизуальных компонентов. При необходимости можно добавить свои компоненты. Для этого придется взять с сайта исходный код платформы, внести в него изменения и перекомпилировать.	+	В платформу [[Гедымин]] встроено несколько сотен уже готовых визуальных и невизуальных компонентов. При необходимости можно добавить свои компоненты. Для этого придется взять с сайта исходный код платформы, внести в него изменения и перекомпилировать.

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

@@ Строка 27: / Строка 27: @@
 === Добавление интерфейса в библиотеку типов ===
-Первым шагом следует добавить в библиотеку типов gedemin/report/gedemin.tlb новый интерфейс IgsMyLabel:
+Первым шагом следует открыть из Делфи библиотеку типов gedemin/report/gedemin.tlb и добавить в нее новый интерфейс IgsMyLabel:
 http://gsbelarus.com/gs/images/gs/2007/wiki_delphi_comp_1.jpg
-И наполнить его необходимыми методами и свойствами:
+Интерфейс следует наполнить необходимыми методами и свойствами:
 http://gsbelarus.com/gs/images/gs/2007/wiki_delphi_comp_2.jpg