Вверх ↑
Этот топик читают: Гость
Ответов: 198
Рейтинг: 2
#1: 2016-01-07 08:44:39 ЛС | профиль | цитата
Всем привет, подскажите по теме.
На форму Image запилен, нужно как-то за него перетаскивать форму.

code_36756.txt
карма: 0

0
файлы: 1code_36756.txt [152B] [89]
Ответов: 258
Рейтинг: -27
#2: 2016-01-07 09:55:40 ЛС | профиль | цитата
Да как раз плюнуть


Add(MainForm,12249499,434,161)
{
Width=502
Height=362
Color=-16777196
BorderStyle=0
Position=1
Point(doLeft)
Point(doTop)
Point(Top)
Point(Left)
Point(MouseX)
Point(MouseY)
}
Add(Image,1572369,644,105)
{
Left=170
Top=95
Width=160
Height=110
Color=-16777200
WinStyle=2
Point(onMouseDown)
Point(onMouseUp)
Point(MouseX)
Point(MouseY)
Point(onKillFocus)
Point(onMouseLeave)
link(onMouseDown,8004475:doEvent1,[(845,118)(845,188)])
link(onMouseUp,4941295:doWork1,[(807,125)])
link(onKillFocus,4941295:doWork2,[])
link(onMouseLeave,15738082:doWork2,[])
}
Add(Thread,2883,938,392)
{
@Hint=#20:Запуск нового потока|
Delay=2
Point(doStopFlag)
link(onExec,10120619:doEvent1,[])
}
Add(Hub,8004475,882,182)
{
OutCount=3
link(onEvent1,1607645:doWork2,[])
link(onEvent2,13291456:doWork1,[(994,195)])
link(onEvent3,2883:doStart,[(917,202)(917,398)])
}
Add(HubEx,15738082,803,133)
{
Angle=1
link(onEvent,2291810:doEvent1,[(807,412)])
}
Add(HubEx,4941295,803,126)
{
Angle=1
link(onEvent,15738082:doWork1,[])
}
Add(MouseEvent,3049924,1001,84)
{
}
Add(Memory,8971729,1148,161)
{
Point(Data)
link(Data,14258808:Var2,[(1154,139)(1007,139)])
}
Add(Memory,1543817,1106,221)
{
Point(Data)
link(Data,13160171:Var2,[(1112,169)(1014,169)])
}
Add(Hub,2291810,826,406)
{
link(onEvent1,2883:doStopFlag,[])
link(onEvent2,2883:doStop,[(889,419)(889,405)])
}
Add(Math,6402292,1085,392)
{
OpType=1
link(onResult,1597559:doValue,[])
link(Op1,14258808:Var3,[(1091,131)])
link(Op2,8971729:Value,[(1098,292)(1154,292)])
}
Add(Memory,1597559,1169,392)
{
Point(Data)
link(Data,6402292:Result,[(1175,380)(1133,380)(1133,436)(1091,436)])
}
Add(Math,6532431,1089,474)
{
OpType=1
link(onResult,217579:doValue,[])
link(Op1,13160171:Var3,[(1095,131)])
link(Op2,1543817:Value,[(1102,364)(1112,364)])
}
Add(Memory,217579,1173,474)
{
Point(Data)
link(Data,6532431:Result,[(1179,462)(1137,462)(1137,518)(1095,518)])
}
Add(GetDataEx,13160171,1008,126)
{
link(Data,3049924:MouseY,[])
}
Add(Hub,10120619,1001,392)
{
OutCount=5
link(onEvent1,6402292:doOperation,[])
link(onEvent2,6532431:doOperation,[(1052,405)(1052,480)])
link(onEvent3,1607645:doWork1,[(1027,412)(1027,188)])
link(onEvent4,13291456:doWork3,[(1027,419)(1027,202)])
link(onEvent5,3832898:doEvent1,[(1027,426)(1027,447)(625,447)(625,468)])
}
Add(Hub,3832898,637,462)
{
link(onEvent1,14671193:doOperation,[(675,468)(675,398)])
link(onEvent2,4353465:doOperation,[(689,475)(689,503)])
}
Add(Math,14671193,700,392)
{
link(onResult,12249499:doLeft,[(744,398)(744,296)(422,296)(422,195)])
link(Op1,12249499:Left,[(706,299)(447,299)])
link(Op2,1597559:Value,[(713,380)(944,380)(944,436)(1175,436)])
}
Add(Math,4353465,728,497)
{
link(onResult,12249499:doTop,[(772,503)(772,353)(422,353)(422,202)])
link(Op1,12249499:Top,[(734,351)(440,351)])
link(Op2,217579:Value,[(741,485)(960,485)(960,518)(1179,518)])
}
Add(GetDataEx,14258808,1001,126)
{
link(Data,3049924:MouseX,[])
}
Add(HubEx,1607645,990,182)
{
Angle=3
link(onEvent,8971729:doValue,[(994,167)])
}
Add(HubEx,13291456,990,196)
{
Angle=1
link(onEvent,1543817:doValue,[(994,227)])
}
карма: 0

0
Ответов: 223
Рейтинг: 24
#3: 2016-01-07 10:21:26 ЛС | профиль | цитата
Вот так...
code_36757.txt
карма: 0

0
файлы: 1code_36757.txt [274B] [125]
Ответов: 198
Рейтинг: 2
#4: 2016-01-07 11:19:56 ЛС | профиль | цитата
То что нужно, спасибо!
карма: 0

0
Ответов: 1926
Рейтинг: 172
#5: 2016-01-07 20:51:01 ЛС | профиль | цитата
Да уж, Cubone намудрил, у wasya куда проще!
карма: 9
0
Ответов: 258
Рейтинг: -27
#6: 2016-01-07 21:02:39 ЛС | профиль | цитата
Мой вариант тоже почти всегда работает подумаешь немного больше паутины)))
карма: 0

0
Ответов: 1926
Рейтинг: 172
#7: 2016-01-08 05:38:52 ЛС | профиль | цитата
[offtop]Cubone, я про работоспособность и не говорил, не спорю, вариант рабочий, но громоздкий... [/offtop]
карма: 9
0
7
Сообщение
...
Прикрепленные файлы
(файлы не залиты)