Insertar un Metafile en una ventana

Insertar un Metafile en una ventana

Postby Carles » 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... :(

Code: Select all  Expand view  RUN
*------------------------------
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.
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
Skype -> https://join.skype.com/cnzQg3Kr1dnk
User avatar
Carles
 
Posts: 1141
Joined: Fri Feb 10, 2006 2:34 pm
Location: Barcelona

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 37 guests