Progressbar färben?

[Redeemer]

Der Farbverlauf ist einfach. Progressbar nehmen, Panel drüber, TImage vom Farbverkauf mit alClient ins Panel, Panel nach Fortschritt skalieren.

Was nicht klappt, ist Text über der Progressbar. TProgressBar erbt von TWinControl, TLabel aber von TGraphicControl, sprich TWinControl ist immer oben. Die TWinControl-Labels TStaticText und TLinkLabel sowie das immer gern zur Hilfe genommene TPanel haben keine Transparenz-Eigenschaft, zumindest keine die funktioniert.

Also: Erstelle eine TProgressBar auf TForm, kopier dir den Inhalt von TForm.Canvas an der Stelle in ein TImage. Auf das Bild dann ein TImage mit dem Farbverlauf und ein zentriertes TLabel und fertig ist es.