Add(MainForm,2953706,350,91)
{
 Width=698
 Height=564
 Position=1
}
Add(WebBrowser,15971784,420,91)
{
 Left=95
 Top=15
 Width=575
 Height=505
 URL="http://hiasm.net/"
 Point(PHandle)
}
Add(Edit,16096838,553,189)
{
 Left=35
 Top=10
 Text=""
}
Add(Edit,11990703,490,196)
{
 Left=35
 Top=35
 Text=""
}
Add(Label,15107714,273,91)
{
 Left=5
 Top=15
 Width=11
 Height=17
 Caption="X"
}
Add(Label,3773043,273,133)
{
 Left=5
 Top=40
 Width=11
 Height=17
 Caption="Y"
}
Add(Button,13651531,273,189)
{
 Left=5
 Top=60
 Width=80
 Caption="Get"
 link(onClick,1038696:GetScroll,[])
}
Add(Button,13240890,273,231)
{
 Left=5
 Top=85
 Width=80
 Caption="Set"
 link(onClick,1038696:SetScroll,[(369,237)(369,202)])
}
Add(InlineCode,1038696,434,189)
{
 WorkPoints=#9:GetScroll|9:SetScroll|
 EventPoints=#3:onX|3:onY|
 DataPoints=#17:PHandleWebBrowser|1:X|1:Y|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses kol,Share,Debug,ActiveX,KOLSHDocVw;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|3:   |9:   public|19:   // точки Data   |56:   PHandleWebBrowser: THI_Event; // указатель на браузер|16:   X: THI_Event;|16:   Y: THI_Event;|3:   |20:   // точки Event   |18:   onX: THI_Event;|18:   onY: THI_Event;|3:   |25:   // Общие переменные   |16:   pc: PControl;|3:   |19:   // точки Work   |52:   procedure GetScroll(var _Data:TData; Index:Word);|52:   procedure SetScroll(var _Data:TData; Index:Word);|3:   |15:   // точки Var|3:   |3:   |5: end;|0:|14:implementation|4:type|31:  TKOLWebBrowser = PWebBrowser;|31:  PKOLWebBrowser = PWebBrowser;|0:|16:// Общие функции|0:|17:// Процедуры Work|61:procedure THiAsmClass.GetScroll(var _Data:TData; Index:Word);|5:begin|51: pc := PControl(ToIntegerEvent(PHandleWebBrowser));|32: if not Assigned(pc) then exit; |8:  begin |101:    _hi_onEvent(onX, String(PKOLWebBrowser(pc).OleObject.Document.documentElement.scrollLeft));  // H|101:    _hi_onEvent(onY, String(PKOLWebBrowser(pc).OleObject.Document.documentElement.scrollTop));   // V|6:  end;|4:end;|0:|61:procedure THiAsmClass.SetScroll(var _Data:TData; Index:Word);|5:begin|51: pc := PControl(ToIntegerEvent(PHandleWebBrowser));|32: if not Assigned(pc) then exit; |7:  begin|107:  PKOLWebBrowser(pc).OleObject.Document.ParentWindow.ScrollTo(ReadInteger(_Data, X),ReadInteger(_Data, Y));|6:  end;|4:end;|0:|16:// Процедуры Var|0:|4:end.|
 link(PHandleWebBrowser,15971784:PHandle,[])
 link(onX,16096838:doText,[])
 link(onY,11990703:doText,[])
 link(X,16096838:Text,[(447,167)(591,167)(591,233)(559,233)])
 link(Y,11990703:Text,[(454,176)(531,176)(531,240)(496,240)])
}