[Solved] Extract Image from TImage
lazarus / 39-Graphics

----------------------------------------------------------------------
Edson · 2014-05-10 18:37

Hi.

I was searching with not success. I hope someone can help me.

What I need is to copy some part of a Image (loaded into a TImage) to
the Clipboard.

I have the coordinates (x1,y1,x2,y2) of the section that I want to
extract from the TImage.

Thanks.

----------------------------------------------------------------------
typo · 2014-05-10 19:25

http://forum.lazarus.freepascal.org/index.php?topic=5979.0

----------------------------------------------------------------------
taazz · 2014-05-10 19:32

The only way to do that is to create a new Tbitmap copy the data from
the Timage and then copy that bitmap to the clipboard. eg (Pseudo
code)
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i var  vBmp
:TBitmap;begin   vbmp := TBitmap.create;  vBmp.SetSize(x2-x1,y2-y1); 
vBmp.Canvas.CopyRect(Rect(0,0,vbmp.Width,vBmp.Height),
TRasterImage(Image1.Picture.Graphic).Canvas,                     
 Rect(x1,y1,x2,y2));   Clipboard.Assign(vBmp);  vbmp.free;end; That
should get you started.

----------------------------------------------------------------------
Edson · 2014-05-11 00:45

Thank Guys, for the answer. I finally did it works.

@Taazz, the Pseudo code works perfect . Now I need some time to
understand it.