Add(MainForm,5867593,315,175)
{
 Height=402
 Caption="AJAX2HTML converter"
 Position=1
}
Add(WebBrowser,3791675,259,196)
{
 Left=1
 Top=1
 Width=1
 Height=1
 Enabled=1
 URL="http://forum.d2h.ru/"
 Silent=0
 Point(PHandle)
 link(onTitle,5867593:doCaption,[(296,209)(296,181)])
 link(onProgress,668003:doCompare,[])
}
Add(Button,929271,210,196)
{
 Left=195
 Top=215
 Align=2
 Caption="Reload"
 link(onClick,3791675:doNavigate,[])
}
Add(InlineCode,5978023,364,217)
{
 WorkPoints=#6:Parsel|
 EventPoints=#7:CurText|
 DataPoints=#2:ph|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses kol,Share,Debug,ActiveX,KOLSHDocVw;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|17:    ph:THI_Event;|22:    CurText:THI_Event;|0:|47:    procedure Parsel(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|4:type|31:  TKOLWebBrowser = PWebBrowser;|31:  PKOLWebBrowser = PWebBrowser;|0:|29:procedure THiAsmClass.Parsel;|16:var pc:PControl;|15:    txt:string;|5:begin|36: pc := PControl(ToIntegerEvent(ph));|81: txt := PKOLWebBrowser(pc).OleObject.Document.all.tags('body').Item(0).innerHTML;|26: _hi_OnEvent(CurText,txt);|4:end;|0:|4:end.|
 link(CurText,3024381:doText,[])
 link(ph,3181004:Var,[])
}
Add(If_else,668003,315,217)
{
 Op2=Integer(0)
 link(onTrue,5978023:Parsel,[])
}
Add(LineBreak,2660774,273,245)
{
 Type=1
 link(Data,3791675:PHandle,[])
 Primary=[3181004,91,-56]
}
Add(Memo,3024381,413,196)
{
 Top=100
 Width=392
 Height=275
 Align=5
 ScrollBars=2
}