Discussion :

[Paladyn]

Bonjour à tous,
Je n'ai pas du tout l'habitude de programmer avec des Timages.
Encors moins drag and drop .
Je me lance, avez vous des pistes et idées pour mon projet ?

Je cherche à faire cela ;
2 Timages nommés Image0 et image 1
L'utilisateur drag and drop l'image 0 pour la positionner sur l'image 1
puis il redimmentionne image 0 s'il y a lieu
et l'appui d'un bouton de validation colle l'image 0 dans l'image 1.



Par avance, Merci
paladyn

[kheiropc]

Bonjour
Essaye ca, j'ai rajouter un bouton pour envoyer l'imag2 vers image1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
begin
 
image2.Left:=350;
image2.top:=100;
image2.Height:=50;
image2.Width:=50;
end;

[popo]

Bonjour
Essaye ca, j'ai rajouter un bouton pour envoyer l'imag2 vers image1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
begin
 
image2.Left:=350;
image2.top:=100;
image2.Height:=50;
image2.Width:=50;
end;

??????
Tout ce que tu fais là c'est de deplacer et de redimensionner image2 et en plus tu donnes des valeurs en dur ! Tu ne prend pas compte du drag and drop et répond complètement à coté !

Paladyn est ce que le but de cette manoeuvre est de fusionner ces deux images afin de produire une troisième et d'enregistrer cette troisième image ?

[kheiropc]

Ah alors désolé
J'ai cru qu'il s'agit d'un simple déplacement de l'image

[Archimède]

Pour faire une fusion, il faut regarder du coté de canvas.copymode qui me parait la première solution qui me vient à l'esprit.

a+