Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2010-04-27 13:37:45 ЛС | профиль | цитата
и так можно
code_17988.txt
применил два компонента Ini для наглядности - вполне можно обойтись и одним.

Add(MainForm,4092557,56,63)
{
Left=21
Top=105
Width=355
Height=85
Font=[Arial,8,0,0,1]
Caption="INI и выпадающий список"
BorderStyle=1
Position=1
}
Add(Ini,4952295,224,105)
{
Type=1
Point(doSectionNames)
Point(onSectionNames)
Point(doSectionData)
Point(onSectionData)
link(FileName,2450107:Value,[])
link(onSectionNames,5536846:doAdd,[(270,118)(270,90)])
link(onSectionData,7096850:doSplit,[(264,125)(264,181)])
}
Add(ComboBox,5536846,294,84)
{
Left=80
Top=10
Width=105
Height=21
Text="Список секций"
DataType=1
link(onClick,1091438:doEvent1,[])
}
Add(Button,10270089,49,105)
{
Left=15
Top=10
link(onClick,9860172:doExecute,[])
}
Add(ODialog,9860172,105,105)
{
Filter="INI-файлы|*.ini"
StartDir="elementsDelphiconf"
link(onExecute,2241067:doEvent1,[])
}
Add(Hub,2241067,161,105)
{
OutCount=3
link(onEvent1,5536846:doClear,[(190,111)(190,97)])
link(onEvent2,2450107:doValue,[(181,118)(181,55)])
link(onEvent3,4952295:doSectionNames,[])
}
Add(Memory,2450107,224,49)
{
}
Add(ComboBox,4037425,392,182)
{
Left=205
Top=10
Width=130
Height=21
}
Add(Hub,1091438,343,91)
{
link(onEvent1,4037425:doClear,[(382,97)(382,195)])
link(onEvent2,4952295:doSectionData,[(371,104)(371,147)(212,147)(212,132)])
}
Add(StrPart,7096850,280,175)
{
Char="="
link(onPart,4037425:doAdd,[])
}


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