_CLIPTEXT = SPACE(0)
thisform.simplechart1.editcopy
DO decl
LOCAL hclipbmp, lctargetfile
cpathexe = SYS(2003)
lctargetfile = ALLTRIM(cpathexe)+"\temp\clipboard.bmp"
openc = openclipboard(0)
hclipbmp = getclipboarddata(2)
closec = closeclipboard()
a = getobjecttype(hclipbmp)
IF hclipbmp=0 .OR. getobjecttype(hclipbmp)<>7
= MESSAGEBOX("No se encontro imagen bitmap en el Portapapeles.", 64, "Clipboard to BMP")
RETURN .F.
ENDIF
= bitmap2file(hclipbmp, lctargetfile)
= deleteobject(hclipbmp)
CREATE CURSOR GRAFICO (cruta C (250))
APPEND BLANK
REPLACE grafico.cruta WITH lctargetfile
application.visible = .T.
REPORT FORM &_path_rep\tu_reporte PREVIEW
application.visible = .F.
USE IN grafico
RETURN
*/-----------------------------------------------------------------------------------------------------------
PROCEDURE decl
DECLARE INTEGER GetActiveWindow IN user32
DECLARE INTEGER GetClipboardData IN user32 INTEGER
DECLARE INTEGER OpenClipboard IN user32 INTEGER
DECLARE INTEGER CloseClipboard IN user32
DECLARE INTEGER DeleteObject IN gdi32 INTEGER
DECLARE INTEGER GetWindowDC IN user32 INTEGER
DECLARE INTEGER ReleaseDC IN user32 INTEGER, INTEGER
DECLARE INTEGER CreateCompatibleDC IN gdi32 INTEGER
DECLARE INTEGER DeleteDC IN gdi32 INTEGER
DECLARE INTEGER GlobalAlloc IN kernel32 INTEGER, INTEGER
DECLARE INTEGER GlobalFree IN kernel32 INTEGER
DECLARE INTEGER GetObject IN gdi32 AS GetObjectA INTEGER, INTEGER, STRING @
DECLARE INTEGER GetObjectType IN gdi32 INTEGER
DECLARE RtlZeroMemory IN kernel32 AS ZeroMemory INTEGER, INTEGER
DECLARE INTEGER GetDIBits IN gdi32 INTEGER, INTEGER, INTEGER, INTEGER, INTEGER, STRING @, INTEGER
DECLARE INTEGER CreateFile IN kernel32 STRING, INTEGER, INTEGER, INTEGER, INTEGER, INTEGER, INTEGER
DECLARE INTEGER CloseHandle IN kernel32 INTEGER
DECLARE INTEGER SetFileTime IN kernel32;
INTEGER hFile,;
STRING lpCreationTime,;
STRING lpLastAccessTime,;
STRING lpLastWriteTime
DECLARE INTEGER GetFileAttributesEx IN kernel32;
STRING lpFileName,;
INTEGER fInfoLevelId,;
STRING @ lpFileInformation
DECLARE INTEGER LocalFileTimeToFileTime IN kernel32;
STRING LOCALFILETIME,;
STRING @ FILETIME
DECLARE INTEGER FileTimeToSystemTime IN kernel32;
STRING FILETIME,;
STRING @ SYSTEMTIME
DECLARE INTEGER SystemTimeToFileTime IN kernel32;
STRING lpSYSTEMTIME,;
STRING @ FILETIME
DECLARE INTEGER _lopen IN kernel32;
STRING lpFileName, INTEGER iReadWrite
DECLARE INTEGER _lclose IN kernel32 INTEGER hFile
ENDPROC
