Ich habs zum Testen erst einmal so gemacht:
Delphi-Quellcode:
pb1.Canvas.Rectangle(pb1.Canvas.ClipRect.Bottom, pb1.Canvas.ClipRect.Bottom +20,
pb1.Canvas.ClipRect.Bottom -50, pb1.Canvas.ClipRect.Bottom -30);
ein kleiner Balken zeichnet er mir schon.
Danke für eure Tipps ich meld mich wenn ich wieder eure Hilfe brauche
