Put Image into clipboard

[gilsonalencar]

I have been trying to save a image (bitmap) to the clipboard on lazarus. I used SaveToClipboardFormat but i didn't had success. Please, help me.

[antonio]

Clipboard.Assign(image.picture.bitmap);

[gilsonalencar]

Thaks for your answer.

[tReby]

Clipboard.Assign(image.picture.bitmap);

This doesn't work in lazarus 0.9.26

Please help me...

[Marc]

This does work, but you didn't give us all details. Usually we cannot guess what might be wrong if you give a single line of code.
IIRC your bugrep about this (and the answer I gave there) you load an jpeg image into a TImage. then the format of the image is TJPEGImage and not a TBitmap.
When you "ask" a Image.Picure.Bitmap, it will convert to a TBitmap, loosing all data (this is the same for delphi).
So either store a bitmap in TImage or use TImage.Picture.Graphic (which doesn't convert)

[tReby]

so wats the possible code for this.. please give me a detail working example.. thanks

[Mike.Cornflake]

The following code should work for you...

As noted earlier, if you have a jpeg in the TImage then two things could be going wrong.  You might not be converting the jpeg to the a bitmap correctly.  The other thing is on Microsoft Windows itself (unsure about other os's) - I just spent 6 hours trying to get a jpeg on the clipboard.  Stepped through the Lazarus code and it all seems to work, but neither Word nor Paint recognise anything on the clipboard.  My working theory is that they don't recognise the 'image/jpg' mime type.

The following code works for me on XP with various different image types in the TImage...

Code: [Select]

var
  oBmp: TBitmap;

begin
    oBmp := TBitmap.Create;
    try
      oBmp.Assign(imgImage.Picture.Graphic);
      Clipboard.Assign(oBmp);
    finally
      oBmp.Free;
    end;
end;


[Michael Diegelmann]

When trying to migrate a graphics project from Delphi 7 to Lazarus I have encountered a problem with copying my graphic to the clipboard as a metafile. Here is my Delphi code:

procedure TFormMain.MenuItemCopyGraphicOnClick(Sender:TObject);
var ScreenDpi:Integer; Metafile:TMetafile; MetafileCanvas:TCanvas;
begin
 ScreenDpi:=Screen.PixelsPerInch;
 Metafile:=TMetafile.Create;
 with Metafile do
 begin
  Width:=GraphWidth; Height:=GraphHeight;    // pixel units
  MMWidth:=GraphWidth*2540 div ScreenDpi;  // 0.01 mm units
  MMHeight:=GraphHeight*2540 div ScreenDpi; // 0.01 mm units
 end;
 MetafileCanvas:=TMetafileCanvas.Create(Metafile,0);
 DrawGraph(MetafileCanvas); // draws same graphic previously drawn to the Image component
 MetafileCanvas.Free;
 with Clipboard do begin Open; Assign(Metafile); Assign(Image.Picture.Bitmap); Close; end;
 Metafile.Free;
end;

Copying the bitmap to the clipboard works fine but with Lazarus lacking the TMetafile and the TMetafileCanvas classes there seems to be no way to also copy the graphic as an (easily scalable) MetaGraphic to the clipboard. Any suggestion what I can do about this problem? (By the way, I have started using Lazarus just three days ago. So please do not expect me to be a pro!)

[wp]

There is a simple meta file implementation in the TAChart package. It is not fully complete, but allows at least to copy the result of drawing actions to the clipboard. I checked with powerpoint that the meta file pasted is operational:

Code: Text  [Select][+][-]

1. uses
2.   TADrawerWMF;
3.  
4. { TForm1 }
5.  
6. procedure TForm1.PaintBox1Paint(Sender: TObject);
7. begin
8.   DrawIt(Paintbox1.Canvas, Paintbox1.BoundsRect);
9. end;
10.  
11. procedure TForm1.DrawIt(ACanvas: TCanvas; ARect: TRect);
12. begin
13.   ACanvas.Pen.Color := clRed;
14.   ACanvas.Line(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);
15.   ACanvas.textOut(ARect.Left, (ARect.Top + ARect.Bottom) div 2, 'Hallo');
16. end;
17.  
18. procedure TForm1.BitBtn1Click(Sender:TObject);
19. var
20.   ScreenDpi:Integer;
21.   Metafile:TMetafile;
22.   MetafileCanvas:TCanvas;
23. begin
24.   ScreenDpi:=Screen.PixelsPerInch;
25.   Metafile:=TMetafile.Create;
26.   with Metafile do
27.   begin
28.     Width:=Paintbox1.Width;
29.     Height:=Paintbox1.Height;    // pixel units
30.     MMWidth:=Paintbox1.Width*2540 div ScreenDpi;  // 0.01 mm units
31.     MMHeight:=Paintbox1.Height*2540 div ScreenDpi; // 0.01 mm units
32.   end;
33.   MetafileCanvas:=TMetafileCanvas.Create(Metafile,0);
34.   DrawIt(MetafileCanvas, Rect(0, 0, Paintbox1.Width, Paintbox1.Height));
35.   MetafileCanvas.Free;
36.   Metafile.CopyToClipboard;
37.   Metafile.Free;
38. end;
39.  

[eny]

By the way, I have started using Lazarus just three days ago. So please do not expect me to be a pro!

Try starting a new thread.
Your answer does not help gilsonalencar (the TS).

[wp]

Your answer does not help gilsonalencar (the TS).

But Michael Diegelmann. I see nothing wrong when he highjacks a thread on images in clipboard for his question regarding metafiles.

[eny]

But Michael Diegelmann. I see nothing wrong when he highjacks a thread on images in clipboard for his question regarding metafiles.

Neither did Michael Diegelmann that's why I'm helping you as well by suggesting to start a new thread.