Ok, das geht. Ich habe es soweit angepasst, dass ich die Linien vorerst von Links Oben nach unten und nach rechts gezogen habe. Leider wird dabei bisher die Linienstärke noch nicht berücksichtigt. Ich habe mal bei Canvas nachgesehen, aber leider nichts finden können, wie ich die Stiftdicke einstellen kann.
Der Code sieht derzeit nun so aus:
Delphi-Quellcode:
procedure TmyPanel.Paint;
var
Rect,TextRect : TRect;
begin
Rect := GetClientRect;
Canvas.FillRect(Rect);
Canvas.Brush.Style := bsSolid;
Canvas.Brush.Color := FBgColorFrom;
Canvas.Pen.Mode := pmCopy;
Canvas.Pen.Style := BorderStyle;
Canvas.Pen.Width := BorderWidth;
Canvas.Pen.Color := BorderColor;
if PaintGradient then
DrawGradient(Canvas, BgColorFrom, BgColorTo, Rect, goVertical);
Canvas.MoveTo(0,0);
Canvas.LineTo(Rect.Left,Rect.Bottom);
Canvas.MoveTo(0,0);
Canvas.LineTo(Rect.Right,Rect.Top);
end;