Зеркальное отображение изображения

Delphi FAQ >> Графика

Данная процедура на Delphi делает зеркальное отображение картинки по горизонтали:

Procedure FlipBitmapH(Bitmap: TBitmap);
var
  X, Y: Integer;
  SrcRect, DstRect: TRect;
begin
  X := Bitmap.Width;
  Y := Bitmap.Height;
  SrcRect := Rect(-1, -1, X, Y);
  DstRect := Rect(X, -1, -1, Y);
  Bitmap.Canvas.CopyRect(DstRect, Bitmap.Canvas, SrcRect);
end;

---

С современным развитием интернета простые пользователи предпочитают скачать песни из сети, чем покупать компакт-диск.