Add(MainForm,2953706,77,238)
{
 Width=654
 Height=549
 Caption="WebBrowserFPC test"
 WindowsState=2
 Point(PHandle)
}
Add(WebBrowserFPC,115378,322,161)
{
 Left=95
 Top=50
 Width=535
 Height=420
 Align=5
 URL=""
 Silent=0
 Point(doFromText)
 Point(onProgressMax)
 Point(PHandle)
 link(onNavigate,13820449:doValue,[(376,167)(376,90)])
 link(onTitle,13799248:doText,[(415,174)(415,48)])
 link(onStatus,11683041:doString,[(442,181)(442,146)])
 link(onProgress,1263917:doPosition,[])
 link(onProgressMax,1263917:doMax,[])
}
Add(ProgressBar,1263917,469,182)
{
 Top=489
 Width=646
 Align=4
 Smooth=1
 ProgressColor=8388608
 Point(doMax)
}
Add(Edit,13799248,476,42)
{
 Left=10
 Top=15
 Width=625
 Text=""
}
Add(StatusBar,13613721,532,140)
{
}
Add(Memory,13820449,476,84)
{
}
Add(FormatStr,11683041,469,140)
{
 Mask="%1  -  %2  "
 link(onFString,13613721:doText,[])
 link(Str2,13820449:Value,[])
}
Add(Button,10535757,77,161)
{
 Left=10
 Top=50
 Width=70
 Caption="Url"
 Data=String(https://forum.hiasm.com/topic/67438)
 link(onClick,115378:doNavigate,[])
 AddHint(-56,-37,188,26,Data)
}
Add(Button,3508721,287,224)
{
 Left=10
 Top=75
 Width=70
 Caption="Text"
 Data=String(javascript:var articles=document.getElementsByClassName("resize-observer")[0].scrollTop="250";void(0);)
 link(onClick,795822:Parsel,[])
}
Add(Clipboard,6433678,385,224)
{
}
Add(InlineCode,795822,336,224)
{
 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).outerHTML;|26: _hi_OnEvent(CurText,txt);|4:end;|0:|4:end.|
 link(CurText,6433678:doPutText,[])
 link(ph,115378:PHandle,[])
}