Hallo Delphi Profis,

ich möchte in ein TCollectionItem einige neue Properties einfügen, weiss aber nicht wie ich das anstellen soll.

Ich habe mir eine von "TCustomVirtualStringTree" (Virtual String Tree von Mike Lischke) abgeleitete Komponente gebastelt. TCustomVirtualStringTree basiert auf der Klasse "TBaseVirtualTree", die TVTHeader (TPersistent) beinhaltet in der die Collection "TVirtualTreeColumns" drinnen ist.
Etwa so:

zusammenfalten · markieren

Delphi-Quellcode:

TVirtualTreeColumns = class(TCollection);

TVTHeader = class(TPersistent)
  private
    FColumns: TVirtualTreeColumns;
end;

TBaseVirtualTree = class(TCustomControl)
private
    FHeader: TVTHeader;
end;

TCustomVirtualStringTree = class(TBaseVirtualTree);

TMyTree = class(TCustomVirtualStringTree);

Nun würde ich gerne die Items in TVirtualTreeColumns um ein paar Properies erweitern ohne den gesammten Source code vom Virtual String Tree ändern/übernehmen zu müssen.
Also: liebe OOP Profis gibts da irgend eine Möglichkeit?

Viele Grüsse, Cornelius

Wenn es jemanden interessiert, habs rausgefunden

Man muss folgende functionen überschreiben, so das sie die eigene Headerklasse zurückgeben. So kann man den Tree dazu bringen eigene abgeleitete Header Klassen zu verwenden...

zusammenfalten · markieren

Delphi-Quellcode:

    function GetHeaderClass: TVTHeaderClass; override;
    function GetColumnClass: TVirtualTreeColumnClass; override;

function TCaDBGrid3.GetHeaderClass: TVTHeaderClass;
begin
  Result := TMyHeader;
end;

function TCaDBGrid3.GetColumnClass: TVirtualTreeColumnClass;
begin
  Result := TMyTreeColumn;
end;