Данная процедура на 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;