Discussion :

[lefju cabro]

Bonjour,

Je ne pense pas avoir trouvé de message correspondant à ma demande, donc voici ma question:
Je souhaite faire une impression d'écran d'un contrôle situé sur une fiche. Par exemple, j'ai un panel (alignement alClient) sur une forme et je désire uniquement copier ce panel dans le presse papier lors d'un clique sur un bouton.

Je ne vois pas comment je peux faire car la position de la souris n'est pas utilisable et le left/top de mon contrôle non plus car ils sont à 0.

Par avance, merci de me proposer une solution.

[ShaiLeTroll]

TWinControl.PaintTo dessine tu le controle dans un Canvas !
Cela peut déjà t'aider !
Si tu utilise le Canvas d'un TBitmap, tu peux le sauvegarder via SaveToClipboardFormat

l'aide de D6 ou celle de BSD2007 contiennent toutes les deux des exemples de SaveToClipboardFormat et ClipBoard.SetAsHandle

[lefju cabro]

Bonjour ShaiLetroll,

Merci pour ta réponse, j'ai testé quelque chose à partir de tes explications:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
bmp := TBitmap.Create ;
try
  bmp.width := panel.width ;
  bmp.height := panel.height ;
  panel.PaintTo(bmp.Canvas.handle, 0, 0);
  ClipBoard.Assign (bmp) ;
finally
  bmp.free ;
end;

En sortie, j'ai une image de la taille du TPanel mais vide.

De plus, mon problème de base a été mal expliqué: je souhaite faire une impression écran d'un composant (ici un TPanel) sur lequel d'autres composants (tbutton, timage...) ont été placés.
Et bien évidemment, je veux dans mon presse papier une image aux dimensions du TPanel avec tout ce qui est placé sur le TPanel.

Merci

[Caribensila]

Salut,

Dans ton cas (alignement alClient), tu peux aussi faire ça :

Code :

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

1
2
3
4
5
6
7
8
uses Clipbrd;
 
var     FormBmp : TBitmap;
begin
FormBmp := GetFormImage;
try
  Clipboard.Assign(FormBmp);
finally FormBmp.Free;  end;

Dans un cas plus général :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var     
FormBmp  : TBitmap;
PanelBmp : TBitmap;
begin
FormBmp  := GetFormImage;
PanelBmp := TBitmap.Create;
try
  PanelBmp.Width  := Panel1.Width; 
  PanelBmp.Height := Panel1.Height;
  PanelBmp.Canvas.CopyRec(PanelBmp.Canvas.ClipRect,FormBmp.Canvas,Panel1.BoundsRect);
  Clipboard.Assign(PanelBmp);
finally PanelBmp.Free; FormBmp.Free; end;

[lefju cabro]

Salut Caribensila,
Ta solution est parfaite, merci !
Bonne journée