Define Properties

[Neutral General]

Hi,

Habe nochmal meine alte DPListBox ausgekramt und wollte die mal richtig fertig machen.

Ist dummerweise schon ne Weile her und jetzt hab ich folgende Situation:

Delphi-Quellcode:

// Alles aufs Wesentliche reduziert:
type
  TDPListBoxHeader = class(TPersistent)
  private
    FCaption: TCaption;
    FColor: TColor;
    procedure SaveToStream(AStream: TStream);
    procedure LoadFromStream(AStream: TStream);
  protected
    procedure ReadMyData(AStream: TStream);
    procedure WriteMyData(AStream: TStream);
    procedure DefineProperties(Filer: TFiler); override;
  public
    constructor Create(AOwner: TDPListBox);
  published
    property Caption: TCaption read FCaption write SetCaption;
    property Color: TColor read FColor write SetColor;
  end;

  TDPListBox = class(..)
  private
    FHeader: TDPListBoxHeader;
  published
    property Header: TDPListBoxHeader read FHeader;
  end;

Im OI siehts jetzt so aus:

Zitat:

- Header
Caption: __________
Color : __________

Das ist auch gut so. Aber die Properties werden eben (noch) nicht im Formular gespeichert, das heißt die Einstellungen die man in der IDE gemacht hat sind in der Anwendung nicht mehr vorhanden.

Bei einer anderen Property hatte ich es mit DefineProperties gemacht. Hab ich jetzt auch versucht. Das ganze sieht so aus:

Delphi-Quellcode:

procedure TDPListBoxHeader.LoadFromStream(AStream: TStream);
var l: Integer;
begin
  with AStream do
  begin
    Read(l,SizeOf(Integer));
    SetLength(FCaption,l);
    Read(FCaption[1],l);
    Read(FColor,SizeOf(TColor));
  end;
end;

procedure TDPListBoxHeader.SaveToStream(AStream: TStream);
var l: Integer;
begin
  with AStream do
  begin
    l := Length(FCaption);
    Write(l,SizeOf(Integer));
    Write(FCaption[1],l);
    Write(FColor,SizeOf(TColor));
  end;
end;

procedure TDPListBoxHeader.ReadMyData(AStream: TStream);
begin
  LoadFromStream(AStream);
end;

procedure TDPListBoxHeader.WriteMyData(AStream: TStream);
begin
  SaveToStream(AStream);
end;

procedure TDPListBoxHeader.DefineProperties(Filer: TFiler);
begin
  inherited DefineProperties(Filer);
  Filer.DefineBinaryProperty('Header',ReadMyData,WriteMyData,true);
end;

Das ganze funktioniert aber leider nicht. DefineProperties wird nie aufgerufen... Warum das?

Gruß
Neutral General