Stringliste in einem Collectionitem

[Ghostwalker]

Bei der Entwicklung einer Componente für Menüs (sie erweitert TMenu's quasi) benutze ich eine Collection die mir Erweiterte Attribute für jeden Menüpunkt speichern soll. U.a. auch einen Beschreibungstext (TStrings).

Alle Published-Eigenschaften des items der Collection werden auch wunderbar in die DFM geschrieben, sogar die Stringliste. Alle Eigenschaften werden auch wieder gelesen...nur die die Stringliste nicht. Deren Inhalt ist nach den neuladen des Projekts verschwunden (obwohl sie in der DFM steht !).

Hier mal die Decl's der beiden Klassen:

Delphi-Quellcode:

  //Das Item !
  TExtendedItem = Class(TCollectionItem)
    PRIVATE
       fwaschanged : boolean;
       fItem : TMenuitem;
       fDescription : TStrings;

        //Needed only internal;
        fOldFont : TFont;
        fOldBrush : TBrush;
        fOldPen   : TPen;
        fOldStyle : TElementStyles;
        procedure SetItem(const Value: TMenuitem);

        function IsToplevel:boolean;
        function IsSeperator:boolean;
        procedure SetDescription(const Value: TStrings);

    PROTECTED
       procedure SaveCanvas(ACanvas:TCanvas;style:TElementStyles);
       procedure RestoreCanvas(ACanvas:TCanvas;style:TElementStyles);
       procedure SetFont(ACanvas:TCanvas;AFont:TStylefont);
       function MakeCaption(Withshortcut:boolean=FALSE):String;
    PUBLIC

       constructor Create(Collection: TCollection); override;
       Destructor Destroy;Override;
       Procedure Assign(Source:TPersistent);override;
       //Painting and Measuring;
        procedure DrawItem(ACanvas:TCanvas;ARect:TRect;state:TOwnerDrawState;fstyle:TElementStyles);
        Function MeasureItem(ACanvas:TCanvas;fstyle:TElementStyles):TSize;
    PUBLISHED
        property WasChanged : boolean read fwaschanged;
        Property Item : TMenuitem read fitem write SetItem;
        Property Description : TStrings read fDescription write SetDescription;
  End;

  //Die Collection
  TExtendedItems = class(TCollection)
    PRIVATE
       fExtendedMenu : TExtendedMenu;
    function GetItem(index: integer): TExtendedItem;
    procedure SetItem(index: integer; const Value: TExtendedItem);

    PROTECTED
      Procedure Update(Item:TCollectionItem);override;
      function GetOwner:TPersistent;override;
    PUBLIC
      Constructor Create(AMenu:TExtendedMenu);
      function Add:TExtendedItem;
      property Items[index:integer]:TExtendedItem read GetItem write SetItem;default;
      function IndexOfMenuItem(AItem:TMenuItem):integer;
  end;

Die Stringliste (Description) wird ganz normal im Constructor erzeugt, im Descrutor freigegeben und in der Set-Methode via assign zugewiesen.

Solange ich mein Test-Projekt in der IDE hab, funktioniert alles wunderbar, sobald ich aber das Projekte schließe und neu lade, ist die Stringliste leer. Woran kann das liegen ?