Utilisateur anonyme
-
30 janv. 2006 à 09:27
Nicolas___
Messages postés992Date d'inscriptionjeudi 2 novembre 2000StatutMembreDernière intervention24 avril 2013
-
30 janv. 2006 à 19:06
Salut à tous,
Voila mon ptit soucis : je fais apparaitre une image JPEG dans un Timage. Manque de chance l'image n'occupe pas tout le TImage. ALors comment faire pour que mon JPEG occupe tout le TIMage sans perte de qualité à cause des pixels ??
Nicolas___
Messages postés992Date d'inscriptionjeudi 2 novembre 2000StatutMembreDernière intervention24 avril 20131 30 janv. 2006 à 19:04
une solution un peu plus " code "
uses jpeg;
var
Form1: TForm1;
jpg:tjpegimage;
[...]
procedure TForm1.FormCreate(Sender: TObject);
begin
jpg:=tjpegimage.Create;
image1.Canvas.Create;
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
if bdd.Execute then
begin
jpg.LoadFromFile(bdd.FileName);
image1.Width:=jpg.Width;
image1.Height:=jpg.Height;
image1.Picture.Assign(jpg);
end;
slt
nico
Vous n’avez pas trouvé la réponse que vous recherchez ?