Как перевернуть картинку?

Delphi FAQ >> Графика

Данная функция на Delphi позволяет перевернуть изображение (повернуть картинку на 180 градусов):

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

---

Водяной пол обходится намного дешевле электрического, но нужно покупать пенополистирол и полистирол для пола, иначе будут потери тепла.