Forum: Sonstige Fragen zu Delphi
Delphi
by Hawkeye219,
20. Feb 2007
Hast du nicht Quelle und Ziel vertauscht?
procedure DrawRotatedBitmap (aCanvas: TCanvas; aBitmap: TBitmap;
aAngle: Double; aOffsetX, aOffsetY: Integer);
aCanvas ist der Ziel-Canvas, aBitmap das Quell-Bitmap.
Gruß Hawkeye
Forum: Sonstige Fragen zu Delphi
Delphi
by Hawkeye219,
1. Nov 2006
Hallo Tom,
ich habe den Code so abgeändert, daß er mit beliebigen TGraphic-Nachfolgern arbeiten sollte.
// 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