#include "FiveWin.ch"
function Main()
local oWnd, oAcx
RegisterServer( "AxisMediaControl.AxisMediaControl.1" )
DEFINE WINDOW oWnd
@ 1, 1 ACTIVEX oAcx PROGID "AxisMediaControl.AxisMediaControl.1" OF oWnd SIZE 300, 300
oAcx:SetProp( "ShowToolBar", .T. )
ACTIVATE WINDOW oWnd
return nil
Realmente lo error acontece quando se passa el raton sobre lo controle activex, en su exemplo isso tamben ocorre ?
Talvez so funcione mesmo com la nueva FWH904
#include "FiveWin.ch"
function Main()
local oWnd, oAcx
RegisterServer( "AxisMediaControl.AxisMediaControl.1" )
DEFINE window oWnd
@ 1, 1 ACTIVEX oAcx PROGID "AxisMediaControl.AxisMediaControl.1" OF oWnd SIZE 300, 300
oWnd:oClient := oAcx
ACTIVATE window oWnd ON INIT ( updateacx( oAcx, oWnd) )
return nil
Function updateacx( oAcx, oWnd )
oAcx:SetProp( "ShowToolBar", .T. )
oAcx:SetProp( "FullScreen", .T. )
oAcx:SetProp( "FullScreen", .f. )
return nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 25 guests