Опять же таки немного не могу разобраться как из двух сделать один в принципе сделал но мне не нравится это видимые таблицы фигурируют и матрицами ещё пошел, как то по китайски но в принципе работает а хотелось бы ограничиться только списком строк, вот что сделал но мне не нравится.
Код:
Add(MainForm,2953706,133,238)
{
Width=629
Height=380
link(onCreate,4356177:doEvent1,[])
}
Add(FormatStr,5259113,700,560)
{
Mask="%1;%2"
link(onFString,395439:doAdd,[])
link(Str1,9117715:Value,[])
link(Str2,6015842:Value,[(713,548)(664,548)(664,590)(615,590)])
}
Add(For,1928597,420,448)
{
link(onEvent,11008716:doEvent1,[(460,454)(460,517)])
link(End,11291643:Count,[(433,429)(461,429)])
}
Add(StringTable,6260040,525,322)
{
Left=15
Top=60
Width=135
Height=240
Columns=#4:Цена|
Point(Matrix)
}
Add(StringTable,11291643,455,336)
{
Left=160
Top=60
Width=160
Height=240
Columns=#5:Текст|
Point(Matrix)
}
Add(MatrixRW,11815856,497,511)
{
link(onRead,6015842:doValue,[(569,517)(569,552)])
link(Matrix,11291643:Matrix,[(503,461)(475,461)])
link(X,3889298:Var1,[(517,460)])
link(Y,1727351:Var2,[])
}
Add(StringTable,395439,770,560)
{
Left=330
Top=60
Width=265
Height=240
Columns=#4:Цена|5:Текст|
Point(Matrix)
}
Add(Memory,15727389,595,413)
{
Default=Integer(0)
}
Add(MatrixRW,7780626,567,518)
{
link(onRead,9117715:doValue,[(625,524)(625,475)])
link(Matrix,6260040:Matrix,[(573,450)(545,450)])
link(X,3889298:Var2,[])
link(Y,1727351:Var3,[(594,495)])
}
Add(GetDataEx,3889298,581,455)
{
Angle=1
link(Data,15727389:Value,[(601,460)])
}
Add(GetDataEx,1727351,518,490)
{
Angle=3
link(Data,1928597:Position,[(426,495)])
}
Add(Hub,11008716,469,511)
{
OutCount=4
link(onEvent1,11815856:doRead,[])
link(onEvent2,7780626:doRead,[])
link(onEvent4,5259113:doString,[(591,538)(591,566)])
}
Add(Memory,9117715,700,469)
{
}
Add(Memory,6015842,609,546)
{
}
Add(StrList,3266022,238,189)
{
Strings=#8:Помидоры|6:Огурцы|7:Капуста|5:Свела|
}
Add(StrList,12902633,343,168)
{
Strings=#2:25|2:41|2:85|2:14|
}
Add(Button,7603652,203,448)
{
Left=295
Top=10
Width=190
Height=40
Caption="Соединить"
link(onClick,1928597:doFor,[])
}
Add(ArrayEnum,7457258,357,252)
{
link(onItem,6260040:doAdd,[(492,258)(492,328)])
link(Array,12902633:Array,[])
}
Add(ArrayEnum,1945334,252,280)
{
link(onItem,11291643:doAdd,[(398,286)(398,342)])
link(Array,3266022:Array,[])
}
Add(InfoTip,11298100,420,287)
{
Info=#14:Они тут лишние|
Font=[MS Sans Serif,12,1,0,1]
Width=176
Height=109
}
Add(Hub,4356177,196,252)
{
link(onEvent1,7457258:doEnum,[])
link(onEvent2,1945334:doEnum,[(231,265)(231,286)])
}
Отредактировано Phenix (2024-04-09 10:06:07)