[Harbour] Harbour and crystal report

[Pritpal Bedi]

Massimo

Try

Function Main()
   Local hThread := hb_threadStart( {|| MyCrystalViewer() } )

  do while .t.
     if inkey() == 27
       exit
     endif
  enddo
  
   hb_threadJoin( hThread )
 
   Return nil

Function MyCrystalViewer()
   LOCAL oCrystal := CREATEOBJECT( "CrystalRuntime.Application" )
   LOCAL oReport  := oCrystal:OpenReport( "PROVA.RPT" )
   LOCAL oDlg, oActvX

   oDlg := WvgDialog():New():Create( , ,  { 20,20 }, { 600,400 }, , .t. )
   
   oActvX:= WvgActiveXControl():New( oDlg:drawingArea )
   oActvX:CLSID := "CRViewer9.CRViewer"
   oActvX:create( , , {0,0}, oDlg:currentSize(), .t. )
   oActvX:ReportSource := oReport
   oActvX:Do( "ViewReport" )          // I do not know how it must behave
   oActvX:resize := {||  oActvX:setPosAndSize( {0,0}, oDlg:currentSize(),
.t. ) }

   do while .t.
      if inkey() == 27
         exit
      endif
   enddo

   oDlg:destroy()
   Return nil

It is direct on keyboard, please correct any mistakes in typing.

Regards
Pritpal Bedi


Massimo Belgrano-3 wrote:
> 
> any chance using gtwvg?
> 
>> #include "Fivewin.ch"
>>
>>
>> FUNCTION MAIN()
>>
>>   LOCAL oCrystal := CREATEOBJECT( "CrystalRuntime.Application" )
>>   LOCAL oReport  := oCrystal:OpenReport( "PROVA.RPT" )
>>
>>   LOCAL oWnd, oCRViewer
>>
>>   DEFINE WINDOW oWnd
>>
>>   oCRViewer = TActiveX():New( oWnd, "CRViewer9.CRViewer" )
>>
>>   oCRViewer:SetProp( "ReportSource", oReport )
>>   oCRViewer:Do( "ViewReport" )
>>
>>   oWnd:oClient = oCRViewer
>>
>>   ACTIVATE WINDOW oWnd;
>>            MAXIMIZED
>>
>>   RETURN NIL
> 

-- 
View this message in context: http://www.nabble.com/hbwin32.lib-tp13874002p20817801.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.