TRechteck

[simonko]

Ich muss eine klasse TRechteck von Tgraphiccontrol ableitn. Ich soll die methode paint überschreiben
und diese soll dann dafür sorgen dass das rechteck gezeichnet wird. Weiters hat die klasse TRechteck folgende eigenschaften: fuellfarbe und Linienfarbe.

bis jetzt hab ich das hier.

Delphi-Quellcode:

TRechteck = class(TGraphicControl)
  private
    function GetFuellFarbe: TColor;
    procedure SetFuellFarbe(const Value: TColor);
    function GetLinienFarbe: TColor;
    procedure SetLinienFarbe(const Value: TColor);
  public
    property FuellFarbe : TColor
      read GetFuellFarbe write SetFuellFarbe;
    property LinienFarbe : TColor
      read GetLinienFarbe write SetLinienFarbe;
end;

function TRechteck.GetFuellFarbe: TColor;
begin
  result:= canvas.Brush.Color;
end;

function TRechteck.GetLinienFarbe: TColor;
begin
  result:= canvas.Pen.Color;
end;

usw.
...

Nun wie überschreib ich diese paint methode? und wie sieht es eigentlich mit dem constructor aus?
ich hab keine ahnung wie die basisklasse aussieht udn von der hilfe werd ich auch nicht schlau.