FiveTech Software tech support forums

... /*-----------------------------------------------------------------------------------------------*/ METHOD Activate() ::oChart := TOleAuto():New( ActXPdisp( ::oControl:hActiveX ) ) RETURN NIL Estare haciendo algo mal o esta forma de llamado ya es incompatible con este harbour. Alguien tiene alguna ...

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

... you have me including the following files when building with xHarbour ( .com ): xHb2HbFunc.prg contains the following 2 functions: FUNCTION ActXPDispPtr( cObjActX ) RETURN ActXPDisp( cObjActX ) function FWOpenPngFile() return 0 harbor.prg 9/4/2012 xhb.obj 6/10/2009 mem32.lib 9/29/2011 send32.lib ...

... ) ::Create() oWnd:AddControl( Self ) ? 'paso2' ::hActiveX = CreateActiveX( ::hWnd, cProgID, Self ) ? 'paso3' ::oOleAuto = TOleAuto():New( ActXPdisp( ::hActiveX ) ) Saludos!

Antonio

This is how it is defined with xharbour

::oCalexStdDlgs:Calendar( TOleAuto():New( ActXPdisp( ::oCalex:hActiveX ) ) )

it was replaced for harbour with

::oCalexStdDlgs:Calendar = TOleAuto():New( ::oCalex:oOleAuto:__hObj )

all the above suggestions do not work

Richard

... = ( .t. )            :VisualTheme = ( xtpCalendarThemeOffice2007 )            :AttachToCalendar( TOleAuto():New( ActXPDisp( ::oCalex:hActiveX ) ) )        End         ::oPanelExplorer:oClient := ::oDtPick    CATCH oErr        END     RETURN nil//---------------------------------------------------//METHOD ...

Olá Antonio, Prueba a cambiar: ... := TOleAuto():New( ActXPdisp( oAct:hActiveX ) ) por esto: ... := TOleAuto():New( oAct:oOleAuto:__hObj ) Sim, isto funcionou :D Veja no exemplo abaixo que tive comentar algumas linhas "*" para poder compilar ...

Rossine,

Prueba a cambiar:

... := TOleAuto():New( ActXPdisp( oAct:hActiveX ) )

por esto:

... := TOleAuto():New( oAct:oOleAuto:__hObj )

Olá Antonio, Es esta la línea 80 en donde se produce el GPF ? oStatusBar := TOleAuto():New( ActXPdisp( oAct:hActiveX ) ) Funcionaba este mismo código bien, anteriormente ? Sim antonio, funcionava com o harbour mais antigo. Tente rodar o exemplo de daniel que está neste ...

Rossine,

Es esta la línea 80 en donde se produce el GPF ?

oStatusBar := TOleAuto():New( ActXPdisp( oAct:hActiveX ) )

Funcionaba este mismo código bien, anteriormente ?

... "VisualTheme", .T. )              // ToolTipContext - Richard             oToolTipContext := TOleAuto():New( ActXPdisp( oAct:hActiveX ) )   oToolTipContext := oToolTipContext:ToolTipContext()   oToolTipContext:Style = 5  && xtpToolTipOffice2007  ...

Jeff,

Try it this way:

oDate:AttachToCalendar( ActXPdisp( oAct:hActiveX ) )

or

oDate:AttachToCalendar( TOleAuto():New( ActXPdisp( oAct:hActiveX ) ) )

... it. METHOD Do( cMethodName, uParam1, uParam2, uParam3, uParam4, uParam5 ) have onlly 5 parans and i need 8. Im trying this form. Ret = ActXInvoke( ActXPdisp( oAct:hActiveX ), "RED", aParams[1], aParams[2], aParams[3], aParams[4], aParams[5], aParams[6], aParams[7], 0) more return nil ...

Colegas como comenta Ari:: oStatusBar := TOleAuto():New( ActXPdisp( oAct:hActiveX ) ) oStatusBar:StatusBar:Visible=.T. oStatusBar:StatusBar:AddPane( 0 ) oStatusBar:StatusBar:IdleText = "xxx" oStatusBar:StatusBar:AddPane( 59137 ) oStatusBar:StatusBar:AddPane( ...

atusBar := TOleAuto():New( ActXPdisp( oAct:hActiveX ) ) oStatusBar:StatusBar:Visible=.T. oStatusBar:StatusBar:AddPane( 0 ) oStatusBar:StatusBar:IdleText = "xxx" Demais parametros para ficar similar a msg nativa. http://www.personal.com.br/img/b1a.jpg ...