last source of rpreview

[Marcelo Via Giglio]

Hello,

I forgot to share the last source of preview with page orientation, here you can donwload it

http://www.box.net/shared/8lhxyymtga

regards

Marcelo

[Silvio]

DO u SAW MINE MODIFIES i SENT YOU ?

[Marcelo Via Giglio]

Silvio,

I saw some things, but I didn't nothing about, maybe I will take some time in the near future to see it with more detail, I'm sorry

regards

Marcelo

[Silvio]

Application
===========
Path and name: C:\test_informe\test.Exe (32 bits)
Size: 2,060,800 bytes
Time from start: 0 hours 0 mins 6 secs
Error occurred at: 04/03/2010, 19:06:01
Error description: Error BASE/1082 Argument error: -
Args:
[ 1] = U
[ 2] = N 1

Stack Calls
===========
Called from: rpreview.prg => TPREVIEW:SETFACTOR(1530)
Called from: rpreview.prg => TPREVIEW:BUILDWINDOW(579)
Called from: rpreview.prg => TPREVIEW:NEW(132)
Called from: rpreview.prg => RPREVIEW(1675)
Called from: .\source\classes\REPORT.PRG => (b)TREPORT:NEW(180)
Called from: .\source\classes\REPORT.PRG => TREPORT:ACTIVATE(873)
Called from: test.prg => GEN_REPORT(995)
Called from: test.prg => (b)NEW_REPORT(855)
Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176)
Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1427)
Called from: .\source\classes\WINDOW.PRG => _FWH(3347)
Called from: => SENDMESSAGE(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND(407)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(928)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: test.prg => NEW_REPORT(906)
Called from: test.prg => (b)OPEN_TABLE(162)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(445)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(631)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONDOWN(576)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1469)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(1295)
Called from: .\source\classes\WINDOW.PRG => _FWH(3347)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(966)
Called from: VisorDBF.Prg => VISOR(71)

[byte-one]

Hello Marcelo, the temporarely files from "create_minipage" in the temp-folder are not erased or released!

[Marcelo Via Giglio]

Günther,

if I remember, the mini-pages are created in memory not in disk

regards

Marcelo

[byte-one]

Marcelo,
it seems not so! If I change in function create_minipage() closeenhmetafile(hEMF) to deleteenhmetafile(hEmf) the files are deleted at end of preview. (or getenhmetafile(cFile) not releases the handle from cFile??)
Have you a new version?

[Marcelo Via Giglio]

Günther,

the EMF are created by tprinter class, the preview only open it,

Create_minipage open the emf and copy it into bmp (in memory), the problem about erase the emf can be in other place

Code: Select all  Expand view

//------------------------------------------------------------------------------
FUNCTION Create_minipage( cEmf, nWidth, nHeight )
//------------------------------------------------------------------------------

   local hDC1 := GetDC( GetDesktopWindow() )
   local hDC := CreateCompatibleDC( hDC1 )
   local hBmp := CreateCompatibleBitmap( hDC1, nWidth, nHeight )
   local hOldBmp := SelectObject( hDC, hBmp )
   local hEMF := GetEnhMetaFile( cEmf )

   Rectangle( hDC, 0, 0, nHeight, nWidth )

   MyPlayEnhMetaFile( hDC, hEMF, 0, 0, nHeight, nWidth )

   CloseEnhMetafile( hEMF )

   SelectObject( hDC, hOldBmp )
   DeleteDC( hDC )

RETURN( hBmp )
 

and I am sorry I did't work more in the preview, but I will try to get more time to do others improves

saludos

Marcelo

Marcelo,
it seems not so! If I change in function create_minipage() closeenhmetafile(hEMF) to deleteenhmetafile(hEmf) the files are deleted at end of preview. (or getenhmetafile(cFile) not releases the handle from cFile??)
Have you a new version?

[Silvio]

Marcelo,
I sent you also mine features for create multipages( 2x4x6x8x10) as winword preview , have you insert it on new release ?

[Marcelo Via Giglio]

Sorry Silvio I didn't it

[Silvio.Balcony]

I have started with a new preview with ribbonbar based on this code

i will publish here when ready

[Silvio]

I have started with a new preview with ribbonbar based on this code

i will publish here when ready

Someone ask me If I..am you!!!
Can you change your username or post your photo ?
thanks

[mgsoft]

Hi,

Any news?

Thanks