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
