Вверх ↑
Этот топик читают: Гость
Ответов: 41
Рейтинг: 0
#1: 2013-04-22 13:46:50 ЛС | профиль | цитата
Вот пробую перетягивать строки из одной таблицы в другую.Все по примеру пертягивание текста из справки hiasm. Что то не идет фича никак.Вроде и строк с делиметром передается в элемент..но переброс не проходит.Даже курсор не меняется.Прошу помощи знатоки.Пробная схема внизу.
code_30864.txt
карма: 0

0
Главный модератор
Ответов: 3000
Рейтинг: 396
#2: 2013-04-22 14:07:36 ЛС | профиль | цитата
Перетаскивание по нажатию правой кнопки мыши:
схема

Add(MainForm,16216457,63,119)
{
Width=1029
Height=630
link(onCreate,16053946:doEvent1,[])
}
Add(FormatStr,4149970,217,189)
{
Mask="%1;%1;%1"
link(onFString,673766:doAdd,[])
}
Add(For,6872127,175,189)
{
End=10
link(onEvent,4149970:doString,[])
}
Add(StringTableMT,673766,322,189)
{
Left=90
Top=105
Width=300
Height=180
Columns=#1:A|1:B|1:C|
Redaction=0
SingleString=0
Grid=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(doSelect)
Point(onMouseMove)
link(onMouseMove,15444994:doDrag,[(485,202)(485,307)])
}
Add(DropTextManager,14192293,511,133)
{
ControlManager="main"
link(onDrop,16423243:doAdd,[])
}
Add(DragText,9025341,609,378)
{
DragDefaultCursor=1
Point(onDrop)
link(onResult,15444994:doReset,[(653,384)(653,359)(552,359)(552,314)])
link(Text,8404743:Var3,[(615,366)(480,366)(480,380)])
}
Add(MultiElementEx,15444994,616,301)
{
@Hint=#10:Catch drag|
link(onDrag,9025341:doDrag,[(684,307)(684,350)(597,350)(597,384)])
}
BEGIN_SDK
Add(EditMultiEx,10041686,14,21)
{
WorkCount=#6:doDrag|7:doReset|
EventCount=#6:onDrag|0:|
Width=363
Height=235
link(doDrag,10709717:doEvent,[(24,27)(24,111)])
link(doReset,5262239:doWork2,[(20,34)(20,167)])
}
Add(Counter,12567857,182,112)
{
link(onNext,9294019:doEvent,[])
}
Add(IndexToChanel,10709717,35,105)
{
link(onEvent2,12986394:doData,[])
}
Add(Hub,5039386,140,161)
{
link(onEvent1,12567857:doReset,[(173,167)(173,132)])
link(onEvent2,3344081:doEnable,[(262,174)(262,146)])
}
Add(MouseEvent,5725366,133,28)
{
}
Add(ChangeMon,12986394,91,112)
{
link(onData,6239943:doEvent1,[])
link(Data,8794832:GetData,[])
}
Add(Math,3390384,133,70)
{
ResultType=0
link(onResult,8794832:doData,[(184,76)(184,64)(79,64)(79,76)])
link(Op1,5725366:MouseX,[])
link(Op2,5725366:MouseY,[])
}
Add(EventFromData,8794832,91,70)
{
link(onEvent,3390384:doOperation,[])
}
Add(Timer,10109046,175,182)
{
Enable=1
AutoStop=1
link(onTimer,5262239:doWork3,[(215,188)(215,225)(130,225)])
}
Add(Hub,6239943,140,112)
{
link(onEvent1,12567857:doNext,[])
link(onEvent2,10109046:doTimer,[(164,125)(164,188)])
}
Add(IndexToChanel,9294019,224,112)
{
Count=4
Data=Integer(1)
link(onEvent4,3344081:doData,[])
}
Add(Hub,7034804,322,133)
{
link(onEvent1,3344081:doDisable,[(347,139)(347,174)(268,174)(268,153)])
link(onEvent2,10041686:onDrag,[(356,146)(356,27)])
}
Add(HubEx,5262239,126,161)
{
link(onEvent,5039386:doEvent1,[])
}
Add(MultiElementEx,3344081,280,133)
{
@Hint=#4:Gate|
link(onTrue,7034804:doEvent1,[])
}
BEGIN_SDK
Add(EditMultiEx,10151340,3,3)
{
WorkCount=#6:doData|8:doEnable|9:doDisable|
EventCount=#6:onTrue|
Width=181
Height=116
link(doData,1711681:doEvent,[(49,9)(49,76)])
link(doEnable,9857344:doOn,[(39,16)(39,41)])
link(doDisable,9857344:doReset,[(29,23)(29,34)])
}
Add(IndexToChanel,1711681,70,70)
{
Point(Index)
link(onEvent2,10151340:onTrue,[(143,83)(143,9)])
link(Index,9857344:State,[])
}
Add(Switch,9857344,70,21)
{
DataOn=Integer(1)
DataOff=Integer(0)
Point(State)
Point(doOn)
}
END_SDK
END_SDK
Add(Hub,16053946,133,133)
{
link(onEvent1,14192293:doListen,[])
link(onEvent2,6872127:doFor,[(161,146)(161,195)])
}
Add(StringTableMT,16423243,567,133)
{
Left=565
Top=110
Width=340
Height=170
Name="main"
Columns=#1:A|1:B|1:C|
IconsCheck=[]
MiscIcons=[]
Icons=[]
}
Add(GetDataEx,8404743,336,375)
{
Angle=3
link(Data,673766:Select,[(335,380)])
}
Add(Label,11480559,406,28)
{
Left=435
Top=195
Width=81
Height=20
Color=16777215
Font=[MS Sans Serif,12,1,0,1]
Caption=">>>>>>>>>>>"
}
------------ Дoбавленo в 14.07:
После запуска схемы - первое нажание правой кнопки мыши "холостое". Надо это учитывать.
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 41
Рейтинг: 0
#3: 2013-04-22 14:38:52 ЛС | профиль | цитата
благодарю за помощь! все зер гуд...в общем то и было изначально.Запара на работе все мозги скрутила.
карма: 0

0
файлы: 1code_30864.txt [3.6KB] [92]
3
Сообщение
...
Прикрепленные файлы
(файлы не залиты)