PIXEL

Commentaire de skiso le 01/01/2004 17:49:40

je veut savoir es qu'il y'a une autre façon de redimensionner image2 a part s'elle si:

///// 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

Commentaire de skiso le 01/01/2004 21:04:35

ca ne marche pas

Commentaire de ManChesTer le 03/01/2004 17:42:42 administrateur CS

un peux plus vite...

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.