[Harbour-users] ActiveX

[harbour-users at harbour-project.org]

Thanks Massimo , I will a try  this sample

Bruno

2009/2/1 <harbour-users at harbour-project.org>

> 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 <harbour-users at harbour-project.org>
>
> > Anybody knows if exists in harbour
> > any kind of activex support ?
> >
> >
> > Bruno
> > _______________________________________________
> > Harbour-users mailing list
> > Harbour-users at harbour-project.org
> > 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
> Harbour-users at harbour-project.org
> http://lists.harbour-project.org/mailman/listinfo/harbour-users
>