Title: Flipping an image
Question: How to flip an image?
Answer:
//Title: How to flip an image fast?
//Category: Images
//Uploader: Maarten de Haan (M.deHaan@inn.nl)
//Delphi: 3, 4 and 5 (verified)
//Platform: NT and W95 (verified)
//================================================
Procedure Flip1Click(Sender: TObject);
Var
DummyImage : TImage;
X,Y : Integer;
SrcRect,DstRect : TRect;
Begin
//Assumes that Image1 holds the picture to be flipped
X := Image1.Picture.Width;
Y := Image1.Picture.Height;
SrcRect := Rect(0,0,X,Y);
DstRect := Rect(X,0,0,Y);
//This is the trick!
DummyImage := TImage.Create(Self);
DummyImage.Width := X;
DummyImage.Height := Y;
//DummyImage.Canvas.CopyMode := cmSrcCopy
DummyImage.Canvas.CopyRect(DstRect,Image1.Canvas,SrcRect);
//Flipping the image
Image1.Picture := DummyImage.Picture;
//Copy the flipped image to Image1
DummyImage.Free;
//Free the dummy
End;