Вверх ↑
Ответов: 2415
Рейтинг: 691
#1: 2025-05-12 22:14:20 ЛС | профиль | цитата
Ну вот к примеру проверка на ширину и высоту отсекает почти все:
Add(MainForm,14047676,322,91)
{
Width=836
Height=651
Point(onMouseWheel)
Point(Handle)
link(onActivate,1098179:doData,[(366,97)(366,139)(310,139)(310,181)])
link(onCreate,1905618:doDeferredEvent,[])
link(onMouseWheel,3842519:doEvent1,[(404,118)(404,230)])
}
Add(WinEnum,4438343,490,105)
{
link(onFindWindow,1598951:doEvent1,[])
}
Add(Image,12279222,931,224)
{
Top=320
Width=820
Height=267
Align=5
}
Add(Hub,3842519,665,224)
{
link(onEvent1,8026749:doEvent,[])
link(onEvent2,11512912:doEvent,[(711,237)(711,300)])
}
Add(Label,11295395,973,294)
{
Top=587
Width=820
Height=25
Align=4
Font=[MS Sans Serif,12,0,0,1]
AutoSize=1
Alignment=2
}
Add(MathParse,11071173,882,294)
{
DataCount=0
MathStr="%0 + 1"
link(onResult,8651668:doStrCat,[])
}
Add(StrCat,8651668,924,294)
{
Str1="Timer: "
link(onStrCat,11295395:doText,[])
}
Add(ListBox,12831490,798,168)
{
Width=820
Height=320
Align=2
Font=[MS Sans Serif,12,0,0,1]
DataType=1
link(onClick,3412572:doSplit,[])
}
Add(ScreenShort,6248627,882,224)
{
link(onCapture,12279222:doLoad,[])
link(Handle,4985132:Var,[])
}
Add(StrCatDelim,16417546,749,168)
{
Delimiter="|"
link(onStrCatDlm,12831490:doAdd,[])
link(Str1,3399869:Value,[])
link(Str2,8984529:Var3,[(762,74)])
}
Add(Debug,8026749,784,224)
{
WEName="1"
VDName=""
link(onEvent,6248627:doCapture,[])
}
Add(Debug,11512912,798,294)
{
WEName="2"
VDName=""
link(onEvent,11071173:doCalc,[])
}
Add(ConvertorEx,4985132,882,175)
{
Mode=1
}
Add(MultiStrData,3412572,840,175)
{
Char="|"
From=1
Count=1
link(onPart1,4985132:doConvert,[])
}
Add(DeferredEvent,1905618,427,105)
{
Delay=1000
link(onDeferredEvent,4438343:doEnum,[])
}
Add(WinInfo,12732599,616,112)
{
Point(Width)
Point(Height)
link(Handle,8984529:Var2,[])
}
Add(Hub,1598951,567,105)
{
OutCount=3
link(onEvent1,3399869:doValue,[])
link(onEvent2,12732599:doWinInfo,[])
link(onEvent3,12030415:doOperation,[(605,125)(605,174)])
}
Add(If_else,4720971,679,168)
{
Type=5
Op2=Integer(0)
link(onTrue,16417546:doStrCatDlm,[])
AddHint(5,-27,21,13,Op2)
}
Add(Math,12030415,630,168)
{
link(onResult,4720971:doCompare,[])
link(Op1,12732599:Width,[])
link(Op2,12732599:Height,[])
}
Add(Debug,1435506,322,140)
{
WEName=""
VDName="realHandle"
link(Data,14047676:Handle,[])
}
Add(DoData,1098179,322,175)
{
link(Data,1435506:Var,[])
}
Add(Memory,3399869,749,105)
{
}
Add(GetDataEx,8984529,616,69)
{
Angle=3
link(Data,4438343:Handle,[(535,74)(535,149)(496,149)])
}
Второй Form живучий гад
Нужно сделать нормальную проверку в doEnum и всего. Если сегодня не осилю и кто другой не починит, то завтра посмотрю на свежую голову.
карма: 11

0
Редактировалось 2 раз(а), последний 2025-05-12 22:15:48