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.

[Khabarakh]

Öhm... TGraphicControl.Paint ist doch sogar im Index der Hilfe . Der Konstruktor ebenfalls, die Deklaration der zwei kannst du wirklich nicht übersehen.

[arbu man]

Delphi-Quellcode:

    constructor Create(AOwner: TComponent);
    protected
      procedure Paint;override;

Delphi-Quellcode:

procedure TRechteck.Paint;
begin
  inherited;
  canvas.tue.was;

Delphi-Quellcode:

constructor TRechteck.Create(AOwner: TComponent);
var i:integer;
begin
  inherited Create(AOwner);
  FuellFarbe :=clred;
  usw.
end;

Klick mal bei gedrückter steuerungstaste auf den type!

[Khabarakh]

Der Konstruktor sollte bei Controls unbedingt auch überschrieben werden.

[simonko]

ich hab jetzt

Delphi-Quellcode:

procedure TRechteck.paint;
begin
  inherited;
  canvas.Rectangle(1,100,2,200);
end;

später brauch ich dann noch Fhöhe und Fbreite um das rechteck zu zeichnen. aber wenn ich jetzt
paint ausführe kommt eine fehlermeldung. 'Has no parent window' :S

[Khabarakh]

Zitat von simonko:

aber wenn ich jetzt paint ausführe kommt eine fehlermeldung. 'Has no parent window' :S

Wo und überhaupt warum rufst du Paint selbst auf? Solange der Parent der Instanz noch nicht gesetzt ist (z.B. im Konstruktor), gibt es einfach noch keine Canvas zum Zeichnen. Wenn du ein Neuzeichnen des Controls erzwingen willst, solltest du Invalidate aufrufen, den Rest sollte Windows allein erledigen.