Discussion :

[ero-sennin]

Bonsoir,

Sur le TImage qui se nomme BitmapDessin, je créé d'autres TImages qui sont reliés par des lignes (tracés sur le canvas du BitmapDessin).

Ce que je souhaite faire, c'est de faire une sorte de ScreenShoot du TImage afin de pouvoir le collé dans paint ou dans un autre programme du genre Word etc etc.

Je ne sais pas comment dire , voilà tu prends une photo uniquement de BitmapDessin et tu le mets dans le presse papier!

Si quelqu'un à une explication ou un bout de code ...
Merci

[ero-sennin]

Bonjour,

J'ai cherché encore ce matin et cette après midi pour ce problème, et j'ai trouvé!

Je vous mets le code que j'ai utilisé, bien que je n'ai pas encore tout compris concernant le Handle, BitBlt,ReleaseDC(GetDesktopWindow,HandleDCBureau), etc ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TFPrincipale.Copier1Click(Sender: TObject);
var HandleDCBureau : HDC;
begin
HandleDCBureau:=GetDC(GetDesktopWindow);
ImageBureau.Bitmap.Width := BitmapDessin.Width-5;// ImageBureau est un TPicture  qui est créé dès le lancement de l'application
ImageBureau.Bitmap.Height := BitmapDessin.Height-5;// idem pour la hauteur
BitBlt(ImageBureau.Bitmap.Canvas.Handle,0,0,BitmapDessin.Width,BitmapDessin.Height,
HandleDCBureau,BitmapDessin.ClientOrigin.X,BitmapDessin.ClientOrigin.Y,SrcCopy);//recopie l'image du desktop vers ImageBureau
ReleaseDC(GetDesktopWindow,HandleDCBureau);
Clipboard.Assign(ImageBureau);
end;

Je vais maintenant chercher le fonctionnement de tout cela car pour moi, tout ces trucs sont nouveaux !

@+

[Bejaia-In]

Toute image graphique, y compris le contenu d'un contrôle image, peut être copiée dans le presse-papiers. Une fois placée dans le presse-papiers, l'image est disponible pour toutes les applications.

Pour copier une image dans le presse-papiers, affectez l'image à l'objet Clipboard en utilisant la méthode Assign.

Le code suivant montre comment copier dans le presse-papiers l'image d'un contrôle image nommé Image en réponse au choix d'un élément de menu Edition|Copier :

Code :

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

1
2
3
4
procedure TForm1.Copy1Click(Sender: TObject);
begin
  Clipboard.Assign(Image.Picture)
end.

[ero-sennin]

Merci pour ta réponse, ca je sais le faire!

Je problème posé, c'est que sur mon TImage de base, je venais créer de nouveau TImage... donc, si je veux avoir une avoir un ScreenShot de mon Timage de base, contenant aussi les Timage créés par la suite, je dois passer par là (car le canvas du TImage de Base restera toujours vierge, sauf lors de dessin dans certains cas ...).