FiveTech Software tech support forums

... is pressed, these steps are executed: Best regards, Otto    oDevice := DEVICE   aFiles  := oDevice:aMeta   hMeta   := oMeta1:hMeta    cUniqueID := cUniqueID()       CursorWait()       ...

... In the command, the image can be (a) file name, (b) resource name, (c) blob, (d) hBitmap, (e) hMeta, (f) hIcon, (g) pImage, (k) Symbol, (l) FW Shape, (m) web-address of any image or (n) image info read by FW_ReadImage. Image format can be bmp, ...

... The function returns an array with relevant information about the image data. The first element can be GDI+ pImage (if opted), hBitmap, hIcon, hMeta, Segoe Symbol. It is desirable (though not essential) to send the entire array as it is to FW_DrawImage( hDC, aBmpInfo, ... )

... aImageInfo oWnd can be any window, dialog or control. Releasing Image: PalBmpFree( aImageInfo ) aImageInfo format { pImage/hBitmap/hIcon/hCursor/hMeta, hPalette, nWidth, nHeight, lHasAlpha, cSource, lResource ) uSource: Can be (a) any file on disk (b) internet address of an image, (c) Resource ...

Hola Leandro como dice el Maestro Antonio Linares Modifica la clase rpreview METHOD PrintPage() CLASS TPreview local hMeta := ::oMeta1:hMeta local oDlg, oRad, oPageIni, oPageEnd local nOption := 1, nFirst := 1, nLast := Len( ::oDevice:aMeta ) // DEVICE local oThis := Self local lCancel ...

... now accepts windows RECT structue as character buffer, in addition to array or t,l,b,r coordinates. * New function in TMetaFil.prg GETEMFSIZE( hMeta/cMetaFile, [ hDC/lScreen/NIL ], [ @nWidth ], [ @nHeight ] ) --> { nWidth, nHeight } If second parameter is omitted or NIL, width and height ...

Armando,

En la clase Rpreview, busca el metodo ::printprv(). Alla es donde se borra los metafiles ->DeleteEnhMetafile( hMeta ). Puedes tratarlo como quiera, p.e. hacer una copia a una carpeta, enviarlos, ... y borrarlos luego claro

Ciao.
C.

... METHOD PrintPage() CLASS TPreview local hOldRes := GetResources() local hMeta := ::oMeta1:hMeta local oDlg, oRad, oPageIni, oPageFin local nOption := 1, nFirst := 1, nLast := Len( ::oDevice:aMeta ) // DEVICE local oThis ...

... //----------------------------------------------------------------------------// static function PrintPage() local hOldRes := GetResources() local hMeta := oMeta1:hMeta local oDlg, oRad, oPageIni, oPageFin local nOption := 1 ,; nFirst := 1 ,; nLast := len(DEVICE:aMeta) if nLast == 1 PrintPrv(nil, ...

I also try in Tmetafile class

and I insert it on METHOD Paint() after

if ::hMeta != 0
::shadow()
::smargins()

SetMapmode(.......

... //----------------------------------------------------------------------------// static function PrintPage() local hOldRes := GetResources() local hMeta := oMeta1:hMeta local oDlg, oRad, oPageIni, oPageFin local nOption := 1 ,; nFirst := 1 ,; nLast := len(DEVICE:aMeta) if nLast == 1 PrintPrv(nil, ...

... METHOD New( cDocument, lUser, lMeta, cModel, lModal, lSelection, cFile ) CONSTRUCTOR METHOD ImportWMF( cFile, lPlaceable ) CLASS TPrinter local hMeta, hOld, hWMF local aData := PrnGetSize( ::hDC ) local aInfo := Array( 5 ) ::cFile := cFile

... METHOD New( cDocument, lUser, lMeta, cModel, lModal, lSelection, cFile ) CONSTRUCTOR METHOD ImportWMF( cFile, lPlaceable ) CLASS TPrinter local hMeta, hOld, hWMF local aData := PrnGetSize( ::hDC ) local aInfo := Array( 5 ) ::cFile := cFile and preview.prg rprinter.prg cTitle := ::oDevice:cFile ...

... file is very complicated task thats why we should avoid that way. If you review Class TMetaFile Method Paint() you will see a call to PlayEnhMetaFile( ::hDC, ::hMeta, ::hWnd, .f. ). You could paint the bitmap on the ::hDC just after that function call: PlayEnhMetaFile( ::hDC, ::hMeta, ::hWnd, ...

... it seems that Windows takes some time to close it, even if we force it to do so: ACTIVATE WINDOW sWnd MAXIMIZED ; VALID ( sWndOpen := .f., DeleteEnhMetaFile( oMeta:hMeta ), .t.)