Insertar un Metafile en una ventana
Posted: Wed Feb 21, 2007 1:36 pm
Hola,
Estoy intentando insertar una fichero EMF en una ventana, en un objeto Metafile. Se me ocurre esta manera pero no consigo...
Alguien me echa una mano ?
Gracias.
Estoy intentando insertar una fichero EMF en una ventana, en un objeto Metafile. Se me ocurre esta manera pero no consigo...
Code: Select all
*------------------------------
STATIC FUNCTION InsEMF( oMeta )
*------------------------------
LOCAL cFile := cGetFile( "*.emf" )
LOCAL hMeta
IF !File( cFile )
retu nil
ENDIF
SaveDC( oMeta:hDC )
hMeta := GetEnhMetaFile( cFile )
PlayEnhMetafile( oMeta:hDC, hMeta,, .t. )
DeleteEnhMetafile( hMeta )
RestoreDC( oMeta:hDC )
oMeta:Refresh()
RETU NIL
Gracias.