Discussion :

[yupyupxav]

Bonjour à tous,

Dans le cadre d'un projet que j'ai mis depuis trop longtemps de côté, je voudrais afficher une image, sélectionner une partie de celle-ci, puis recopier la sélection dans un fichier.

Pour ce faire, j'ai une fiche avec un TImageViewer qui a TSelection comme enfant.

En appuyant sur le bouton, comme me l'a suggéré SergioMaster il y a un bon bout de temps déjà, j'effectue ce code:

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm4.Button1Click(Sender: TObject);
var
 b: tbitmap;
begin
 b:=Selection1.MakeScreenshot;
 b.SaveToFile('d:\test.jpg');
 b.Free;
end;

Le résultat obtenu n'est pas bon, car mis à part le dessin de la TSelection, l'image qui devrait être copiée reste noire. J'ai essayé plusieurs formats de fichier.


Je pense que le contrôle TSelection n'est finalement que transparent, et que de ce fait, il ne m'enregistre pas l'image. Il y a il moyen de copier dans un Bitmap cette sélection de manière élégante?

Merci de vos infos.
Xav