Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2016-08-14 07:02:50 ЛС | профиль | цитата
Так более правильно.
code_37649.txt
или так
Add(VisualStrings,1954375,224,231)
{
Lines=#32:АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ|
Width=277
Height=25
}
Add(Str_Enum,7131583,224,273)
{
Delimiter=""
link(onEnum,6598412:doWork1,[])
link(String,1954375:Text,[])
}
Add(ChildPanel,6598412,280,273)
{
}
BEGIN_SDK
Add(EditMulti,6150847,21,21)
{
EventCount=1
WorkCount=1
link(doWork1,8398577:##add,[(81,27)(81,83)])
}
Add(Panel,976568,35,105)
{
Left=205
Top=10
Width=160
Height=320
}
Add(ChildPanelEx,8398577,140,77)
{
Mode=1
}
BEGIN_SDK
Add(EditMultiEx,14750960,21,21)
{
WorkCount=#5:##add|
EventCount=#8:onChange|
VarCount=#7:##index|
DataCount=#3:Str|
Point(##add)
Point(##index)
link(##add,9015282:doCaption,[(63,27)(63,69)])
}
Add(Panel,16399254,63,126)
{
Width=40
Height=40
Font=[MS Sans Serif,8,1,0,1]
Layout="parent.parent.grid"
BorderWidth=0
BevelInner=0
}
Add(LED,12644586,169,65)
{
Left=1
Top=1
Width=39
Height=39
Blick=1
ColorOff=-16777201
ColorBlick=-16777201
}
Add(Button,9015282,105,63)
{
Left=11
Top=10
Width=20
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Caption=""
Point(doCaption)
link(onClick,12644586:doChangeValue,[(153,69)(153,71)])
}
END_SDK
END_SDK
Add(MainForm,2790490,133,259)
{
Width=384
Height=372
Caption="Пример использования GridLayout в динамике"
link(onCreate,7131583:doEnum,[])
}
Add(GridLayout,4496329,133,210)
{
Name="grid"
Rows=8
Cols=4
}


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