Auf Shape zeichnen

[Die Muhkuh]

Ich würde eine Komponente von TShape ableiten und mit der dann diesen Strich zeichnen.

Delphi-Quellcode:

interface

type
  TMyShape = class(TShape)
  protected
    procedure Paint; override;
  end;

implementation

procedure TMyShape.Paint;
begin
  inherited Paint;

  Canvas.MoveTo(0, 0);
  Canvas.LineTo(Width, Height);
end;