Insert a photo

[Natter]

Hi, all !

There is an object of type TXImage. I need to insert a photo from the Clipboard into it. How could I possibly do that ?

[cnavarro]

Assign data lCanPaste := .T., and press button right over control TXImage

Code: Select all  Expand view  RUN

   @ 300, 300 XIMAGE oImage SIZE 300, 300 ;
      OF oWnd SOURCE "ejemplo.png" NOBORDER

   oImage:lCanPaste := .T.

 

[Natter]

Thank you for your help !

Can I save an image from TXImage to a variable ?

[cnavarro]

I do not understand well
Please, explain better

[Natter]

The TXImage class has a Save method that allows you to save the image only to a file. I need to save the image to a variable

[nageswaragunupudi]

hBitmap := oImage:GetHBitmap()

[Natter]

the GetHBitmap() function will return the handle of the picture.
I need the text of picture

[nageswaragunupudi]

text of picture?

[Natter]

I need to save the picture to BLOB. I can do this
buf=memoread ("my.jpg")
blobdirectput(0, buf)

But is it possible to do so ?
blobdirectput(0, image:GetHBitmap() )

[nageswaragunupudi]

BmpToStr( oImage:GetHBitmap() )

[Mulyadi]

Mr Nages,

Can you post here sample how to handle the Paste Image..?

Thanks.

[nageswaragunupudi]

Please set

Code: Select all  Expand view  RUN

oImage:lCanPaste := .t.
 

if you want the user to paste images into the XImage control.

Then the user can
1. Copy an image from any source
2. Select the ximage by clicking on it
3) (a) Press Ctrl-V
OR
(b) Right-click on ximage and select "Paste" option from the context menu



If you want to paste thorugh program, you can use oImage:Paste() even if oImage:lCanPaste is not set to .t.

[Mulyadi]

Thanks Mr Nages.
Best Regard..