Im Moment bestimmt die Breite der PaintBox die Länge des Zeigers, da dieser immer die halbe Breite lang sein sollte. Du musst dann dementsprechend nur diese beiden Zeilen anpassen:
Delphi-Quellcode:
x := (pbVUMeter.Width div 2) + Round(cos(d)*(pbVUMeter.Width div 2));
//
y := pbVUMeter.Height - Round(sin(d)*(pbVUMeter.Width div 2));
Denn dort werden ja die "End-Koordinaten" für den Zeiger bestimmt. Das "pbVUMeter.Width div 2" kannst du durch die von dir gewünschte Länge ersetzen. Tipp: Mach dir auf einem Stück Papier eine kleine Skizze, dann siehst du relativ schnell, wie die Koordinaten berechnet werden müssen und wie die Formeln zu Stande kommen.
Ich verstehe nicht ganz, was du mit dem Radius meinst. Wenn du den Radius des Kreises meinst: Der wird ja durch das Hintergrund-Bild bestimmt. Er wird ja nicht vom Programm aus gezeichnet, sondern ist "in der Bitmap drin"
mfg