Данная процедура на 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;
С современным развитием интернета простые пользователи предпочитают скачать песни из сети, чем покупать компакт-диск.