transparente Progressbar oder Text in Progressbar

[Sharky]

Hai Janos,

TGauge findest Du bei der Registerkarte "Beispiele".
Ansonsten wäre es wohl das einfachste das ganze mit einem Panel und einem TImage das auf diesem Liegt selber zu machen.
Ansatzweise so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  rec : TRect;
begin
  rec.Left := Image1.Left;
  rec.Top := Image1.Top;
  rec.Bottom := Image1.Top + Image1.Height;
  rec.Right := Image1.Width  DIV 2; // 50 %

  Image1.Canvas.Brush.Color := clred;
  Image1.Canvas.Brush.Style := bsSolid;
  Image1.Canvas.FillRect(rec);
  Image1.Canvas.Brush.Style := bsClear;
  Image1.Canvas.TextOut(Image1.Width DIV 2,Image1.Height DIV 2,'blubb');
end;