Activex, Bug ?
Posted: Mon May 14, 2007 6: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:oWndMenu: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:oWnd: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:oWnd:Disable ()
Seria um bug da classe Activex ? alguma solucion para resolver el problema ?
Gracias
Mário
[/img]
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:oWndMenu: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:oWnd: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:oWnd:Disable ()
Seria um bug da classe Activex ? alguma solucion para resolver el problema ?
Gracias
Mário
[/img]