Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2016-05-18 19:23:41 ЛС | профиль | цитата
Vadimluk1, а так
code_37271.txt
или так
Add(MainForm,2953706,98,154)
{
Width=839
Height=617
Caption="Кодом написать изображения"
BorderStyle=1
Position=1
}
Add(Memo,12636262,182,140)
{
Width=360
Height=513
Align=1
Strings=#6:НАЧАЛ;|24:фон_изображения=красный;|17:Точка_цвет=синий;|12:Точка_x=200;|12:Точка_y=200;|6:КОНЕЦ;|
}
Add(ChildPanel,16515643,98,203)
{
link(onEvent1,15404124:doModify,[])
link(onEvent2,4820467:In,[])
}
BEGIN_SDK
Add(EditMulti,6133974,21,21)
{
EventCount=2
Width=244
Height=53
}
Add(Panel,9727761,70,28)
{
Top=513
Width=833
Height=75
Align=4
}
Add(Button,5508565,161,28)
{
Left=20
Top=50
Width=205
Caption="Отобразить код"
link(onClick,6133974:onEvent2,[])
}
Add(Button,13504556,119,21)
{
Left=20
Top=10
Width=210
Caption="Приминить"
link(onClick,6133974:onEvent1,[])
}
END_SDK
Add(StrPart,3684892,497,203)
{
Char="="
Point(Right)
link(onSplit,16095526:doEnum,[])
link(Str,8663781:Var,[(503,191)(487,191)(487,248)(398,248)])
}
Add(MultiStrPart,3874398,238,203)
{
From=1
Count=4
Point(onNotFound)
link(onSplit,14748106:doEvent1,[])
link(onNotFound,3840726:In,[])
}
Add(Message,7442667,154,280)
{
Message="Нужны разделители, иначе код не будет работать!\r\nНапример \r\nНАЧАЛ;\r\nфон_изображения=красный;\r\nТак далее..."
Caption="Ошибка в коде!"
}
Add(LineBreak,9013396,840,189)
{
Primary=[4820467,-700,21]
}
Add(LineBreak,5526130,112,280)
{
link(Out,7442667:doMessage,[])
Primary=[3840726,175,-70]
}
Add(InfoTip,2039781,98,252)
{
Info=#11:При ошибки!|
Width=120
Height=74
}
Add(StrCase,15404124,182,203)
{
link(onModify,3874398:doSplit,[])
link(Str,12636262:Text,[])
}
Add(Hub,14748106,322,203)
{
link(onEvent1,9679807:doWork1,[])
link(onEvent2,9679807:doWork2,[])
}
Add(StrList,7819678,553,140)
{
Strings=#14:синий=16711680|11:красный=255|13:зеленый=65280|12:жёлтый=65535|15:оранжевый=33023|19:фиолетовый=14222473|16:розовый=16744703|8:чёрный=0|14:белый=16777215|14:серый=12632256|
}
Add(ArrayEnum,16095526,567,203)
{
link(onItem,15944576:doSearch,[])
link(Array,7819678:Array,[])
}
Add(Position,15944576,609,203)
{
link(onSearch,11802308:doCompare,[])
link(Target,3684892:Right,[(622,132)(541,132)(541,247)(503,247)])
}
Add(If_else,11802308,651,203)
{
Op2=Integer(1)
link(onTrue,9809072:doSplit,[])
}
Add(StrPart,9809072,700,203)
{
Char="="
Point(Right)
link(onSplit,3026133:doEvent,[])
link(Str,16095526:Item,[(706,191)(690,191)(690,244)(573,244)])
}
Add(ChanelToIndex,9679807,350,203)
{
link(onIndex,8663781:doIndex,[])
}
Add(Memory,1344723,441,203)
{
link(onData,3684892:doSplit,[])
}
Add(GetIndexData,8663781,392,203)
{
link(onIndex,1344723:doValue,[])
link(Data1,3874398:Part1,[(398,189)(235,189)(235,252)(244,252)])
link(Data2,3874398:Part2,[(405,181)(229,181)(229,258)(251,258)])
}
Add(IndexToChanel,3026133,749,203)
{
Point(Index)
link(onEvent1,13028006:doEvent,[])
link(onEvent2,15915698:doEvent,[(785,216)(785,286)])
link(Index,1344723:Value,[(755,126)(480,126)(480,243)(447,243)])
}
Add(Debug,13028006,805,203)
{
}
Add(Debug,15915698,805,280)
{
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_37271.txt [3.9KB] [381]