Page 1 of 1

Insertar un Metafile en una ventana

Posted: Wed Feb 21, 2007 1:36 pm
by 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

*------------------------------
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 ? :wink:


Gracias.