So wie ich das sehe, brauchst du leider schon die Scheibengrösse in Pixel. Mit Winkel und Radius bestimmst du dann den Zielpunkt in der Grafik.
Und im weitren war ich mit meiner Schätzung von 10'000 als maximaler Teilerwert etwas daneben, es scheint bei dieser Scheibe wohl in die Richtung von 16'000 zu gehen.
Ich hab deinen Source mal runtergeladen und folgendermassen ergänzt:
Auf der Form ein edtTeiler (TEdit) hinzugefügt, um den Teilerwert anzugeben (hatte keine Lust den String "SCH=1;6.0;3373.0;300.7;G+" auseinanderzupriemeln).
Jetzt musst du halt auf der Form dann rasch Winkel und Teiler eingeben.
Die Schussprozedur habe ich folgendermassen ergänzt: (Danke an axelf98, Bogenmass hatte ich ganz vergessen!)
Delphi-Quellcode:
procedure TForm1.btnShootNowClick(Sender: TObject);
var
x, y : Integer;
w : Real;
begin
w := StrToFloat(edtDegree.Text)*pi/180;
x := Trunc( XCenter + (Image1.Width / 16000 * StrToFloat(edtTeiler.Text) * Sin(w)));
y := Trunc( YCenter - (Image1.Height / 16000 * StrToFloat(edtTeiler.Text) * Cos(w)));
DrawShot(Image1.Canvas,x,y,8,clGreen);
end;
Guck mal wie das in etwa stimmt.