1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

// uses Math (SinCos) 

// zeichnet eine verdrehte Grafik auf einem Canvas 
// aAngle ist der Drehwinkel im Uhrzeigersinn in Grad 
// aOffsetX, aOffsetY gibt den Offset für das Zeichnen an 

procedure DrawRotatedGraphic (aCanvas: TCanvas;  aGraphic: TGraphic; 
                              aAngle: Double;  aOffsetX, aOffsetY: Integer); 
var 
  svMode: Integer; 
  Mat, svMat: tagXFORM; 
  si, co: Extended; 
begin 
  // aktuellen Zustand retten 
  svMode := SetGraphicsMode(aCanvas.Handle, GM_ADVANCED); 
  if (svMode = GM_ADVANCED) then 
    GetWorldTransform(aCanvas.Handle, svMat); 
  // Verschiebung in den Usprung 
  FillChar (Mat, SizeOf(Mat), 0); 
  Mat.em11 := 1.0; 
  Mat.em22 := 1.0; 
  Mat.eDx := -(aOffsetX + aGraphic.Width / 2); 
  Mat.eDy := -(aOffsetY + aGraphic.Height / 2); 
  SetWorldTransform(aCanvas.Handle, Mat); 
  // Verdrehung 
  SinCos (aAngle * Pi / 180, si, co); 
  FillChar (Mat, SizeOf(Mat), 0); 
  Mat.em11 := co; 
  Mat.em12 := si; 
  Mat.em21 := -si; 
  Mat.em22 := co; 
  ModifyWorldTransform(aCanvas.Handle, Mat, MWT_RIGHTMULTIPLY); 
  // Zurückschieben 
  FillChar (Mat, SizeOf(Mat), 0); 
  Mat.em11 := 1.0; 
  Mat.em22 := 1.0; 
  Mat.eDx := (aOffsetX + aGraphic.Width / 2); 
  Mat.eDy := (aOffsetY + aGraphic.Height / 2); 
  ModifyWorldTransform(aCanvas.Handle, Mat, MWT_RIGHTMULTIPLY); 
  // Bitmap zeichnen 
  aCanvas.Draw(aOffsetX, aOffsetY, aGraphic); 
  // alten Zustand wiederherstellen 
  if (svMode = GM_ADVANCED) then 
    SetWorldTransform(aCanvas.Handle, svMat) 
  else 
    SetGraphicsMode(aCanvas.Handle, svMode); 
end;