Hallo du hast den code nicht richtig kopiert, bzw. falsch geändert.
Delphi-Quellcode:
RESULT := BitmapOriginal;
RESULT.Width := BitmapOriginal.Width;
RESULT.Height := BitmapOriginal.Height;
RESULT.PixelFormat := pf24bit;
cosTheta := COS(AngleOfRotation); //<<<<------ diese Zeile kommt im Originalen so code nicht vor, bzw das sintheta fehlt.
richtig ist
Delphi-Quellcode:
// Get SIN and COS in single call from math library
sincos(AngleOfRotation, sinTheta, cosTheta);
sincos ist in math enthalten, du mußt math mit in die uses zeile aufnhemen.
Mfg Frank