Discussion :

[Amenofis]

Salut à tous,

voilà, j'ai un assemblage de TImage sur un TPanel que je voudrais pouvoir exporter vers le presse papier ou mieux vers un fichier dédié...

quelqu'un pourrait il m'indiquer un containeur pour cet assemblage qui disposerait de cette faculté ou bien une façon de faire ?

Je procède actuellement par copie d'écran et découpage de la zone mais c'est pas le top

merci de vos réponses

@+

[Pierre Castelain]

Tu devrais essayer un truc dans ce goût là:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
procedure CopyContainedImagesToClipBoard(Container: TWinControl);
var
  i: Integer;
  bmp: TBitmap;
  bmpFormat: word;
  data: cardinal;
  palette: HPalette;
begin
  bmp:= TBitmap.Create;
  bmp.Width:= Container.Width;
  bmp.Height:= Container.Height;
  try
    for i:=0 to Container.ControlCount - 1 do
      if Container.Controls[i] is TImage then
        with TImage(Container.Controls[i]) do
          if Assigned(Picture.Bitmap) then
            bmp.Canvas.Draw(Left, Top, Picture.Bitmap);
    bmp.SaveToClipboardFormat(bmpFormat, data, palette);
    ClipBoard.SetAsHandle(bmpFormat, data);
  finally
    bmp.Free;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyContainedImagesToClipBoard(GroupBox1);
end;

La méthode CopyContainedImagesToClipBoard (je n'ai pas trouvé de nom plus long...) énumère tous les composants TImage placés dans le conteneur (TPanel, TGroupBox, etc) et à chaque fois qu'elle en trouve un copie le dessin dans une bitmap temporaire en conservant les coordonnées originales. Le bitmap temporaire est ensuite copié dans le presse-papier, puis libéré.
Je pense qu'en utilisant ce genre de code tu devrais arriver à tes fins.

[Amenofis]

Salut,

Merci pour cette solution qui fonctionne à merveille...

J'ai juste eu à déclarer data et palette comme THandle

Merci encore pour la qualité et la rapidité de cette réponse


@ +

[Pierre Castelain]

J'ai juste eu à déclarer data et palette comme THandle

Oui, la déclaration de la méthode SaveToClipboardFormat dépend des versions de Delphi.