Программирование на Delphi и не только Зеркальное отображение изображения | Программирование на Delphi и не только

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;

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