Pixel

Soyez le premier à donner votre avis sur cette source.

Vue 3 412 fois - Téléchargée 331 fois

Description

begin
end.

Source / Exemple :


begin
end.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
103
Date d'inscription
dimanche 19 janvier 2003
Statut
Membre
Dernière intervention
19 septembre 2010

merci tout les deux
ManChester c'est Nettement plus rapid
IneKman desoli ca ne marche pas, et je l'ai essaie au par avant
merci
Messages postés
369
Date d'inscription
vendredi 20 octobre 2000
Statut
Modérateur
Dernière intervention
24 novembre 2020

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.
Messages postés
291
Date d'inscription
dimanche 2 février 2003
Statut
Membre
Dernière intervention
30 juin 2006

J'ai trouvéééééééé ! Putain je suis content de pouvoir aider quelqu'un !

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.
Messages postés
103
Date d'inscription
dimanche 19 janvier 2003
Statut
Membre
Dernière intervention
19 septembre 2010

ca ne marche pas
Messages postés
291
Date d'inscription
dimanche 2 février 2003
Statut
Membre
Dernière intervention
30 juin 2006

t'as pas essayé d'utiliser les propriétés "width" et "height" de image1 pour les attribuer à image2 ?
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.