Linie in abgeleiteter Komponente zeichnen

[DeddyH]

Ich verstehe das Problem nicht ganz.

Delphi-Quellcode:

type
  TBasis = class(TCustomPanel)
  ...
  protected
    procedure Paint; override;
  ...
  end;

  TAbgeleitet = class(TBasis)
  private
    FProperty: TDatentyp;
    procedure SetProperty(value: TDatentyp);  
  ...
  protected
    procedure Paint; override;
  ...
  public
    property MyProperty: TDatentyp read FProperty write SetProperty;
  end;


procedure TBasis.Paint;
begin
  inherited;
  //Zeichnen
end;

procedure TAbgeleitet.Paint;
begin
  inherited; //Zeichenroutine der Basisklasse
  //weitere Zeichenoperationen
end;

procedure TAbgeleitet.SetProperty(value: TDatentyp);
begin
  //wenn nötig, neuzeichnen
  if FProperty <> value then
    begin
      FProperty := value;
      invalidate;
    end;
end;