Diagonale Linie

[Sharky]

Hai Paul Jr.

Du könntest zb. auf das Pannel ein TImage legen.
Bei diesem dann Align := alClient. Dann kannst Du auf dem Image zeichnen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 x,y : Integer;
begin
 Image1.Canvas.Brush.Color := Panel1.Color;
 Image1.Canvas.FillRect(ClientRect);
 Image1.Canvas.MoveTo (10,10);  //Startpunkt der Linie
 Image1.Canvas.LineTo (50,50);  //Endpunkt der Linee
end;