Сложности с нестандартным свойством в самописном компоненте

skroik

Здравствуйте!

Создаю компоненту для FastReport.
Для хранения бинарных данных создал новый тип (наследник TPersistent, про AsignTo не забыл).
Создал published свойство этого типа, для работы с ним в дизайнере написал Property Editor.

Но после 2-х дней безрезультатных экспериментов хочу спросить, как побороть эти затруднения:

- почему свойство не сохраняется в файл дизайна *.fr3 ?
- почему значение свойства обнуляется при копировании компонента в дизайнере ?
- почему значение свойства обнуляется при нажатии на Preview ?
- почему значение свойства обнуляется и в дизайнере при возвращении туда из Preview ?

Если можете навести на решение, буду очень признателен.

skroik

Жалко, что за столько дней ни одного ответа.

DimaBr

Раз вам мало ответов там, отвечу здесь.

Ошибка в 17 строке

Stalker4

skroik написал: »

Здравствуйте!

Создаю компоненту для FastReport.
Для хранения бинарных данных создал новый тип (наследник TPersistent, про AsignTo не забыл).
Создал published свойство этого типа, для работы с ним в дизайнере написал Property Editor.

Если можете навести на решение, буду очень признателен.

Рекомендую изучить исходный код FR4, в частности модуль frxChart.pas (обрати внимание на методы ReadData1/WriteData1 и DefineProperties). Я в свое время именно оттуда брал пример, как писать в fr4 коллекцию (надо было для своей обертки TfrxDbGridEh).

skroik

Stalker4,

за наводку на DefineProperties огромное спасибо, сижу разбираюсь, как готовить


DimaBr,

вы такие умные, я в восхищении

skroik

Спасибо всем за ответы, особенно Stalker4, топик можно закрывать.

Напомню, в качестве бинарного свойства использовался наследник TPersistent
Для того, чтобы все проблемные пункты заработали, достаточно оказалось в этом классе перегрузить метод DefineProperties(Filer: TFiler)
И в FastReport-компоненте для свойства определить как read, так и write (в сеттере естественно всего лишь Assign(), а не приравнивание)

type
   TMyPropertyClass = class(TPersistent)
   private
      ...
      procedure ReadDataProp(Stream: TStream);
      procedure WriteDataProp(Stream: TStream);
      
   protected
      ...
      procedure DefineProperties(Filer: TFiler); override;
      ...
   public
      function IsEmpty(): boolean;
      procedure LoadFromStream(AStream: TStream);
      procedure SaveToStream(AStream: TStream);
   end;
//------------------------------------------------------------------------------
procedure TMyPropertyClass.DefineProperties(Filer: TFiler);
begin
   inherited;
   
   Filer.DefineBinaryProperty('Data', 
                              ReadDataProp, WriteDataProp, 
                              not IsEmpty());
end;
//------------------------------------------------------------------------------
procedure TMyPropertyClass.ReadDataProp(Stream: TStream);
begin
   LoadFromStream(Stream);
end;
//------------------------------------------------------------------------------
procedure TMyPropertyClass.WriteDataProp(Stream: TStream);
begin
   SaveToStream(Stream);
end;