Copier une Form & réduire l'image de la copie d'écran

procedure TForm1.Button1Click(Sender: TObject);
var
Bit_copy, Bit_reduit: TBitmap;
R:Trect;
begin
Bit_copy := TBitmap.Create;
Bit_reduit:=TBitmap.Create;
try
{Copie d'écran de la Form1}
Bit_copy.height:=Form1.Clientheight;
Bit_copy.width:=form1.Clientwidth;
R:=Rect(0,0,Form1.Clientwidth, Form1.Clientheight);
Bit_copy.Canvas.CopyRect(R, Form1.Canvas, R);

{Réduction à une image de 200x200}
Bit_reduit.Height:=200;
Bit_reduit.Width:=200;
Bit_reduit.Canvas.StretchDraw(Rect(0,0,200,200), Bit_copy);

{Place la réduction dans image1}
Image1.Picture.Assign(Bit_reduit);
finally
Bit_copy.free;
Bit_reduit.Free;
end;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour19/05/2002
VisualisationVu 1773 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Surface
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur