topic-6991

Posts: 43

Joined: Thu Feb 15, 2007 07:45 PM

Activex, Bug ?
Posted: Mon May 14, 2007 06:10 PM

Ao alterar em duas Janelas com ALT + TAB me danifica a pantalha.

Pantalha com Problema :

Pantalha correta :

Código está assim :

DEFINE WINDOW oSistema:oWndMenu OF oTelaPrincipal MDICHILD PIXEL STYLE 1 SIZE FROM 0,0 TO nLinha,nColuna NOBORDER NOSYSMENU //oTelaPrincipal:nWidth-50,oTelaPrincipal:nHeight-150

oSistema:oActiveX = TActiveX():New( oSistema:oWndMenu, "Shell.Explorer" )

oSistema:oClient := oSistema:oActiveX

aUrl := "file:///"
aUrl += CurDrive() + ":\" + ALLTRIM(CurDir())
aUrl += "\menusintegra.html"
aUrl := strtran (aUrl,"\","/")

oSistema:oActivex:Do("Navigate",aUrl )

ACTIVATE WINDOW oSistema:oWndMenu valid oSistema:Finalizou

DEFINE WINDOW oSistema:oWnd OF oTelaPrincipal MDICHILD STYLE 1 PIXEL SIZE FROM 0,nColuna + .1 TO nLinha,oTelaPrincipal:nWidth NOBORDER NOSYSMENU

oSistema:oActiveXWnd := TActiveX():New( oSistema:oWnd, "Shell.Explorer" )
oSistema:oClient := oSistema:oActiveXWnd

aUrl := "file:///"
aUrl += CurDrive() + ":\" + ALLTRIM(CurDir())
aUrl += "\SintegraAuntentica.html"
aUrl := strtran (aUrl,"\","/")

oSistema:oActiveXWnd:Do("Navigate",aUrl )

ACTIVATE WINDOW oSistema:oWnd valid oSistema:Finalizou ON INIT oSistema:Disable ()

Seria um bug da classe Activex ? alguma solucion para resolver el problema ?

Gracias

Mário
[/img]

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Activex, Bug ?
Posted: Mon May 14, 2007 06:19 PM

Mario,

Prueba esto:

oSistema:bGotFocus = { || oSistema:oActiveXWnd:Refresh() }

regards, saludos

Antonio Linares
www.fivetechsoft.com

saviotti

Posts: 43

Joined: Thu Feb 15, 2007 07:45 PM

Activex, Bug ?
Posted: Mon May 14, 2007 06:47 PM

Antonio,

Gracias pela resposta, mas al colocar

oSistema:bGotFocus = { || oSistema:oActiveX:Refresh() }

me salta este erro :

Mário

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Activex, Bug ?
Posted: Mon May 14, 2007 07:09 PM

Mario,

Prueba así:

oSistema:oWndMenu:bGotFocus = { || InvalidateRect( oSistema:oActiveX:hWnd, .T. ) }

regards, saludos

Antonio Linares
www.fivetechsoft.com

saviotti

Posts: 43

Joined: Thu Feb 15, 2007 07:45 PM

Activex, Bug ?
Posted: Mon May 14, 2007 07:39 PM

Antonio,

Gracias, mas ainda não foi desta vez, já fiz várias tentativas :

nFocou := 0

oTelaPrincipal:bGotFocus := {|| iif (oSistema:oActiveX != nil, (oTelaPrincipal:cTitle := "focou " + str(nfocou++,06) , oSistema:Refresh (),InvalidateRect( oSistema:oActivex::hWnd,.t. ) ) , sysrefresh () ) }

Veja :

saviotti

Posts: 43

Joined: Thu Feb 15, 2007 07:45 PM

Activex, Bug ?
Posted: Tue May 15, 2007 02:35 PM

Sr. Antonio

Como corrigir el problema, não posso entregar a aplicação desta forma ?

Gracias.

Mário

saviotti

Posts: 43

Joined: Thu Feb 15, 2007 07:45 PM

Activex, Bug ?
Posted: Tue May 15, 2007 04:12 PM

Alguém poderia me ajudar com este problema, o projeto está pronto para
entrega, dependendo apenas deste bug.

Gracias.

Mário

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Activex, Bug ?
Posted: Tue May 15, 2007 05:08 PM

Mario,

La clase TActiveX usa pintado a doble buffer. Podrías probar a quitarle el pintado a doble buffer y ver si así se soluciona el problema.

La forma de quitar el doble buffer, es eliminar estas líneas:

// METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0

// METHOD EraseBkGnd( hDC ) INLINE 1

regards, saludos

Antonio Linares
www.fivetechsoft.com

saviotti

Posts: 43

Joined: Thu Feb 15, 2007 07:45 PM

Activex, Bug ?
Posted: Tue May 15, 2007 05:56 PM

Antonio,

Utilizo xHB Comercial e tenho linkado com C:\xHB\lib\ActiveX.lib se lo
saco, acontece el seguinte erro :

xLINK: error: Unresolved external symbol '_HB_FUN_OLEGETPROPERTY'.
xLINK: error: Unresolved external symbol '_HB_FUN_OLESETPROPERTY'.
xLINK: error: Unresolved external symbol '_HB_FUN_OLEINVOKE'.
xLINK: error: Unresolved external symbol '??2@YAPAXI@Z'.
xLINK: error: Unresolved external symbol '??3@YAXPAX@Z'.
xLINK: fatal error: 5 unresolved external(s).

Se coloco ACTIVEX.PRG de Fivewin dentro do projeto acontece el seguinte erro :

xLINK: error: Unresolved external symbol '_HB_FUN_ACTXGETPROPERTY'.
xLINK: error: Unresolved external symbol '_HB_FUN_ACTXSETPROPERTY'.
xLINK: error: Unresolved external symbol '_HB_FUN_ACTXSTRING'.
xLINK: error: Unresolved external symbol '_HB_FUN_ACTXINVOKE'.
xLINK: error: Unresolved external symbol '_HB_FUN_ACTXEVENTS'.
xLINK: error: Unresolved external symbol '??2@YAPAXI@Z'.
xLINK: error: Unresolved external symbol '??3@YAXPAX@Z'.
xLINK: fatal error: 7 unresolved external(s).

Parece que está havendo algum conflito em ACTIVEX de fivewin com ACTIVEX de xHB Comercial.

Poderia verificar por favor,

Gracias.

Mário

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Activex, Bug ?
Posted: Tue May 15, 2007 06:38 PM

Mario,

Que versión de FWH estás usando ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

saviotti

Posts: 43

Joined: Thu Feb 15, 2007 07:45 PM

Activex, Bug ?
Posted: Tue May 15, 2007 08:32 PM

FWH 2.6

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Activex, Bug ?
Posted: Tue May 15, 2007 09:12 PM

Mario,

Que versión de xHB comercial usas ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

saviotti

Posts: 43

Joined: Thu Feb 15, 2007 07:45 PM

Activex, Bug ?
Posted: Tue May 15, 2007 09:41 PM

xHarbour 0.99.51 Simplex ( Comercial )

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Activex, Bug ?
Posted: Tue May 15, 2007 09:54 PM

Mario,

Por favor enlaza este OBJ en tu aplicación:

http://rapidshare.com/files/31521032/xhb.obj.html

regards, saludos

Antonio Linares
www.fivetechsoft.com

saviotti

Posts: 43

Joined: Thu Feb 15, 2007 07:45 PM

Activex, Bug ?
Posted: Tue May 15, 2007 10:10 PM

Enlace el .obj e não solucionou el problema.

Tentei enlaçar xhb.obj + activex.prg e ocorre os mesmos erros arriba.

Notei que ocorre principalmente al Minimizar e Maximizar el window que
contén el activex.

Gracias

Mário

FiveTech Support Forums