Add(MainForm,8431895,280,182)
{
 Width=753
 Height=682
 Point(onKeyDown)
 Point(Handle)
 Point(doSetFocus)
 Point(doSendToBack)
 Point(doBringToFront)
 Point(doCenterPos)
 link(onActivate,7704589:doTimer,[])
 link(onDeactivate,7704589:doStop,[])
}
Add(WebBrowser,10275324,280,105)
{
 Width=737
 Height=644
 Align=5
 URL="https://forum.hiasm.com/forum/0"
 Silent=0
 Point(Handle)
 Point(onKeyDown)
 Point(onKeyUp)
 Point(onMouseUp)
}
Add(Timer,7704589,329,182)
{
 Interval=1
 link(onTimer,13313118:doFind,[])
}
Add(FindWindow,13313118,378,182)
{
 ClassName="#32768"
 SkipParam=1
 link(onFind,2763271:doCase,[])
}
Add(SendMessage,9542769,483,182)
{
 Message=7
}
Add(Case,2763271,427,182)
{
 Value=Integer(0)
 link(onNextCase,9542769:doSendMessage,[])
}

Add(Edit,6271191,133,35)
{
 Left=10
 Top=5
 Width=535
 Text="http://kladovka.net.ru/"
}
Add(Button,16349967,56,91)
{
 Left=550
 Top=5
 Width=35
 Caption="GO"
 link(onClick,12976651:doNavigate,[])
}
Add(WebBrowser,12976651,133,91)
{
 Left=10
 Top=30
 Width=575
 Height=430
 Silent=0
 Point(PHandle)
 link(onProgress,1110382:doCompare,[])
 link(URL,6271191:Text,[])
}
Add(InlineCode,1727944,147,175)
{
 WorkPoints=#21:doGetEventsWebBrowser|
 EventPoints=#10:onEventsWB|
 VarPoints=#8:DtMouseX|8:DtMouseY|5:DtKey|9:DtKeyChar|7:DtWidth|8:DtHeight|
 DataPoints=#9:PHandleWB|
 Code=#20:// autor andrestudio|15:unit HiAsmUnit;|0:|9:interface|0:|5:uses |44:  kol,windows,Share,Debug,ActiveX,KOLComObj,|27:  KOLSHDocVw,MSHTML_TLBKOL;|0:|4:type|25:  THTMLEventNotifyEvent =|71:    procedure(EventObject: IHTMLEventObj; EventType: string) of object;|1: |50:  THTMLEvent = class(TInterfacedObject, IDispatch)|9:  private|30:    FDocument: IHTMLDocument2;|36:    FOnEvent: THTMLEventNotifyEvent;|68:    function GetTypeInfoCount(out Count: Integer): HResult; stdcall;|50:    function GetTypeInfo(Index, LocaleID: Integer;|38:      out TypeInfo): HResult; stdcall;|60:    function GetIDsOfNames(const IID: TGUID; Names: Pointer;|54:      NameCount, LocaleID: Integer; DispIDs: Pointer):|23:      HResult; stdcall;|64:    function Invoke(DispID: Integer; const IID: TGUID; LocaleID:|61:      Integer; Flags: Word; var Params; VarResult, ExcepInfo,|41:      ArgErr: Pointer): HResult; stdcall;|22:    procedure DoEvent;|8:  public|49:    constructor Create(Document: IHTMLDocument2);|43:    property OnEvent: THTMLEventNotifyEvent|19:      read FOnEvent|21:      write FOnEvent;|6:  end;|0:|0:|4:type|28: THiAsmClass = class(TDebug)|15:   private     |25:     Doc: IHTMLDocument2;|30:     EventHandler: THTMLEvent;|16:     mX,mY,iKey,|22:     wbWidth,wbHeight,|27:     wbTop,wbLeft: integer;|30:     KeyChar: string;         |9:   public|15:     PHandleWB,|27:     onEventsWB: THI_Event;|18:     WB: PControl;|61:     procedure doGetEventsWebBrowser(var dt:TData; idx:Word);|48:     procedure DtMouseX(var dt:TData; idx:Word);|48:     procedure DtMouseY(var dt:TData; idx:Word);|45:     procedure DtKey(var dt:TData; idx:Word);|49:     procedure DtKeyChar(var dt:TData; idx:Word);|47:     procedure DtWidth(var dt:TData; idx:Word);|48:     procedure DtHeight(var dt:TData; idx:Word);|5:     |71:     procedure AllEvent(EventObject: IHTMLEventObj; EventType: string);|5: end;|1: |14:implementation|0:|4:type|31:  TKOLWebBrowser = PWebBrowser;|31:  PKOLWebBrowser = PWebBrowser;|0:|31:procedure THiAsmClass.AllEvent;|14:var s: string;|5:begin|67:  // тут по событиям выкорчёвывам из IHTMLEventObj всякую х...ю  :)|30:  mX := EventObject.clientX + |59:    PKOLWebBrowser(WB).OleObject.document.body.scrollLeft; |29:  mY := EventObject.clientY +|57:    PKOLWebBrowser(WB).OleObject.document.body.scrollTop;|4:    |30:  iKey := EventObject.KeyCode;|45:  KeyChar := WideChar(EventObject.KeyCode);  |38:   _hi_onEvent(onEventsWB, EventType);|4:end;|0:|44:procedure THiAsmClass.doGetEventsWebBrowser;|3:var|20:  VarTmp: IDispatch;|5:begin|44:  WB := PControl(ToIntegerEvent(PHandleWB));|32:  if not Assigned(WB) then exit;|2:  |68:  wbWidth := PKOLWebBrowser(WB).OleObject.document.body.scrollWidth;|72:  wbHeight := PKOLWebBrowser(WB).OleObject.document.body.scrollHeight;  |65:  //_debug(PKOLWebBrowser(WB).OleObject.document.body.scrollTop);|66:  //_debug(PKOLWebBrowser(WB).OleObject.document.body.scrollLeft);|2:  |50:  VarTmp := PKOLWebBrowser(WB).OleObject.Document;|34:  Doc := VarTmp as IHTMLDocument2;|0:|41:  EventHandler := THTMLEvent.Create(Doc);|35:  EventHandler.OnEvent := AllEvent;|1: |41:  // подключаем события из IHTMLDocument2|45:  Doc.onkeydown := EventHandler as IDispatch;|46:  Doc.onkeypress := EventHandler as IDispatch;|45:  Doc.onkeyup := EventHandler as IDispatch;  |43:  Doc.onclick := EventHandler as IDispatch;|48:  Doc.ondblclick := EventHandler as IDispatch;  |47:  Doc.onmousemove := EventHandler as IDispatch;|45:  Doc.onmouseup := EventHandler as IDispatch;|47:  Doc.onmousedown := EventHandler as IDispatch;|46:  Doc.onmouseout := EventHandler as IDispatch;|47:  Doc.onmouseover := EventHandler as IDispatch;|39:  // подключаем события из IHTMLWindow2|57:  Doc.parentWindow.onscroll := EventHandler as IDispatch;|59:  //Doc.parentWindow.onresize := EventHandler as IDispatch;|0:|4:end;|0:|31:procedure THiAsmClass.DtMouseX;|5:begin|20:  dtInteger(dt, mX);|4:end;|0:|31:procedure THiAsmClass.DtMouseY;|5:begin|20:  dtInteger(dt, mY);|4:end;|0:|28:procedure THiAsmClass.DtKey;|5:begin|22:  dtInteger(dt, iKey);|4:end;|0:|32:procedure THiAsmClass.DtKeyChar;|5:begin|24:  dtString(dt, KeyChar);|4:end;|0:|30:procedure THiAsmClass.DtWidth;|5:begin|25:  dtInteger(dt, wbWidth);|4:end;|0:|31:procedure THiAsmClass.DtHeight;|5:begin|26:  dtInteger(dt, wbHeight);|4:end;|0:|0:|66:function THTMLEvent.GetTypeInfoCount(out Count: Integer): HResult;|5:begin|21:  Result := E_NOTIMPL|4:end;|1: |57:function THTMLEvent.GetTypeInfo(Index, LocaleID: Integer;|25:  out TypeInfo): HResult;|5:begin|21:  Result := E_NOTIMPL|4:end;|1: |67:function THTMLEvent.GetIDsOfNames(const IID: TGUID; Names: Pointer;|59:  NameCount, LocaleID: Integer; DispIDs: Pointer): HResult;|5:begin|21:  Result := E_NOTIMPL|4:end;|1: |61:function THTMLEvent.Invoke(DispID: Integer; const IID: TGUID;|56:  LocaleID: Integer; Flags: Word; var Params; VarResult,|39:  ExcepInfo, ArgErr: Pointer): HResult;|5:begin|10:  DoEvent;|17:  Result := S_OK;|4:end;|1: |56:constructor THTMLEvent.Create(Document: IHTMLDocument2);|5:begin|19:  inherited Create;|24:  FDocument := Document;|18:  FOnEvent := nil;|4:end;|1: |29:procedure THTMLEvent.DoEvent;|3:var|26:  EventObj: IHTMLEventObj;|20:  EventType: string;|5:begin|28:  if Assigned(FOnEvent) then|7:  begin|20:    EventObj := nil;|20:    EventType := '';|68:    if Assigned(FDocument) and Assigned(FDocument.parentWindow) then|9:    begin|47:      EventObj := FDocument.parentWindow.event;|32:      if Assigned(EventObj) then|36:        EventType := EventObj.type_;|8:    end;|1: |34:    FOnEvent(EventObj, EventType);|6:  end;|4:end;|0:|14:initialization|10:  OleInit;|20:  CoInitialize(nil);|0:|0:|4:end.|
 link(onEventsWB,12352514:doEvent1,[])
 link(PHandleWB,12976651:PHandle,[])
}
Add(MainForm,6751328,56,35)
{
 Width=609
 Height=684
 Caption="WebBrowserEvent demo "
 Position=1
}
Add(Memo,10375323,252,175)
{
 Left=10
 Top=470
 Width=365
 Height=170
 Font=[MS Sans Serif,10,0,0,1]
 AddType=1
 ScrollBars=3
}
Add(Label,13463995,252,238)
{
 Left=390
 Top=475
 Width=180
 Height=113
 Font=[Courier New,10,0,16711680,204]
 Caption="       Juk\r\nс тебя бутылка!\r\n\r\n        :)"
 AutoSize=1
}
Add(FormatStr,13303072,147,238)
{
 DataCount=6
 Mask="MouseX  - %1 \r\nMouseY  - %2\r\nKeyCode - %3\r\nKeyChar - %4\r\nWidth   - %5\r\nHeight  - %6"
 link(onFString,13463995:doText,[])
 link(Str1,1727944:DtMouseX,[])
 link(Str2,1727944:DtMouseY,[])
 link(Str3,1727944:DtKey,[])
 link(Str4,1727944:DtKeyChar,[])
 link(Str5,1727944:DtWidth,[])
 link(Str6,1727944:DtHeight,[])
}
Add(Hub,12352514,203,175)
{
 link(onEvent1,10375323:doAdd,[])
 link(onEvent2,13303072:doString,[(227,188)(227,223)(135,223)(135,244)])
}
Add(Button,573622,56,175)
{
 Left=405
 Top=595
 Width=180
 Height=45
 Caption="GetEvent"
 link(onClick,8346162:doWork2,[])
}
Add(If_else,1110382,196,112)
{
 Op2=Integer(0)
 link(onTrue,8346162:doWork1,[(241,118)(241,160)(123,160)])
}
Add(HubEx,8346162,119,175)
{
 link(onEvent,1727944:doGetEventsWebBrowser,[])
}