Add(MainForm,11804680,259,189)
{
Caption="Пример использования RadioButton"
}
Add(RadioButton,5491183,392,161)
{
Left=165
Top=130
Width=85
TabOrder=-1
Selected=0
}
Add(RadioButton,15596047,483,161)
{
Left=165
Top=155
Width=85
TabOrder=-1
}
Add(Edit,8840266,714,266)
{
Left=265
Top=155
Width=115
Text=""
}
Add(Button,2415648,343,217)
{
Left=10
Top=155
link(onClick,7839193:doEvent,[])
}
Add(Label,7124843,343,161)
{
Left=70
Top=70
Width=240
Height=45
Caption="Выберите (установите флаг) на RadioButton и нажмите кнопку Push"
AutoSize=1
Alignment=2
}
Add(IndexToChanel,7839193,427,217)
{
Point(Index)
Point(Data)
link(onEvent1,8073662:doEvent,[])
link(onEvent2,16691494:doWork2,[(490,230)(490,272)])
link(Index,5491183:Selected,[(433,205)(398,205)])
link(Data,11907879:Text,[])
}
Add(IndexToChanel,8073662,518,217)
{
Point(Index)
Point(Data)
link(onEvent1,10151796:doEvent,[])
link(onEvent2,16691494:doWork1,[(585,230)])
link(Index,15596047:Selected,[(524,205)(489,205)])
link(Data,6135201:Text,[])
}
Add(HubEx,16691494,581,259)
{
link(onEvent,5345712:doWork2,[])
}
Add(RadioButton,13037347,581,161)
{
Left=165
Top=180
Width=85
TabOrder=-1
}
Add(Edit,11907879,434,161)
{
Left=80
Top=130
Width=70
Text="Привет!"
}
Add(Edit,6135201,525,161)
{
Left=80
Top=155
Width=70
Text="от"
}
Add(Edit,4665849,623,161)
{
Left=80
Top=180
Width=70
Text="HiAsm-a"
}
Add(IndexToChanel,10151796,616,217)
{
Point(Index)
Point(Data)
link(onEvent2,5345712:doWork1,[(690,230)])
link(Index,13037347:Selected,[(622,205)(587,205)])
link(Data,4665849:Text,[])
}
Add(HubEx,5345712,686,259)
{
link(onEvent,8840266:doText,[])
}
|
Разработчик
Ответов: 26324
Рейтинг: 2147
|
|||
|
Как-то так можно, самое простое, что на ум пришло
|
|||
| карма: 22 |
|



Поиск
Друзья
Администрация