mmmmm писал(а):
А если у пользователя тоже системный англ------------ Дoбавленo в 15.30:
mmmmm,
Add(MainForm,5209926,70,322)
{
Width=230
Height=174
link(onCreate,6910537:doData,[])
}
Add(Button,1623239,322,182)
{
Left=5
Top=15
Caption="Перебор"
link(onClick,14838683:doNext,[])
}
Add(Button,657301,322,231)
{
Left=5
Top=45
Caption="Стоп"
Data=String(0)
link(onClick,14838683:doReset,[(370,237)(370,202)])
}
Add(StrList,2616541,462,112)
{
link(onChange,10892276:doData,[])
}
Add(Str_Enum,2819612,462,182)
{
Delimiter="
"
To=1
Point(doFrom)
Point(doTo)
link(onEnum,1788663:doText,[])
link(String,2616541:Text,[])
}
Add(Hub,4707331,427,182)
{
OutCount=3
link(onEvent1,2819612:doFrom,[(451,188)(451,202)])
link(onEvent2,2819612:doTo,[(451,195)(451,209)])
link(onEvent3,2819612:doEnum,[(451,202)(451,188)])
}
Add(Counter,14838683,385,182)
{
Min=1
Max=9999999
Point(doValue)
Point(doMax)
link(onNext,4707331:doEvent1,[])
}
Add(Edit,1788663,511,182)
{
Left=10
Top=70
}
Add(DoData,10892276,511,112)
{
link(onEventData,14838683:doMax,[(555,118)(555,167)(373,167)(373,216)])
link(Data,2616541:Count,[(517,100)(496,100)(496,169)(475,169)])
}
Add(Button,7359978,364,469)
{
Left=75
Top=15
Caption="Перебор"
link(onClick,5282527:doNext,[])
}
Add(Button,10133706,315,518)
{
Left=75
Top=45
Caption="Стоп"
Data=String(0)
link(onClick,15970225:doData,[])
}
Add(StrList,15967375,462,399)
{
link(onChange,14887253:doCalc,[])
}
Add(Counter,5282527,427,469)
{
Min=-1
Max=9999999
Default=-1
Point(doValue)
Point(doMax)
link(onNext,7562425:doRead,[])
}
Add(Edit,8524715,525,469)
{
Left=80
Top=70
}
Add(DoData,6910537,119,336)
{
link(onEventData,1752744:doEvent1,[])
link(Data,16216456:Text,[])
}
Add(StrList,16216456,119,280)
{
Strings=#4:1111|4:2222|4:3333|
}
Add(Hub,1752744,175,336)
{
link(onEvent1,2616541:doAdd,[(253,342)(253,118)])
link(onEvent2,15967375:doText,[(325,349)(325,426)])
}
Add(ArrayRW,7562425,476,469)
{
link(onRead,8524715:doText,[])
link(Array,15967375:Array,[])
}
Add(MathParse,14887253,518,399)
{
DataCount=1
MathStr="%1 - 1"
link(onResult,5282527:doMax,[(568,405)(568,548)(412,548)(412,503)])
link(X1,15967375:Count,[(524,387)(500,387)(500,456)(475,456)])
}
Add(DoData,15970225,364,518)
{
Data=String(-1)
link(onEventData,5282527:doValue,[(406,524)(406,496)])
}