FiveTech Software tech support forums

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

... #include "HbApi.h" #include "ClipApi.h" #include <windows.h> HB_FUNC( WMFTOEMF ) // ( cWmf, cEmf ) { HMETAFILE hWMF = GetMetaFile( hb_parc( 1 ) ); UINT nSize = GetMetaFileBitsEx( hWMF, 0, NULL ); LPVOID lpvData = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY, nSize ...

... GethWnd32() GetInstance() GetIP() GetKeyStat() GetKeyToggle() GetLocal() GetMapMode() GetMDIChlP() GetMeaItem() GetMenuState() GetMetaBit() GetMetaFile() GetMItemId() GetModuleFileName() GetNextInZip() GetNumTask() GetOrdNames() GetParam() GetParent() GetPeerName() GetPixel() Getport() GetPrinter() ...

... oDevice:cDocument ) do case case nOption == 1 // All for nFor := 1 to Len( aFiles ) #ifdef __CLIPPER__ StartPage( oDevice:hDC ) hMeta := GetMetaFile( aFiles[ nFor ] ) PlayMetaFile( oDevice:hDC, hMeta ) DeleteMetafile( hMeta ) EndPage( oDevice:hDC ) #else StartPage( oDevice:hDC ) hMeta ...

... oDevice:cDocument ) DO case case nOption == 1 // All FOR nFor := 1 TO len(aFiles) #ifdef __CLIPPER__ StartPage(oDevice:hDC) hMeta := GetMetaFile(aFiles[nFor]) PlayMetaFile( oDevice:hDC, hMeta ) DeleteMetafile(hMeta) EndPage(oDevice:hDC) #else StartPage(oDevice:hDC) hMeta := GetEnhMetaFile(aFiles[nFor]) ...

... oDevice:cDocument ) DO case case nOption == 1 // All FOR nFor := 1 TO len(aFiles) #ifdef __CLIPPER__ StartPage(oDevice:hDC) hMeta := GetMetaFile(aFiles[nFor]) PlayMetaFile( oDevice:hDC, hMeta ) DeleteMetafile(hMeta) EndPage(oDevice:hDC) #else StartPage(oDevice:hDC) hMeta := GetEnhMetaFile(aFiles[nFor]) ...

... for your suport... Folowing your instructions, i add the method SetMetaFile() on TClipBoard class... By suposition, i created another method, GetMetaFile(): method GetMetaFile() local hMetaFile := 0 if ::Open() hMetaFile = GetClpData( CF_ENHMETAFILE ) ::Close() ...