FiveTech Software tech support forums

have you tried with two params ?

oActiveX:bOnEvent := { | event, nKey1, nKey2 | EventInfo( event, nKey1, nKey2 ) }

to zoom in add the following code: #DEFINE moZoomIn 51 oMap:SetProp("MousePointer", moZoomIn) In function EventInfo add the following: IF event == "Click" IF oMap:GetProp("MousePointer") == moZoomIn oRect := oMap:Do("TrackRectangle") oMap:SetProp("Extent", oRect) oMap:Do("Refresh") ...

Maurilio: We're currently working with the webexp.prg in Samples. You can now add something like this to the EventInfo function: if valType(event) == "C" .AND. event == "BeforeNavigate2" #define BEFORE_NAV_ARGS_URL 2 #define BEFORE_NAV_ARGS_TargetFrameName 4 #define BEFORE_NAV_ARGS_CANCEL ...

... 1) // Generates an error on this line. If I comment out the window opens oMapPoint:bOnEvent = { | event, aParams | cEvents += EventInfo( event, aParams ) } ACTIVATE WINDOW oWndMap ; ON INIT ( oWndMap:Move(0,0,640,390,.t.) ) ; ON PAINT oWndMap:SetFocus() ; VALID ( oMapPoint:Do("CloseMap"), ...

... your email with the updated libs. When I try to set the the event block I get an error on: oMapPoint:bOnEvent = { | event, aParams | cEvents += EventInfo( event, aParams ) } This line generates the error: Error MapPoint.Control/16389 E_FAIL: _BONEVENT I also tried replacing the ActiveX lib with ...

... oWnd, "GSN.GSNCtrl.1" ) oActiveX:nWidth = 0 oActiveX:nHeight = 0 oActiveX:bOnEvent = { | event, aParams | cEvents += EventInfo( event, aParams ) } ACTIVATE WINDOW oWnd ; VALID ( MemoEdit( cEvents ), .t. ) return nil function EventInfo( event, aParams ) local cMsg := ...

Milan,

With the FWH that you are using, please comment this line:

// oActiveX:bOnEvent = { | event, aParams | cEvents += EventInfo( event, aParams ) }