Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2008-04-17 15:07:49 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:10:46
карма: 0

0
Ответов: 315
Рейтинг: 1
#2: 2008-04-17 15:15:19 ЛС | профиль | цитата
Семён, пробуй:


Add(MainForm,13968428,21,105)
{
Left=20
Top=105
Width=341
Height=187
Caption="GS_Lab"
}
Add(BlockFind,203015,245,175)
{
IncludeBlock=1
StartBlock="="
EndBlock="
"
link(onSearch,7700290:doAdd,[(289,181)(289,111)])
link(Text,4926067:Text,[])
}
Add(Memo,4926067,245,105)
{
Left=5
Top=5
Width=155
Height=120
}
Add(Memo,7700290,301,105)
{
Left=170
Top=5
Width=155
Height=120
}
Add(Button,8645585,84,133)
{
Left=5
Top=130
Width=115
Caption="Загрузить"
link(onClick,6680880:doExecute,[])
}
Add(ODialog,6680880,126,133)
{
Filter="ONEFile|*.one"
FileName=""
link(onExecute,5627120:doEvent1,[])
}
Add(Hub,5627120,168,133)
{
link(onEvent1,4926067:doLoad,[])
link(onEvent2,203015:doSearch,[(222,146)(222,181)])
}
____________________________________________________________
Спасибо не пиши, не засоряй форум, лудше ставь плюс в репутацию.
карма: 0

0
Ответов: 9906
Рейтинг: 351
#3: 2008-04-17 15:26:15 ЛС | профиль | цитата
Вообще-то, это чистый INI-файл


#sha
Add(MainForm,13968428,294,126)
{
Left=20
Top=105
Width=504
link(onCreate,3217758:doEnum,[])
}
Add(Memo,7700290,476,161)
{
Left=210
Top=10
Width=170
Height=120
}
Add(Ini,12239346,420,161)
{
FileName="file.one"
Section="File"
Type=1
link(onResult,7700290:doAdd,[])
}
Add(ArrayEnum,3217758,364,161)
{
link(onItem,12239346:doRead,[])
link(Array,2953522:Array,[])
}
Add(StrList,2953522,350,98)
{
Strings=#7:Stroka1|7:Stroka2|
}
карма: 9

0
Гость
Ответов: 17029
Рейтинг: 0
#4: 2008-04-17 15:43:29 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:10:47
карма: 0

0
Ответов: 315
Рейтинг: 1
#5: 2008-04-17 15:49:15 ЛС | профиль | цитата
Семён писал(а):
а теперь сама соль

Семён, еще легче:


#sha
Add(MainForm,6718579,210,518)
{
Left=20
Top=105
Width=191
Height=189
}
Add(Ini,12239346,245,581)
{
FileName=""
Section="USERS"
Key="user4"
Type=1
link(onResult,9263958:doAdd,[])
}
Add(Memo,9263958,287,581)
{
Left=5
Top=5
Width=170
Height=120
}
Add(ODialog,6680880,203,581)
{
Filter="ONEFile|*.one"
FileName=""
link(onExecute,12239346:doRead,[])
}
Add(Button,8645585,161,581)
{
Left=5
Top=130
Width=170
Caption="Загрузить"
link(onClick,6680880:doExecute,[])
}

карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#6: 2008-04-17 15:52:08 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:10:47
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2008-04-17 16:19:13 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:10:47
карма: 0

0
7
Сообщение
...
Прикрепленные файлы
(файлы не залиты)