Punkt drehen um einen anderen Punkt

[Kroko1999]

GELÖSCHT

ROUND ist richtig hatte ich nicht dran gedacht,

und Denkfehler:

Code:

  P.X := Round (Hx*Cos(AWinkel)-Hy*Sin(AWinkel);
  P.Y := Round (Hx*Sin(AWinkel)+Hy*Cos(AWinkel);