Objekte drehen

[x000x]

Moin Luckie,

Pixelformat vom Ziel auf 24 Bit setzen hat bei mir funktioniert. Ich kann nur nicht erklären warum:

Delphi-Quellcode:

var
  BmpSrc, BmpDest   : TBitmap;
begin
  BmpSrc := TBitmap.Create;
  BmpDest := TBitmap.Create;
  try
    BmpSrc.Assign(ImageEnVect1.Bitmap);

    BmpDest.Width       := ImageEnVect1.layers[ImageEnVect1.LayersCurrent].Width;
    BmpDest.Height      := ImageEnVect1.layers[ImageEnVect1.LayersCurrent].Height;
    BmpDest.PixelFormat := pf24bit;

    DrawRotatedBitmap(BmpDest.Canvas, BmpSrc, 10.0, 0, 0);

    ImageEnVect1.Bitmap.Assign(BmpDest);
    ImageEnVect1.Update;
  finally
    BmpSrc.Free;
    BmpDest.Free;
  end;
end;