Вверх ↑
Этот топик читают: Гость
Ответов: 230
Рейтинг: 1
#1: 2014-11-24 20:42:20 ЛС | профиль | цитата
Как изменить позицию в списке строк в соответствие с вертикальным слоем?
code_34676.txt
карма: 1

0
файлы: 1code_34676.txt [1.2KB] [182]
Ответов: 1343
Рейтинг: 31
#2: 2014-11-24 22:07:54 ЛС | профиль | цитата
ну вот начало , дальше сам думай

Add(MainForm,904362,112,112)
{
Width=800
Height=555
link(onCreate,3390336:doFor,[])
}
Add(ChildPanelEx,13454018,315,126)
{
Mode=1
link(onMouseEnter,7561389:doEvent1,[])
}
BEGIN_SDK
Add(EditMultiEx,223974,21,21)
{
WorkCount=#5:##add|
EventCount=#12:onMouseEnter|11:onCalcDelta|
Width=391
Height=172
Point(##add)
link(##add,13914362:doStrCat,[(59,27)(59,97)])
}
Add(Panel,251154,231,126)
{
Left=35
Top=105
Width=451
Height=52
Layout="parent.111"
Point(onMouseDown)
Point(Handle)
Point(Top)
link(onMouseDown,11110887:doMove,[])
}
Add(StrCat,13914362,98,91)
{
Str1="Панель номер "
link(onStrCat,1941228:doTimer,[])
}
Add(MoveWindow,11110887,329,133)
{
link(Handle,12421816:Var3,[(335,121)(287,121)(287,170)])
}
Add(Img_Text,13066895,231,91)
{
X=5
Y=5
DrawSource=1
Font=[MS Sans Serif,14,0,0,1]
link(Bitmap,12421816:Var1,[(237,72)(215,72)(215,170)])
link(Text,13914362:Result,[(244,79)(153,79)(153,135)(104,135)])
}
Add(GetDataEx,12421816,231,165)
{
link(Data,251154:Handle,[])
}
Add(Timer,1941228,147,91)
{
Interval=100
Enable=1
link(onTimer,9109936:doEvent1,[])
}
Add(Hub,9109936,189,91)
{
link(onEvent1,13066895:doDraw,[])
link(onEvent2,223974:onMouseEnter,[(311,104)(311,27)])
}
END_SDK
Add(VBoxLayout,12676266,413,126)
{
Name="111"
Point(doSort)
AddHint(70,39,64,13,AddMode)
}
Add(For,3390336,168,126)
{
End=4
link(onEvent,205938:doEvent1,[])
}
Add(Hub,7561389,378,126)
{
link(onEvent1,12676266:doSort,[(402,132)(402,139)])
link(onEvent2,12676266:doResize,[(402,139)(402,132)])
}
Add(ListBox,10225584,294,175)
{
Top=436
Width=784
Align=4
}
Add(Hub,205938,231,126)
{
link(onEvent1,13454018:##add,[])
link(onEvent2,10225584:doAdd,[(269,139)(269,181)])
}
карма: 2

0
Ответов: 230
Рейтинг: 1
#3: 2014-11-24 22:12:28 ЛС | профиль | цитата
Rysik, только номера в ListBox не меняются,остаются такие же
карма: 1

0
Ответов: 1343
Рейтинг: 31
#4: 2014-11-24 22:15:24 ЛС | профиль | цитата
щас поправил, и давай приучайся ставить тип контейнера Dynamic

и я к тому что у тебя пример был ну просто не хороший, так как не было возможности перетаскивать за Label да и схема не красивая
карма: 2

0
Ответов: 230
Рейтинг: 1
#5: 2014-11-24 22:17:13 ЛС | профиль | цитата
Rysik, вот так?
Add(MainForm,2953706,21,105)
{
Height=555
Color=-16777200
link(onCreate,3390336:doFor,[(125,125)(125,188)])
}
Add(ChildPanelEx,13454018,322,182)
{
Mode=1
}
BEGIN_SDK
Add(EditMultiEx,223974,21,21)
{
WorkCount=#5:##add|
Point(##add)
link(##add,13914362:doStrCat,[(49,27)(49,160)])
}
Add(Panel,251154,189,126)
{
Left=35
Top=105
Width=451
Height=52
Color=16777215
Layout="parent.111"
Point(Handle)
link(onClick,15069221:doWork2,[])
}
Add(Label,3593560,168,91)
{
Left=70
Top=15
Height=28
Color=16777215
Font=[MS Sans Serif,14,0,0,1]
link(onClick,15069221:doWork1,[(235,97)])
}
Add(StrCat,13914362,119,154)
{
Str1="Панель номер "
link(onStrCat,3593560:doText,[(159,160)(159,97)])
}
Add(MoveWindow,11110887,252,126)
{
link(Handle,251154:Handle,[(258,114)(226,114)(226,170)(195,170)])
}
Add(HubEx,15069221,231,126)
{
link(onEvent,11110887:doMove,[])
}
END_SDK
Add(VBoxLayout,12676266,504,49)
{
Name="111"
Point(doSort)
AddHint(70,39,64,13,AddMode)
}
Add(Timer,4947626,420,49)
{
link(onTimer,7561389:doEvent1,[])
}
Add(For,3390336,196,182)
{
End=4
link(onEvent,205938:doEvent1,[])
}
Add(Hub,7561389,469,49)
{
link(onEvent1,12676266:doSort,[(493,55)(493,62)])
link(onEvent2,12676266:doResize,[(493,62)(493,55)])
}
Add(ListBox,10225584,322,231)
{
Top=437
Width=384
Align=4
}
Add(Hub,205938,259,182)
{
link(onEvent1,13454018:##add,[])
link(onEvent2,10225584:doAdd,[(297,195)(297,237)])
}


карма: 1

0
файлы: 1code_34677.txt [1.5KB] [186]
Ответов: 1343
Рейтинг: 31
#6: 2014-11-24 22:21:41 ЛС | профиль | цитата
lll0 писал(а):
вот так?


только вот зачем там таймер, поставь хаб параллельно началу перетаскивания и прицепи вместо таймера
карма: 2

0
Ответов: 230
Рейтинг: 1
#7: 2014-11-24 22:25:12 ЛС | профиль | цитата
вот,но в ListBox не меняется значение на те,которые на форме
вот,например, у меня идет сначала 1 панель,потом 2,4,3.В общем не по очереди.А в ListBox все так же
code_34679.txt
карма: 1

0
Ответов: 8959
Рейтинг: 824
#8: 2014-11-24 23:18:37 ЛС | профиль | цитата
lll0, какие-то у вас хотелки странные А так:code_34681.txt
карма: 19

0
файлы: 1code_34681.txt [2.9KB] [237]
Ответов: 230
Рейтинг: 1
#9: 2014-11-25 00:09:28 ЛС | профиль | цитата
Леонид, спасибо
карма: 1

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