Hallo,
es läßt mir einfach keine Ruhe, gibt es denn wirklich nicht die Möglichkeit TDateItem in TControlDateItem bekannt zu machen, so daß ich die propertys von TControlDateItem nach TDateItem
verschieben kann
Schreibe ein paar Kommentare in den Source, wie ich es mir vorstelle.
Delphi-Quellcode:
TControlDateItem = class(TGraphicControl)
private
//Das hier neu
FDateItem : TDateItem;
protected
procedure Paint; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
//Das hier neu
property DateItem : TDateItem read FDateItem write FDateItem;
end;
//******************************************************************************
TDateItem = class(TCollectionItem)
private
FControlDateItem : TControlDateItem;
FParent : TDateItems;
//stammt ursprünglich aus TControlDateItem
FBackColor : TColor;
protected
public
constructor Create(Collection: TCollection); override;
destructor Destroy; override;
//stammt ursprünglich aus TControlDateItem
procedure SetBackColor(const Value: TColor);
published
property ControlDateItem : TControlDateItem read FControlDateItem write FControlDateItem;
//stammt ursprünglich aus TControlDateItem
property BackColor : TColor read FBackColor write SetBackColor;
end;
implementation
//******************************************************************************
//***** ControlDateItem ********************************************************
//******************************************************************************
constructor TControlDateItem.Create(AOwner: TComponent);
begin
inherited Create(AOwner); { immer den geerbten Konstruktor aufrufen }
//?????????????????????????????????????????????????????
//Hier ist es unklar wie auf die propertys zugreifen
//?????????????????????????????????????????????????????
FDateItem := //?????????????
FDateItem.BackColor := clWhite;
end;
Hat dazu denn wirklich keiner eine Idee?
Uwe