Что может блокировать property?

[BadBoyAlex]

Здравствуйте, уважаемые форумчане!
Есть компонента -- наследник TGraphicControl. Так вот, у самого TGraphicControl нет св-ва Align, НО TGraphicControl -- наследник TControl, у которого это св-во есть. Хочу прикрутить его к своей компоненте. Прописываю:

Код: Выделить всё

property Align: TAlign read FAlign write SetAlign default alNone;

НО в инспекторе Align'а нет. Что не так?

[SeZuka]

Зачем его прописывать заново, просто в своем компоненте напишите:

Код: Выделить всё

published
  property Align;
  ...
end;

[BadBoyAlex]

Зачем его прописывать заново, просто в своем компоненте напишите:

Код: Выделить всё

published
  property Align;
  ...
end;

Всё равно нет в инспекторе объектов.

[SeZuka]

Так а вы пересобирали лазарус?

[BadBoyAlex]

Так а вы пересобирали лазарус?

Да.

[SeZuka]

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

Код: Выделить всё

unit GraphicControl1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs;

type
  TGraphicControl1 = class(TGraphicControl)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property Align;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Additional',[TGraphicControl1]);
end;

end.

После установки и пересборки лазаруса, кидаю новый компонент на форму, есть у него Aling.
Попробуйте установить у себя пакет и проверить

PackageTest.zip