Benötige Hilfe beim Entwickeln einer Komponente

[DeddyH]

Mal zum Testen:

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.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.Right,Rect.Bottom);
end;