TRechteck

[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!