Вверх ↑
Ответов: 700
Рейтинг: 145
#1: 2020-08-19 15:32:51 ЛС | профиль | цитата
brangolf, как-то так.

Add(MainForm,13953492,217,105)
{
Width=369
Height=141
BorderStyle=4
Point(Handle)
Point(doAlphaBlendValue)
link(onCreate,6860637:doData,[(256,125)(256,97)(109,97)(109,139)])
}
Add(BitBtn,9454825,378,175)
{
Left=5
Top=10
Caption="Поиск"
link(onClick,6870106:doWork2,[])
}
Add(Edit,5369255,448,105)
{
Left=70
Top=10
Width=270
Text="hiasm"
link(onEnter,6870106:doWork1,[(487,118)(487,146)(431,146)])
}
Add(WinExec,13636026,539,168)
{
}
Add(StrCat,5534403,441,175)
{
Str1="www.google.com/search?q="
link(onStrCat,13636026:doShellExec,[])
link(Str2,5369255:Text,[])
}
Add(HubEx,6870106,427,175)
{
link(onEvent,5534403:doStrCat,[])
}
Add(WinTools,7767924,217,161)
{
Point(doMinimize)
link(Handle,13953492:Handle,[])
}
Add(BitBtn,7327065,147,189)
{
Left=5
Top=35
Caption="Свернуть"
link(onClick,7767924:doMinimize,[])
}
Add(DoData,6860637,140,133)
{
Data=Integer(200)
link(onEventData,6231699:doWork2,[])
}
Add(TrackBar,2962345,70,168)
{
Left=5
Top=70
Width=340
Max=255
Position=200
link(onPosition,6231699:doWork3,[(193,174)])
}
Add(HubEx,6231699,189,133)
{
link(onEvent,13953492:doAlphaBlendValue,[])
}

карма: 15

0