[stein]

Мне нужно в Treeview встроить набор цветов, от какого касса стоит
наследвать, и насклько верен код?

Код:

 
TTreeColors=class(TClass)
  private
    Color1: TColor;
    Color2: TColor;
    Color3: TColor;
    Color4: TColor;
    Color5: TColor;
    Color6: TColor;
    procedure SetColors1(const Value: TColor);
    procedure SetColors2(const Value: TColor);
    procedure SetColors3(const Value: TColor);
    procedure SetColors4(const Value: TColor);
    procedure SetColors5(const Value: TColor);
    procedure SetColors6(const Value: TColor);
   {private declerations}
  protected
   {protected declerations}
  public
   {public declerations}
  published
   {published declerations}
   property Level1: TColor read Color1 write SetColors1;
   property Level2: TColor read Color2 write SetColors2;
   property Level3: TColor read Color3 write SetColors3;
   property Level4: TColor read Color4 write SetColors4;
   property Level5: TColor read Color5 write SetColors5;
   property Level6: TColor read Color6 write SetColors6;
  end;


procedure TTreeColors.SetColorsX(const Value: TColor);
begin
  ColorX:= Value;
end;