Spejlvende billed

Dette eksempel vender halvdelen af bitmappen på hovedet. Muligvis er der behov for en bitmap at kopiere data over i - måske kan det gøres uden (se: http://www.codeguru.com/cpp/g-m/bitmap/specialeffects/article.php/c1739/)

procedure TfrmMain.btnTestClick(Sender: TObject);
var
  x, y : integer;
begin
  with Image.Picture do
    for x := 0 to Bitmap.Width - 1 do
      for y := 0 to Bitmap.Height - 1 do
        Bitmap.Canvas.Pixels[x,y] := Bitmap.Canvas.Pixels[Width - x - 1, Height - y - 1];
end;

procedure TfrmMain.btnTestClick(Sender: TObject);
var
  x, y : integer;
  TmpBitmap : TBitmap;
begin
  Screen.Cursor := crHourglass;
  try
    TmpBitmap := TBitmap.Create;
    try
      with Image.Picture do
      begin
        TmpBitmap.Width := Bitmap.Width;
        TmpBitmap.Height := Bitmap.Height;
        for x := 0 to Bitmap.Width - 1 do
          for y := 0 to Bitmap.Height - 1 do
            TmpBitmap.Canvas.Pixels[x,y] := Bitmap.Canvas.Pixels[Width - x - 1, Height - y - 1];
        Bitmap.Assign(TmpBitmap);
      end;
    finally
      TmpBitmap.Free;
    end;
  finally
    Screen.Cursor := crDefault;
  end;
end;

At bruge Bitmap.Canvas.Pixels er meget langsomt.
Det er meget hurtigere at bruge Scanline. Se her:
http://homepages.borland.com/efg2lab/ImageProcessing/FlipReverseRotate.htm

Ja, hurtig er min rutine sgu ikke - tænkte nok at der var bedre løsninger.