Pivoter un Bitmap

procedure spiegel_horizontal(Quelle, Ziel: TBitMap);
begin
Ziel.Assign(nil);
Ziel.width:=Quelle.width;
Ziel.height:=Quelle.height;
StretchBlt(Ziel.canvas.handle,0,0,Ziel.width,Ziel.height,Quelle.canvas.handle,0,
Quelle.height,Quelle.width, -Quelle.height,srccopy);
end;

procedure spiegel_vertikal(Quelle, Ziel: TBitMap);
begin
Ziel.Assign(nil);
Ziel.width:=Quelle.width;
Ziel.height:=Quelle.height;
StretchBlt(Ziel.canvas.handle,0,0,Ziel.width,Ziel.height,Quelle.canvas.handle,
Quelle.width,0,-Quelle.width,Quelle.height,srccopy);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
temp: TBitMap;

begin
temp:=TBitMap.Create;
temp.Assign(Image1.Picture.BitMap);
spiegel_vertikal(Temp,Image1.Picture.Bitmap);
Temp.Free;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 1754 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Graphisme
Auteur de l'article
Communauté Delphi Communauté Delphi
connecté le 02/11/2011
0 articles dans la section
Contacter l'auteur