Вверх ↑
Ответов: 537
Рейтинг: 14
#1: 2021-09-05 17:05:37 ЛС | профиль | цитата
Проще так

Add(MainForm,2953706,217,112)
{
}
Add(Button,15449288,329,112)
{
Left=10
Top=10
Data=Integer(0)
link(onClick,16003096:doEnum,[])
}
Add(Memo,1139610,651,126)
{
Left=10
Top=40
Width=565
Height=355
}
Add(WinEnum,16003096,385,112)
{
Point(ParentHandle)
Point(ClassName)
link(onFindWindow,11310440:doCompare,[])
}
Add(If_else,11310440,441,112)
{
Op2=String(CabinetWClass)
link(onTrue,6745129:doEnumChildWindows,[])
link(Op1,16003096:ClassName,[(447,97)(427,97)(427,156)(398,156)])
}
Add(WinEnum,6745129,497,91)
{
Point(doEnumChildWindows)
Point(onEnumChildWindows)
Point(ParentHandle)
Point(ClassName)
link(onEnumChildWindows,3221656:doSeparateMT,[])
link(ParentHandle,16003096:Handle,[(510,79)(482,79)(482,166)(391,166)])
}
Add(FindWindow,9431484,329,217)
{
ClassName="CabinetWClass"
SkipParam=1
link(onFind,3035978:doFindChild,[])
}
Add(FindWindow,3035978,378,210)
{
ClassName="ToolbarWindow32"
SkipParam=1
link(onFind,1223530:doWinInfo,[(422,216)(422,240)(366,240)(366,265)])
}
Add(Button,6316829,217,210)
{
Left=105
Top=10
Data=Integer(1)
link(onClick,7117322:doEvent1,[])
}
Add(WinInfo,1223530,378,259)
{
link(Handle,3035978:Handle,[])
}
Add(Hub,7117322,294,210)
{
link(onEvent2,9431484:doFind,[])
}
Add(StrMask,3142790,595,119)
{
Mask="Адрес:*"
link(onTrue,1139610:doAdd,[])
}
Add(MT_MultiData,3221656,546,105)
{
Count=3
link(onData3,3142790:doCompare,[])
}

карма: 4

0