|
|
| Tutoriaux
- Graphique - Miroir vertical |
Voici un exemple programmé en delphi
pour appliquer dans une image l'effet miroir vertical.
procedure
TForm1.Button1Click (Sender : TObject);
Var Im : TImage;
X,Y : Integer;
SrcRect,DstRect : TRect;
Begin
Screen.Cursor := crHourglass;
try
X := Image1.Picture.Width;
Y := Image1.Picture.Height;
SrcRect := Rect(0,0,X,Y);
DstRect := Rect(0,Y,X,0);
Im := TImage.Create(Self);
Im.Width := X;
Im.Height := Y;
Im.Canvas.CopyRect(DstRect,Image1.Canvas,SrcRect);
Image1.Picture := Im.Picture;
Im.Free;
finally
Screen.Cursor := crDefault;
end;
End; |
|
|
