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.
