Add(Edit,6271191,273,364)
{
 Left=475
 Top=5
 Width=355
 Text="http://ipoteka-rus.narod.ru/"
}
Add(Button,16349967,203,413)
{
 Left=830
 Top=5
 Width=35
 Caption="GO"
 link(onClick,12976651:doNavigate,[])
}
Add(WebBrowser,12976651,273,413)
{
 Left=475
 Top=30
 Width=855
 Height=550
 Silent=0
 Point(PHandle)
 Point(doFromText)
 link(URL,6271191:Text,[])
}
Add(Button,4333300,203,469)
{
 Left=5
 Top=5
 Width=85
 Caption="execjs"
 link(onClick,5097173:doEvent1,[])
}
Add(InlineCode,1727944,287,476)
{
 WorkPoints=#6:execjs|
 EventPoints=#6:result|
 DataPoints=#13:HandleBrouser|7:JScript|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses kol,Share,Debug,ActiveX,KOLSHDocVw;|0:|4:type|28: THiAsmClass = class(TDebug)|0:|10:   private|0:|9:   public|28:   HandleBrouser: THI_Event;|22:   JScript: THI_Event;|21:   result: THI_Event;|16:   pc: PControl;|49:   procedure execjs(var _Data:TData; Index:Word);|0:|5: end;|1: |14:implementation|4:type|31:  TKOLWebBrowser = PWebBrowser;|31:  PKOLWebBrowser = PWebBrowser;|0:|58:procedure THiAsmClass.execjs(var _Data:TData; Index:Word);|9:begin    |47: pc := PControl(ToIntegerEvent(HandleBrouser));|31: if not Assigned(pc) then exit;|8:   begin|133:    PKOLWebBrowser(pc).OleObject.Document.ParentWindow.ExecScript('window.Hi_Result = "null"; ', 'javascript') ; //Обнуляем результат|129:    PKOLWebBrowser(pc).OleObject.Document.ParentWindow.ExecScript(ReadString(_Data, JScript), 'javascript') ; // выполняем скрипт|125:    _hi_onEvent(result, String(PKOLWebBrowser(pc).OleObject.Document.ParentWindow.Hi_Result)); // забираем результат         |7:   end;|4:end;|0:|4:end.|0:|
 link(result,3309072:doAdd,[])
 link(HandleBrouser,12976651:PHandle,[])
 link(JScript,6531317:Text,[(300,467)(328,467)])
}
Add(RichEdit,3309072,336,476)
{
 Left=5
 Top=420
 Width=465
 Height=160
 ScrollBars=2
}
Add(Memo,6531317,322,413)
{
 Left=5
 Top=30
 Width=465
 Height=385
 Font=[MS Sans Serif,12,0,0,1]
 Strings=#34:function offsetPosition(element) {|38:    var offsetLeft = 0, offsetTop = 0;|8:    do {|41:        offsetLeft += element.offsetLeft;|40:        offsetTop  += element.offsetTop;|45:    } while (element = element.offsetParent);|76:    return [offsetLeft+window.screenLeft + 3, offsetTop+window.screenTop+3];|1:}|46:var el= document.getElementsByTagName('a')[4];|31:Hi_Result = offsetPosition(el);|
 ScrollBars=3
}
Add(Hub,5097173,245,469)
{
 link(onEvent1,3309072:doClear,[(277,475)(277,489)])
 link(onEvent2,1727944:execjs,[])
}
Add(MainForm,7207297,210,280)
{
 Width=1351
 Height=622
 Position=1
 Point(onClose)
 link(onCreate,13950465:doWork,[])
 link(onClose,9676733:doWork,[])
}
Add(MultiElementEx,9371579,357,294)
{
 @Hint=#11:эмуляция IE|10:11001 IE11|10:11000 IE11|10:10001 IE10|10:10000 IE10|10:9999  IE9 |9:9000  IE9|10:8888  IE8 |9:8000  IE8|9:7000  IE7|
 link(Data,14602570:Text,[])
 AddHint(53,-38,77,130,@Hint)
}
BEGIN_SDK
  Add(EditMultiEx,16166731,21,21)
  {
   WorkCount=#5:write|3:del|
   DataCount=#4:Data|
   link(write,7906811:doPart,[(95,27)(95,97)])
   link(del,1560214:doDeleteValue,[(87,34)(87,160)])
  }
  Add(Registry,1560214,154,140)
  {
   HKey=2
   Key="SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION\"
   DataType=0
   Point(doDeleteValue)
   link(Data,16166731:Data,[(160,84)(27,84)])
   link(Value,7906811:Part,[])
  }
  Add(Application,12963505,168,42)
  {
  }
  Add(FilePartElm,7906811,168,91)
  {
   Point(Part)
   link(onPart,1560214:doWrite,[(207,97)(207,125)(144,125)(144,153)])
   link(FileName,12963505:AppFileName,[])
  }
END_SDK
Add(VisualStrings,14602570,357,259)
{
 Lines=#5:11000|
 Width=46
}
Add(Check,13950465,266,294)
{
 Check=1
 Caption="wr"
 link(onEvent,9371579:write,[])
}
Add(Check,9676733,308,301)
{
 Check=1
 Caption="del"
 link(onEvent,9371579:del,[])
}