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

Комментарии

• skroik

  June 2013 отредактировано 21:55

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

  June 2013 отредактировано 21:55

  Раз вам мало ответов там, отвечу здесь.
  
  Ошибка в 17 строке
• Stalker4 123

  June 2013 отредактировано June 2013

  skroik написал: »

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

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

  June 2013 отредактировано June 2013

  Stalker4,
  
  за наводку на DefineProperties огромное спасибо, сижу разбираюсь, как готовить
  
  
  DimaBr,
  
  вы такие умные, я в восхищении
• skroik

  June 2013 отредактировано June 2013

  Спасибо всем за ответы, особенно 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;