Thanks Massimo , I will a try this sample Bruno
2009/2/1 <[email protected]> > In a contrib you found gtwvg who have a class compatible with xbase++ > syntax > for activex i suggest see and > compile: C:\harbour\contrib\gtwvg\tests\demowvg.prg > > > > 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. > > > 2009/1/31 <[email protected]> > > > Anybody knows if exists in harbour > > any kind of activex support ? > > > > > > Bruno > > _______________________________________________ > > Harbour-users mailing list > > [email protected] > > http://lists.harbour-project.org/mailman/listinfo/harbour-users > > > > > > -- > Massimo Belgrano > > Albo Nazionale Informatici Professionisti 2620 > Socio 2843 Associazione Informatici prof. > > Analisi e sviluppo software per Lan e Web > Consulenza informatica - Formazione > Delta Informatica S.r.l. http://www.deltain.it > Via Torelli,31 - 28100 Novara - Tel: 0321/30281 > _______________________________________________ > Harbour-users mailing list > [email protected] > http://lists.harbour-project.org/mailman/listinfo/harbour-users > _______________________________________________ Harbour-users mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour-users
