Tad писал(а):
Не понял юмораУпс!
Add(MainForm,6609510,357,168)
{
}
Add(Edit,10036881,413,210)
{
Left=35
Top=30
Text="-1"
}
Add(Button,9639862,301,266)
{
Left=30
Top=70
Caption=">>"
link(onClick,14064421:doData,[])
}
Add(Edit,5346580,357,210)
{
Left=115
Top=30
Text="150"
MaxLenField=1
}
Add(Label,13019774,413,168)
{
Left=20
Top=10
Width=150
Height=20
Caption=" Канал Данные "
AutoSize=1
}
Add(MultiElementEx,1844477,406,266)
{
link(onEvent,3581845:Cable,[])
link(Index,10036881:Text,[])
}
BEGIN_SDK
Add(EditMultiEx,4598509,21,21)
{
WorkCount=#7:doEvent|0:|
EventCount=#7:onEvent|0:|
DataCount=#4:Data|5:Index|
Width=454
Height=221
VOffset=35
HOffset=21
link(doEvent,12385825:doValue,[])
}
Add(IndexToChanel,5765865,378,182)
{
Count=5
Point(Data)
Point(EndIdx)
link(onEvent1,8173869:Wire1,[])
link(onEvent2,8173869:Wire2,[])
link(onEvent3,8173869:Wire3,[])
link(onEvent4,8173869:Wire4,[])
link(onEvent5,8173869:Wire5,[])
link(Data,12385825:Value,[(384,173)(48,173)])
}
Add(For,15680118,259,182)
{
link(onEvent,5765865:doEvent,[])
link(Start,12848207:Data,[])
link(End,2432431:Var,[(272,166)(314,166)])
}
Add(Replace,15341812,140,56)
{
SubStr=" "
link(onReplace,5646015:doSplit,[])
link(Str,4598509:Index,[(146,40)(55,40)])
}
Add(GetIndexData,2432431,308,119)
{
Count=3
link(onIndex,15680118:doFor,[(347,125)(347,223)(249,223)(249,188)])
link(Data1,6721285:Value,[])
link(Data2,5646015:Part1,[(321,110)(202,110)])
link(Data3,5765865:EndIdx,[(328,110)(356,110)(356,229)(384,229)])
}
Add(ChanelToIndex,12848207,259,119)
{
Count=3
Point(Data)
link(onIndex,2432431:doIndex,[])
}
Add(MultiStrPart,5646015,196,56)
{
Char="-"
Count=1
Direct=1
Point(onNotFound)
link(onSplit,16368857:doCase,[(235,62)(235,48)(186,48)(186,132)])
link(onNotFound,6721285:doValue,[])
}
Add(Memory,12385825,42,56)
{
Point(Data)
link(onData,1989454:doData,[])
link(Data,4598509:Data,[])
}
Add(CableWork,8173869,434,182)
{
Count=5
link(Cable,4598509:onEvent,[(459,188)(459,62)])
}
Add(DoData,1989454,91,56)
{
link(onEventData,15341812:doReplace,[])
}
Add(Memory,6721285,308,63)
{
link(onData,12848207:doWork1,[(347,69)(347,55)(249,55)(249,125)])
}
Add(Case,16368857,196,126)
{
Value=String()
DataOnTrue=Integer(0)
link(onNextCase,12848207:doWork2,[])
link(onTrue,12848207:doWork3,[])
}
Add(Icon,12064728,42,182)
{
@Hint=#5:#main|
Icon=[ZIP5E07000078DA636060044209090610C9E0C1CEC020C6C0C0A001C4402106030688380828B0330C4AB064C10220A2DC1086FF0C40448951704328348A5AE650CB5F540CE7419812D07491176268BAC88B414C5DD432875AFEA262380F1B305AFE0CDDF2E73F187C06E28740CC00C50FA16210701EC86E078A31C803BDC1CFF0BFFDF9C3FFE73F03E57F0225FFE0D70F008891DF50]
}
END_SDK
Add(Edit,7446813,518,266)
{
Left=115
Top=70
Text=""
}
Add(Edit,906816,518,301)
{
Left=115
Top=95
Text=""
}
Add(Edit,158500,518,336)
{
Left=115
Top=120
Text=""
}
Add(Edit,11918236,518,371)
{
Left=115
Top=145
Text=""
}
Add(Edit,1558021,518,406)
{
Left=115
Top=170
Text=""
}
Add(CableEvent,3581845,455,266)
{
Count=5
link(Wire1,7446813:doText,[])
link(Wire2,906816:doText,[(508,279)(508,307)])
link(Wire3,158500:doText,[(501,286)(501,342)])
link(Wire4,11918236:doText,[(494,293)(494,377)])
link(Wire5,1558021:doText,[(487,300)(487,412)])
}
Add(DoData,14064421,357,266)
{
link(onEventData,1844477:doEvent,[])
link(Data,5346580:Text,[])
}
Немного усовершенствовал и добавил иконку