Самодельный компонент

[qivi]

Не могу преодолеть этот баг !
Постом выше описана проблема, вот пример компонента:

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

unit RUS_test;

{$mode objfpc}{$H+}

interface

uses
  Controls,Classes,Graphics;

type

  TRUS_T=class(TGraphicControl)
  protected
    procedure Paint;override;
  public
    constructor Create(AOwner:TComponent);override;
  published
    property Constraints;
    property Align;
    property Anchors;
    property Height;
    property Width;
  end;

procedure Register;

implementation

constructor TRUS_T.Create(AOwner:TComponent);
begin
  inherited Create(AOwner);
  Width:=100;
  Height:=30;
end;

procedure TRUS_T.Paint;
begin
  Canvas.Pixels[0,0]:=$000000ff;
  Canvas.Pixels[Width-1,Height-1]:=$000000ff;
  inherited Paint;
end;

//============================================================================//

procedure Register;
begin
  RegisterComponents('RUS Controls',[TRUS_T]);
end;

end.

Очень прошу, помогите пожалуйста!

[Light13]

Есть подозрение, что нужно объявить property BorderSpacing;

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

published
    property Constraints;
    property Align;
    property Anchors;
    property BorderSpacing;
    property Height;
    property Width;


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

Сейчас проверял на своем компоненте, вроде помогло.

[qivi]

Light13 СПАСИБО ОГРОМНОЕ!!!!!!!! ЭТО ОНО!!!!!!!!!

[Light13]

Кстати, это касается всех свойств.

Если их не делать pablished, то они при запуске будут со значениями по-умолчанию.

[qivi]

Я собственно и не знал какое свойство отвечает за отступы, думал они так же относятся к property Anchors;

[VirtUX]

Можно ли хоть как то опубликовать данные типа record?

делайте структуру наследником TPersistent

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

TMyData = class(TPersistent)
private
...
public
property Data1: string read FData1 write SetData1;
property Data2: integer read FData2 write SetData2;
...
end;

TMyClass = class(TWinControl)
...
published
property MyData: TMyData read FMyData write SetMyData;
...
end;

тогда в инспекторе будет раскрываться список параметров

Добавлено спустя 3 минуты 47 секунд:
не забудьте (по необходимости отображать в DisignTime изменения) в SetData1 и прочих предусмотреть OnChange. Именно внутри наследника TPersistent нужно вызывать Invalidate!!!

Добавлено спустя 4 минуты 51 секунду:

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

procedure TMyData.SetData1(AValue: string);
begin

  if FData1 <> AVAlue then FData1 := AValue;
...
  if Assigned(OnChange) then OnChange;

end;

Добавлено спустя 2 минуты 2 секунды:
а в конструкторе TMyClass определяем OnChange

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

constructor Create(AOwner: TWinControl);
begin
...
  FMyData.OnChange := @Invalidate;
...
end;