Программирование на Delphi и не только Как перевернуть картинку? | Программирование на Delphi и не только

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;

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