Вверх ↑
Главный модератор
Ответов: 2997
Рейтинг: 395
#1: 2018-10-03 14:25:42 ЛС | профиль | цитата
Например так:

Add(EntryPoint,2953706,21,147)
{
Width=568
Height=340
link(onError,1925299:doShow,[])
}
Add(ChildPanel,5768017,63,105)
{
link(onURL,12278413:doLoad,[])
}
BEGIN_SDK
Add(EditMultiEx,8143348,21,21)
{
EventCount=#5:onURL|0:|
Width=447
}
Add(Panel,2340752,35,105)
{
Left=5
Top=5
Width=551
Height=33
Dock=1
}
Add(TextBox,8473757,196,70)
{
Left=85
Top=5
Width=455
Text="http://forum.hiasm.com/"
Anchor=13
Lines=[]
Point(doText)
Point(Text)
Point(Data)
Point(onKeyDown)
link(onKeyDown,4115150:doGetMethod,[])
}
Add(Button,10408874,140,140)
{
Left=5
Top=5
Point(onClick)
link(onClick,672210:doData,[])
}
Add(DoData,672210,196,140)
{
link(onEventData,2948402:doWork3,[(396,146)])
link(Data,13555559:Var2,[])
}
Add(KeyEventArgs,4115150,252,77)
{
Point(onKeyValue)
link(onKeyCode,10434000:doCase,[])
}
Add(Case,10434000,301,77)
{
Value=#6:Return|
link(onTrue,7155603:doData,[])
AddHint(-12,-33,47,13,Value)
}
Add(DoData,7155603,350,84)
{
link(onEventData,2948402:doWork2,[])
link(Data,13555559:Var3,[(356,72)(240,72)(240,117)])
}
Add(GetDataEx,13555559,196,112)
{
link(Data,8473757:Text,[])
}
Add(HubEx,2948402,392,84)
{
Angle=3
link(onEvent,8143348:onURL,[(396,27)])
}
END_SDK
Add(ChildPanel,12278413,105,105)
{
}
BEGIN_SDK
Add(EditMultiEx,12766142,21,21)
{
WorkCount=#6:doLoad|0:|
link(doLoad,13686838:doEvent1,[(35,27)(35,55)])
}
Add(Panel,6363330,35,105)
{
Left=10
Top=40
Width=545
Height=270
Dock=5
}
Add(ChromiumWebBrowser,10586902,98,49)
{
Left=5
Top=45
Width=550
Height=265
Dock=5
Point(onLoadError)
link(onLoadError,8805534:doShow,[])
}
Add(MessageBox,8805534,154,49)
{
}
Add(Hub,13686838,49,49)
{
link(onEvent1,10586902:doLoad,[])
link(onEvent2,8048431:doGetSourceText,[(81,62)(81,104)])
}
Add(Inline,8048431,98,98)
{
WorkPoints=#15:doGetSourceText|
EventPoints=#12:onSourceText|
DataPoints=#4:Data|
Code="private void doWork(object data, int index) {\r\n var sender = sys.Data<object>;\r\n switch (index) {\r\n case 0:\r\n var task = (sender as ChromiumWebBrowser).GetSourceAsync();\r\n task.Wait();\r\n string s = task.Result;\r\n sys.onSourceText(s)\r\n break;\r\n\r\n default:\r\n break;\r\n }\r\n}\r\n"
link(Data,10586902:ChromiumWebBrowser,[])
link(onSourceText,13396270:doShow,[])
}
Add(MessageBox,13396270,154,98)
{
}
END_SDK
Add(MessageBox,1925299,70,154)
{
Caption="Error"
Icon=6
}
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0