Вверх ↑
Разработчик
Ответов: 26068
Рейтинг: 2121
#1: 2017-04-21 01:08:24 ЛС | профиль | цитата
Че-то схема дюже навороченная, можно обойтись без всего этого безобразия и сразу формировать нужную строку

Схема

Add(MainForm,2953706,91,147)
{
Width=584
Height=290
Caption="Генератор сообщений МЧ"
Position=1
}
Add(Label,5193183,91,196)
{
Left=30
Top=146
Width=75
Height=20
Font=[Verdana,10,1,0,204]
Caption="Никнейм"
Point(doAlign)
}
Add(Label,7075741,98,203)
{
Left=30
Top=29
Width=59
Height=20
Font=[Verdana,10,1,0,204]
Caption="Сервер"
}
Add(Label,7552149,210,336)
{
Left=130
Top=110
Width=24
Height=20
Font=[Verdana,10,1,0,204]
Visible=1
Caption="ЛР"
Point(doVisible)
}
Add(Label,7929715,105,210)
{
Left=30
Top=180
Width=49
Height=20
Font=[Verdana,10,1,0,204]
Caption="Пункт"
}
Add(Edit,10131165,210,182)
{
Left=110
Top=146
Width=210
Text=" "
link(onEnter,7104880:doWork2,[])
}
Add(ComboBox,12302809,210,126)
{
Left=110
Top=29
Width=210
Height=21
Strings=#6:ру 1, |6:ру 2, |6:ру 3, |6:ру 4, |6:ру 5, |6:ру 6, |6:ру 7, |6:ру 8, |6:ру 9, |7:ру 10, |
Text=""
DataType=1
link(onClick,3182348:doWork2,[])
}
Add(ComboBox,1548087,210,70)
{
Left=110
Top=180
Width=210
Height=21
Strings=#9: - п.1.1 |9: - п.1.2 |9: - п.1.3 |9: - п.1.4 |9: - п.1.5 |9: - п.1.6 |9: - п.1.7 |9: - п.1.8 |9: - п.1.9 |10: - п.1.10 |10: - п.1.11 |10: - п.1.12 |10: - п.1.13 |10: - п.1.14 |10: - п.1.15 |10: - п.1.17 |10: - п.1.18 |10: - п.1.19 |10: - п.1.21 |10: - п.1.23 |
Text=""
DataType=1
link(onClick,3182348:doWork1,[(284,83)])
}
Add(BitBtn,2665041,210,574)
{
Left=420
Top=29
Width=120
Height=101
Font=[MS Sans Serif,10,1,0,1]
Caption="БУФЕР"
link(onClick,6110207:doEvent1,[])
}
Add(BitBtn,6348111,210,511)
{
Left=340
Top=146
Width=200
Height=55
Caption="Очистить буфер"
link(onClick,3461902:doEvent1,[])
}
Add(BitBtn,11538215,91,483)
{
Left=340
Top=29
Width=65
Height=101
Caption="Роспуск?"
Data=String( - прошу роспустить )
link(onClick,5514822:doWork2,[])
}
Add(Edit,6152951,210,385)
{
Left=154
Top=110
Width=166
Height=21
Visible=1
Text=" лр "
Point(doVisible)
link(onEnter,15076525:doWork2,[])
}
Add(BitBtn,6792200,91,301)
{
Left=30
Top=65
Width=90
Height=30
Caption="Рота"
Data=String( рота, )
link(onClick,8040208:doEvent1,[])
}
Add(BitBtn,15202800,91,392)
{
Left=130
Top=65
Width=90
Height=30
Caption="КБ"
Data=String( кб, )
link(onClick,13443699:doEvent1,[])
}
Add(BitBtn,4454176,91,441)
{
Left=230
Top=65
Width=90
Height=30
Caption="Трени"
Data=String( трени, )
link(onClick,1963238:doWork2,[])
}
Add(ComboBox,8124499,210,231)
{
Left=30
Top=110
Width=90
Height=21
Visible=1
Strings=#8: юниор, |7: сред, |7: чемп, |7: абсл, |
Text=""
DataType=1
Point(doVisible)
link(onClick,9829169:doWork2,[])
}
Add(Hub,13443699,154,392)
{
link(onEvent1,7552149:doVisible,[(186,398)(186,349)])
link(onEvent2,6152951:doVisible,[])
}
Add(Hub,8040208,154,301)
{
link(onEvent1,8124499:doVisible,[(179,307)(179,279)])
link(onEvent2,11427010:doWork2,[])
}
Add(Clipboard,7226075,385,581)
{
Point(PutText)
link(PutText,8961757:Text,[])
}
Add(Edit,8961757,385,483)
{
Left=30
Top=210
Width=510
Text=""
ReadOnly=0
}
Add(StrCat,7671504,329,483)
{
Point(doClear)
link(onStrCat,8961757:doText,[])
link(Str1,7671504:Result,[(335,474)(321,474)(321,523)(335,523)])
}
Add(HubEx,5514822,280,483)
{
link(onEvent,7671504:doStrCat,[])
}
Add(HubEx,1963238,280,441)
{
Angle=1
link(onEvent,5514822:doWork1,[])
}
Add(HubEx,15076525,280,392)
{
Angle=1
link(onEvent,1963238:doWork1,[])
}
Add(HubEx,11427010,280,308)
{
Angle=1
link(onEvent,15076525:doWork1,[])
}
Add(HubEx,9829169,280,238)
{
Angle=1
link(onEvent,11427010:doWork1,[])
}
Add(HubEx,7104880,280,189)
{
Angle=1
link(onEvent,9829169:doWork1,[])
}
Add(HubEx,3182348,280,133)
{
Angle=1
link(onEvent,7104880:doWork1,[])
}
Add(Hub,3461902,259,511)
{
link(onEvent1,7671504:doClear,[(298,517)(298,496)])
link(onEvent2,5514822:doWork3,[(284,524)])
}
Add(KeyboardLayout,13107376,329,539)
{
}
Add(Hub,6110207,273,574)
{
link(onEvent1,13107376:doRussianKbd,[(298,580)(298,552)])
link(onEvent2,7226075:doPutText,[])
}

карма: 22

0
Редактировалось 1 раз(а), последний 2017-04-21 01:10:33