TShape Farbverlauf

[Andy Nightingale]

Ich habe Dir mal ein kleines Beispiel gemacht mit TBCPanel und einem BGRAShape
(siehe Anhang)
Screenshot 2025-05-17 061952.png

Cool, vielen Dank

[Andy Nightingale]

Ich kannte dies auch nicht, und habe folgendes probiert.
Man kann auch ein ganzes Form damit befüllen.

Code: Alles auswählen

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.GradientFill(Rect(0, 0, ClientWidth, ClientHeight), clRed, clGreen, gdVertical);
end; 

Hallo Mathias,
das ist ja einfach.- wahnsinn. Das ist das Beste und Einfachste. Herzlichen Dank