TCollection, TCollectionItem

[uwewo]

Hi oki,

zwei der drei Fehler konnte ich nun auch gestern Abend lokalisieren und beheben.
Trotzdem war es gut für mich zu sehen, daß ich es auch richtig interpretiert hatte.

Habe kleinere Veränderungen beim zeichnen von TControlDateItem vorgenommen zumindest werden diese
wieder auf Größe der Auswahl gezeichnet.

Was mich allerdings schon gestern nach der Fehlersuche beschäftigt hatte war, warum sieht man im TCollectionEditor im OI beim hinzufügen eines neuen TDateItem nicht die Eigenschaften von TControlDateItem? Deshalb dachte ich mir erweitere ich die Propertys wie folgt.

Delphi-Quellcode:

  TDateItem = class(TCollectionItem)
  private
    FControlDateItem : TControlDateItem;
    FParent          : TDateItems;
    //Neu
    FName            : String; 
  protected
  public
    constructor Create(Collection: TCollection); override;
    //Neu
    property Name : String read FName write FName;//Neu
    property ControlDateItem : TControlDateItem read FControlDateItem write FControlDateItem;
  end;

Leider hatte dies auch nicht den gewünschten Effekt, vielleicht denke ich zu naiv, werde mich aber weiter damit beschäftigen. Weiteres später.