24-Bit Bitmap um 90 grad drehen - Resourcen-Optimierung

[venice2]

Zitat:

Viel Spaß beim weiteren Basteln.

Dito!

Delphi-Quellcode:

procedure TForm34.Button1Click(Sender: TObject);
var
  bm: Tbitmap;
  Start, Stop: Cardinal;
begin
  Start := GetTickCount;
  bm := TBitmap.Create;
  bm.Assign(image1.Picture.Bitmap);
//  GDIPRotateFlipBitmap (bm, Rotate90FlipY);
  bm := FastAARotatedBitmap(bm.Handle, 90.0, TColor($FFFF),
    true, true, false, 1.0);
  Image2.Picture.Bitmap.Assign(bm);
  Image2.Refresh;
  Stop := GetTickCount - Start;
  Caption := Format('%d ms', [Stop]); // 656 ms ..
end;