Добавление Delphi компонента в Гедымин
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) |
SYSDBA (обсуждение | вклад) |
||
| Строка 4: | Строка 4: | ||
// тип рамки вокруг текста: нет, одинарная или двойная | // тип рамки вокруг текста: нет, одинарная или двойная | ||
TBorderType = (btNone, btSingle, btDouble); | TBorderType = (btNone, btSingle, btDouble); | ||
| − | + | ||
TMyLabel = class(TLabel) | TMyLabel = class(TLabel) | ||
private | private | ||
FBorderType: TBorderType; | FBorderType: TBorderType; | ||
FAngle: Integer; | FAngle: Integer; | ||
| − | + | ||
published | published | ||
procedure Flash; | procedure Flash; | ||
| − | + | ||
property BorderType: TBorderType read FBorderType; | property BorderType: TBorderType read FBorderType; | ||
property Angle: Integer read FAngle write FAngle; | property Angle: Integer read FAngle write FAngle; | ||
Версия 16:50, 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;
Добавим этот компонент в Гедымин.
