Page 1 of 1
last source of rpreview
Posted: Mon Mar 01, 2010 12:12 am
by 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
Re: last source of rpreview
Posted: Mon Mar 01, 2010 5:06 pm
by Silvio
DO u SAW MINE MODIFIES i SENT YOU ?
Re: last source of rpreview
Posted: Tue Mar 02, 2010 4:13 pm
by 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
Re: last source of rpreview
Posted: Tue Mar 02, 2010 6:06 pm
by 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)
Re: last source of rpreview
Posted: Mon Oct 04, 2010 2:43 pm
by byte-one
Hello Marcelo, the temporarely files from "create_minipage" in the temp-folder are not erased or released!
Re: last source of rpreview
Posted: Mon Oct 04, 2010 3:13 pm
by Marcelo Via Giglio
Günther,
if I remember, the mini-pages are created in memory not in disk
regards
Marcelo
Re: last source of rpreview
Posted: Mon Oct 04, 2010 3:54 pm
by 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?
Re: last source of rpreview
Posted: Tue Oct 05, 2010 2:37 am
by 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
//------------------------------------------------------------------------------
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
byte-one wrote: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?
Re: last source of rpreview
Posted: Wed Oct 06, 2010 11:56 am
by Silvio
Marcelo,
I sent you also mine features for create multipages( 2x4x6x8x10) as winword preview , have you insert it on new release ?
Re: last source of rpreview
Posted: Thu Oct 07, 2010 2:31 am
by Marcelo Via Giglio
Sorry Silvio I didn't it
Re: last source of rpreview
Posted: Sun Oct 10, 2010 8:35 am
by Silvio.Balcony
I have started with a new preview with ribbonbar based on this code
i will publish here when ready
Re: last source of rpreview
Posted: Mon Oct 11, 2010 6:15 pm
by Silvio
Silvio.Balcony wrote: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
Re: last source of rpreview
Posted: Fri Dec 31, 2010 7:23 pm
by mgsoft
Hi,
Any news?
Thanks
