PureBoard

Code: Alles auswählen

Procedure Webgadget_PostMessage(Gadget.l, wParam, lParam)
  Static FirstCall.l
  If IsGadget(Gadget) And GadgetType(Gadget) = #PB_GadgetType_Web
    If FirstCall = 0
      CoInitialize_(0)
      CoCreateInstance_(?CLSID_IOleInPlaceActiveObject, 0, 1, ?IID_IOleInPlaceActiveObject, @OleObject.IOleInPlaceActiveObject)
      FirstCall = 1
    EndIf
    WebObject.IWebBrowser2 = GetWindowLong_(GadgetID(Gadget), #GWL_USERDATA)
    WebObject\QueryInterface(?IID_IOleInPlaceActiveObject, @OleObject.IOleInPlaceActiveObject)
    web.MSG\message = #WM_KEYDOWN
    web\wParam = wParam
    web\lParam = lParam
    OleObject\TranslateAccelerator(@web)
    OleObject\Release()
  EndIf
EndProcedure

...

WebGadget(0, 0, 0, WindowWidth(0), WindowHeight(0), "http://localhost:8800/")

...

Select EventID
    Case #WM_KEYDOWN
      If EventGadget = 0
        If EventwParam() = #VK_TAB Or EventwParam() = #VK_DELETE
          Webgadget_PostMessage(0, EventwParam(), EventlParam())
        EndIf
      EndIf
  EndSelect

...

DataSection
  IID_IOleInPlaceActiveObject: ; {00000117-0000-0000-C000-000000000046}
  Data.l $00000117
  Data.w $0000, $0000
  Data.b $C0, $00, $00, $00, $00, $00, $00, $46
  CLSID_IOleInPlaceActiveObject: ; {00000320-0000-0000-C000-000000000046}
  Data.l $00000320
  Data.w $0000, $0000
  Data.b $C0, $00, $00, $00, $00, $00, $00, $46
EndDataSection