Insertar un Metafile en una ventana

[Carles]

Hola,

Estoy intentando insertar una fichero EMF en una ventana, en un objeto Metafile. Se me ocurre esta manera pero no consigo...

Code: Select all  Expand view

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

Alguien me echa una mano ?


Gracias.