Clipboard Probleme ?Résolu

Question

Salut

j ai un Problème avec le Graphique de Clipboard
voila mon Code :
{$R *.dfm}

1- je copie un Graphique de Microsoft Paint dans Clipboard avec Ctrl+V

2- 
procedure TForm1.Button2Click(Sender: TObject);

begin
if Clipboard.HasFormat(CF_BITMAP) then

Image2.Picture.Assign(Clipboard);

end;

3- Le Problème est ici :
procedure TForm1.Button1Click(Sender: TObject);

begin


Image1.Canvas.StretchDraw(Rect(10,10,200,200), Image2.Picture.Bitmap);

end;

Resultat : Un Image Blanc !!!!!!
mais si je fais ça avec cette forme sa marche :
Image1.Picture.Assign(Image2.Picture);

s.v.p essaye ?

Cirec · Accepted Answer

Paint renvoi bien un format Bitmap  ... entres autres ...

il faut donc soit forcer le bon format ... soit s'adapter

{Ici on s'adapte au Format}
Procedure TForm2.Button2Click(Sender: 
TObject); 
Begin 
  If 
Clipboard.HasFormat(cf_Bitmap) Or 
ClipBoard.HasFormat(CF_METAFILEPICT) 
    Or ClipBoard.HasFormat(CF_ENHMETAFILE) Then 
      Image2.Picture.Assign(ClipBoard); 

End; 

{On utilise l'objet Graphic}
Procedure TForm2.Button1Click(Sender: TObject); 

Begin 

  Image1.Canvas.StretchDraw(Rect(10,10,200,200), 
Image2.Picture.Graphic); 
End; 

{Ici on force le bon format}
Procedure TForm2.Button2Click(Sender: 
TObject); 
Begin 
  If 
Clipboard.HasFormat(cf_Bitmap) Then 

    Image2.Picture.Bitmap.Assign(ClipBoard); 
End; 

{On utilise le l'objet Bitmap}
Procedure 
TForm2.Button1Click(Sender: TObject); 
Begin 
  Image1.Canvas.StretchDraw(Rect(10,10,200,200), 
Image2.Picture.Bitmap); 
End; 

 
@+
Cirec

<hr siz="" />

Cirec · Answer

salut,

ce code fonctionne très bien !!!! 
je viens de le tester sous D7

essaye peut être en fixant la taille du TImage

Image1.Width := 210;
Image1.Height := 210;
Image1.Canvas.StretchDraw(Rect(10,10,200,200), Image2.Picture.Bitmap);

 
@+
Cirec

<hr siz="" />

f0xi · Answer

if clipboard.HasFormat(clipbrd.CF_PICTURE) then
  begin
    image1.Picture.Assign(ClipBoard);
    image2.Picture.Bitmap.Assign(Image1.Picture.Bitmap);
  end;

image1.Picture.Bitmap.Width := 320;
image1.Picture.Bitmap.Height := 240;
image1.Picture.Bitmap.Canvas.StretchDraw(Rect(0,0,319,239), Image2.Picture.Bitmap);

<hr size="2" width="100%" />

programiest · Answer

Sa ne marche pas 
tu a déjà testée ?!

f0xi · Answer

oui et ça fonctionne trés bien...

ton problème doit venir d'ailleurs.

<hr size="2" width="100%" />

programiest · Answer

Quel Delphi Version ?
j ai D7
peut tu faire un Demo pour moi ;) (delphi project). merci

Cirec · Answer

les 3 codes fonctionnes parfaitement ...
fait un essais toi même avec rien d'autre que 2 TImage et deux TButton et ça devrait aussi marcher chez toi.

@+
Cirec

programiest · Answer

[ 		 les 3 codes fonctionnes parfaitement ] !!!
je suis sur que tu n' as pas essayée de copie un Graphique de MS Paint
MS Paint utilise un autre format ( wmf) 
tu as peut être essayée avec Bitmap en Clipboard
alors tu peut essayée de copie le Graphique en MS Paint ou bien de photoshop avec Ctrl+C

f0xi · Answer

WMF = Windows Meta File, supporté par Delphi et TImage.

non le probleme ne viens pas de la, le code est bon, est fonctionne avec la plupart des logiciel graphique même avec Word et Writer. mais pas avec Paint (j'avais tester avec Paint.Net, rien a voir avec MSPaint)

C'est juste que Paint, lors du copier coller ne renvois pas un Bitmap, ni même un JPEG, non plus un WMF... il renvois ... autre chose ... dans un format totalement grotesque et injurieux, on dirait presque du MSP (MicroSoft Paint) le format natif de Paint 1.0 et 2.0.

<hr size="2" width="100%" />

programiest · Answer

Salut
j l ai testée. maintenant sa marche très bien  :  )
merci beaucoup

Clipboard Probleme ?

10 réponses

Votre réponse

Discussions similaires