error with Metafile

[Silvio]

why it let me show this message

"Could not find the enchaned metafile, please check your TEMP enviroment variable"

and the it make a gpf ???

Code: Select all  Expand view


function GenChild()

   local oWndChild, oBar, oBmp

   DEFINE WINDOW oWndChild OF oWnd MDICHILD COLOR "N/W"   VSCROLL HSCROLL

   DEFINE BUTTONBAR oBar 3D SIZE 25, 25 OF oWndChild

   DEFINE BUTTON OF oBar ACTION PutLabel( oBmp ) TOOLTIP "Label"
   DEFINE BUTTON OF oBar ACTION PutBitmap( oBmp ) TOOLTIP "Bitmap"

   DEFINE BUTTON OF oBar ACTION PreView( oBmp ) TOOLTIP "Preview"



   oBmp:=TEnhMetaFile():New( 20, 40, 535, 784, "TEST", oWndChild,;
               CLR_WHITE, CLR_BLACK )


   ACTIVATE WINDOW oWndChild

   

return nil


[Antonio Linares]

Silvio,

Because the metafile file is not found

Code: Select all  Expand view

      if file( ::cCaption )
         ::hMeta = GetEnhMetaFile( ::cCaption )
      elseif ! Empty( ::cCaption )
         Alert( "Could not find the enhanced Metafile," + CRLF + ;
                "please check your TEMP environment variable" )
      endif


[Silvio]

and How I must make to not show it ?

[Antonio Linares]

Use the filename of an existing metafile file

[Silvio]

and if I create an temp metafile How I must make it ?

[Antonio Linares]

Silvio,

Use CreateEnhMetaFile()

[Silvio]

I not found the parameters for it

[Antonio Linares]

http://msdn2.microsoft.com/en-us/library/ms534576.aspx