PIXEL
Inekman
Messages postés
291
Date d'inscription
dimanche 2 février 2003
Statut
Membre
Dernière intervention
30 juin 2006
-
1 janv. 2004 à 00:42
cs_skiso Messages postés 103 Date d'inscription dimanche 19 janvier 2003 Statut Membre Dernière intervention 19 septembre 2010 - 3 janv. 2004 à 18:31
cs_skiso Messages postés 103 Date d'inscription dimanche 19 janvier 2003 Statut Membre Dernière intervention 19 septembre 2010 - 3 janv. 2004 à 18:31
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/19135-pixel
https://codes-sources.commentcamarche.net/source/19135-pixel
3 janv. 2004 à 18:31
ManChester c'est Nettement plus rapid
IneKman desoli ca ne marche pas, et je l'ai essaie au par avant
merci
3 janv. 2004 à 17:42
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var sx,sy,err:integer;
begin
if select then
begin
val(Edit1.Text,sx,err);
if err=0 then
begin
val(Edit2.Text,sy,err);
if err=0 then
Image2.Canvas.CopyRect(rect(x,y,x+sx,y+sy),Image1.Canvas,rect(x,y,x+sx,y+sy));
end;
end;
end;
procedure TForm1.Ouvrire1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
image1.Picture.LoadFromFile(OpenPictureDialog1.filename);
image2.Picture.assign(Image1.Picture);
image2.Picture:=nil;
end;
end;
Bon coding...
ManChesTer.
2 janv. 2004 à 01:37
Voilà ce que j'ai fait man :
image2 -> propriété "Autosize = False"
et dans ton code tu mets tout simplement ceci :
image2.Width := image1.Width;
image2.Height := image1.Height;
au lieu de :
image2.Picture.LoadFromFile(OpenPictureDialog1.filename);
image2.Picture := nil;
et dans l'évènement OnCreate de Form1 j'ai mis :
Form1.DoubleBuffered := True;
--> c'est pas grâce à cette dernière ligne que ça fonctionne mais c'était pour voir si la différence avec et sans était notable.
Voilà, essaye aussi de ton côté et confirme ou non ma proposition.
Inekman.
1 janv. 2004 à 21:04
1 janv. 2004 à 18:28
1 janv. 2004 à 17:49
///// cette parti est pour que image2 prend la meme taille que image1
image2.Picture.LoadFromFile(OpenPictureDialog1.filename);
image2.Picture:=nil;
///// cette parti est pour que image2 prend la meme taille que image1
merci Inekman
1 janv. 2004 à 00:42
Bravo skiso.