Also jetzt gehts schon mal ganz gut. Sogar mit dem gradient klppts. Was leider noch nicht funktioniert ist der Border.
Kein Ahnung warum, aber er wird NOCHT nicht gezeichnet.
Ich hänge mal nur die Paint an, da dort ja der Border abgehandelt wird.
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);
end;
Ich habe schon versucht den Pen nach dem Gradient zu übergeben, aber auch das brachte nichts.
Hm, und wenn das klappt, würde mich noch interessieren, wie ich eventuell die Ecken abgerundet zeichnen lassen kann...