Вверх ↑
Ответов: 23
Рейтинг: 0
#1: 2006-09-05 02:22:43 ЛС | профиль | цитата
to Вячеслав (open и взаимодействие с ini)
Add(MainForm,16667266,49,7)
{
Left=20
Top=105
Width=626
Height=295
Caption="Контроль недействительных полисов"
link(onCreate,16301219:doRead,[(185,48)(185,230)])
}
Add(Hub,15233527,98,98)
{
InCount=2
OutCount=1
link(onEvent1,5559808:doText,[])
}
Add(Edit,5559808,147,98)
{
Left=120
Top=10
Width=260
Text="страховой компании"
link(onChange,9674355:doEvent1,[(198,104)(198,104)])
}
Add(ODialog,64572,49,98)
{
Filter="*.dbf"
Title="Открыть список"
link(onExecute,15233527:doEvent1,[])
}
Add(Ini,16301219,266,224)
{
FileName="Tester.ini"
Section="File"
Key="Open"
Type=1
Point(doDeleteKey)
link(onResult,5559808:doText2,[(315,230)(315,174)(137,174)(137,111)])
}
Add(Button,4477047,7,98)
{
Left=10
Top=10
Width=105
Caption="Данные из файла"
link(onClick,64572:doExecute,[])
}
Add(Button,8822839,7,231)
{
Left=10
Top=35
Width=105
Caption="Сброс настроек"
link(onClick,1130337:doEvent1,[])
}
Add(Hub,9674355,203,98)
{
link(onEvent2,16301219:doWrite,[(254,111)(254,237)])
}
Add(Hub,1130337,56,231)
{
link(onEvent1,15233527:doEvent2,[(93,237)(93,111)])
link(onEvent2,16301219:doDeleteKey,[])
}
карма: 0

0