FiveTech Software tech support forums

... Description**: Retrieves Unicode text from the clipboard.
- **Returns**: The retrieved Unicode text, converted to UTF-8 if necessary.

17. **`GetMetaFile()`**:
- **Description**: Retrieves a metafile from the clipboard.
- **Returns**: The handle to the metafile if successful, `0` otherwise.

18 ...

... Error: Unresolved external '_HB_FUN_DELETEENHMETAFILE' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|TMETAFIL
Error: Unresolved external '_HB_FUN_GETMETAFILE' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|TMETAFIL
Error: Unresolved external '_HB_FUN_GLOBALALLOC' referenced from P:\32BITS\FWH\LIB\FIVEHX ...

... include "Windows.h"
#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 ...

... 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 ...

... hDC, 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 ...

... 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 ...

... for your suport...

Folowing your instructions, i add the method SetMetaFile() on TClipBoard class...

By suposition, i created another method, GetMetaFile():



method GetMetaFile&#40;&#41;

local hMetaFile &#58;= 0

if &#58;&#58;Open&#40;&#41;
hMetaFile = GetClpData&#40; CF_ENHMETAFILE &#41 ...