driessen wrote:Hello,
Is there anyone who found a solution for the problem I mentionel at the beginning of this topic ?
Antonio ?
Thanks a lot in advance.
I'm using xHarbour Builder. Might that be the cause of the problem ?
norberto wrote:HI, im using xharbour cvs and bcc 582, and the preview still alive when i quit the application.
StopUntil( { || ::lExit } )
If I can be of any help, please ask.
#include 'fivewin.ch'
function main()
local obj
msginfo( 'Start', 'ExcelObj' )
obj := ExcelObj()
msginfo( obj:ClassName )
return (0)
RPrevUserBtns( { |oPreview, oBar| addExportBtns( oPreview, oBar, Self ) } )
...
*--------------------------------------------------------------------------------------
function AddExportBtns( oPreview, oBar, oReport )
Local cName := GetTempDir() + ;
AllTrim( StrTran( StrTran( oPreview:oDevice:cDocument, "/", "-" ), " ", "_" ) )
DEFINE BUTTON OF oBar ;
RESOURCE "excel" ;
TOOLTIP "Export report to Excel" ;
ACTION ( cName := alltrim( cName ) + ".xls", oReport:SaveAs( "EXCEL" ) )
DEFINE BUTTON OF oBar ;
RESOURCE "pdf" ;
TOOLTIP "Save as PDF" ;
ACTION ( cName := alltrim( cName ) + ".pdf", ;
BuildPdf( oPreview:oDevice:aMeta, cName, .f., .t. ) )
RETURN NIL
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 43 guests