Вверх ↑
Этот топик читают: Гость
Ответов: 23
Рейтинг: 1
#1: 2008-12-29 22:10:52 ЛС | профиль | цитата
Для начала хочу поздравить всех HiAsmников с наступающим!
Люди добрые, вот реально фунциклирующая схема
code_11101.txt
подскажите как при нажатой кнопке мыши на элементе Ledladder светодиодный индикатор курсор мыши не выходил за пределы этого элемента, до тех пор пока кнопку не отпустить.
Заранее благодарен!
карма: 0

0
файлы: 2code_9393.txt [1.4KB] [209], code_11101.txt [2.2KB] [210]
Ответов: 8928
Рейтинг: 823
#2: 2008-12-30 17:05:52 ЛС | профиль | цитата
Sever, code_11102.txt
------------ Дoбавленo:

Следует иметь ввиду, что при быстрых перемещениях мышки Windows обрабатывая свою очередь сообщений может и опаздать

Add(MainForm,2953706,56,189)
{
Width=285
Height=209
Position=1
link(onCreate,8263896:doWork2,[])
}
Add(LedLadder,16589801,140,147)
{
Left=5
Top=55
Width=266
Spacing=1
Count=33
MinMid=20535
MidMax=55535
Max=65535
Point(MouseX)
Point(MouseY)
Point(Width)
Point(Height)
Point(onMouseMove)
link(onMouseMove,8263896:doWork1,[(184,160)(184,187)(128,187)(128,202)])
}
Add(MultiElement,8263896,140,196)
{
link(Data1,16589801:MouseX,[])
link(Data2,16589801:MouseY,[])
link(Data3,16589801:Width,[])
link(Data4,16589801:Height,[])
}
BEGIN_SDK
Add(EditMulti,1021669,21,21)
{
WorkCount=2
DataCount=4
Width=405
Height=354
HOffset=30
link(doWork1,4344609:doCompare,[(35,27)(35,153)])
link(doWork2,4073690:doOperation,[(44,34)(44,90)])
}
Add(MouseEvent,16193654,357,329)
{
link(X,5108044:Value,[])
link(Y,3900254:Value,[(377,296)(384,296)])
}
Add(If_else,4344609,49,147)
{
Op2=Integer(0)
link(onTrue,1509190:doEvent1,[])
}
Add(If_else,10701926,196,147)
{
Type=1
Op2=Integer(2)
link(onTrue,9433175:doData,[])
link(onFalse,11005573:doCompare,[(234,160)(234,188)(170,188)(170,209)])
link(Op1,13174897:Var2,[])
}
Add(Hub,4630779,294,203)
{
OutCount=3
link(onEvent1,5108044:doValue,[])
link(onEvent2,3900254:doClear,[(349,216)(349,272)])
link(onEvent3,16317913:doWork1,[(340,223)])
}
Add(If_else,11005573,182,203)
{
Type=2
link(onTrue,4986028:doData,[])
link(Op1,13174897:Var1,[(188,51)])
link(Op2,4073690:Result,[(195,123)(216,123)])
}
Add(Memory,5108044,364,203)
{
Default=Integer(0)
}
Add(GetDataEx,13174897,189,42)
{
link(Data,1021669:Data1,[(202,44)(57,44)])
}
Add(DoData,9433175,238,147)
{
Data=Integer(10)
link(onEventData,6145693:doWork1,[(284,153)])
}
Add(Math,4073690,210,84)
{
OpType=1
Op2=10
ResultType=0
link(onResult,379003:doOperation,[])
link(Op1,1021669:Data3,[(216,36)(71,36)])
}
Add(Math,379003,252,84)
{
OpType=1
Op2=3
ResultType=0
link(Op1,1021669:Data4,[(258,31)(78,31)])
}
Add(GetDataEx,839685,196,56)
{
link(Data,1021669:Data2,[(209,40)(64,40)])
}
Add(DoData,4986028,224,203)
{
Data=Integer(-10)
link(onEventData,6145693:doWork2,[])
}
Add(HubEx,6145693,280,196)
{
link(onEvent,4630779:doEvent1,[])
}
Add(Memory,3900254,378,259)
{
Default=Integer(0)
}
Add(If_else,5375190,154,252)
{
Type=1
Op2=Integer(2)
link(onTrue,15089298:doData,[])
link(onFalse,5010610:doCompare,[(192,265)(192,293)(128,293)(128,314)])
link(Op1,839685:Var2,[(160,79)(209,79)])
}
Add(If_else,5010610,140,308)
{
Type=2
link(onTrue,13075670:doData,[])
link(Op1,839685:Var1,[(146,65)])
link(Op2,379003:Result,[(153,131)(258,131)])
}
Add(DoData,15089298,196,252)
{
Data=Integer(4)
link(onEventData,7675041:doWork2,[])
}
Add(DoData,13075670,182,308)
{
Data=Integer(-4)
link(onEventData,7675041:doWork3,[(284,314)])
}
Add(HubEx,7675041,280,245)
{
link(onEvent,3782411:doEvent1,[])
}
Add(HubEx,16317913,336,329)
{
link(onEvent,16193654:doMove,[])
}
Add(Hub,1509190,91,147)
{
link(onEvent1,10701926:doCompare,[])
link(onEvent2,5375190:doCompare,[(139,160)(139,258)])
}
Add(Hub,3782411,294,252)
{
OutCount=3
link(onEvent1,3900254:doValue,[(364,258)(364,265)])
link(onEvent2,5108044:doClear,[(355,265)(355,216)])
link(onEvent3,16317913:doWork2,[(331,272)(331,342)])
}
END_SDK

карма: 19

0
файлы: 1code_11102.txt [2.2KB] [261]
Гость
Ответов: 17029
Рейтинг: 0
#3: 2008-12-30 17:11:01 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2021-05-21 12:43:06
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#4: 2008-12-30 17:26:57 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2021-05-21 12:43:06
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#5: 2008-12-30 18:15:52 ЛС | профиль | цитата
г. Север, попробуй добавить в ini. Работает, но за пределы выходит.
MouseCapture=Захват мыши компонентом при нажатии на нем левой кнопки|14|1|True,False


nesco, тебе не кажется, что "Захват" должен подразумевать и невыход курсора мыши за пределы компонента ?

Плен есть плен - попался, сиди.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#6: 2008-12-30 18:56:38 ЛС | профиль | цитата
Tad писал(а):
nesco, тебе не кажется, что "Захват"

Да ничего мне, пока, не кажется. Я этим еще не занимался.
карма: 22

0
Ответов: 8928
Рейтинг: 823
#7: 2008-12-30 19:18:27 ЛС | профиль | цитата
Tad, у меня захват не работает ни на одном компоненте, специально пытал, поэтому и не советовал *.ini
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#8: 2008-12-31 13:07:11 ЛС | профиль | цитата
Леонид, работает - зажимаешь ЛКМ на элементе Ledladder и двигаешь мышкой в любом месте экрана. (Предварительно добавив в ini приведенную строку)
На Ledladder очень хорошо видно.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 2059
Рейтинг: 28
#9: 2009-01-16 17:41:29 ЛС | профиль | цитата
У меня постоянно вылезет одна и та же ошибка в Wndoes. Не подскажите, что она означает?

карма: 1

0
файлы: 1winerror.png [4.8KB] [434]
Ответов: 485
Рейтинг: 86
#10: 2009-01-16 17:47:19 ЛС | профиль | цитата
Эдик, в локальной сети еще у кого-то прописан статический IP равный твоему
карма: 0

0
Ответов: 2059
Рейтинг: 28
#11: 2009-01-16 18:46:43 ЛС | профиль | цитата
А этот "еще у кого прописан статический IP равный моему" не может накрутить трафик на мой счет, скажем на 5000р.?
карма: 1

0
Ответов: 542
Рейтинг: 12
#12: 2009-01-16 18:49:54 ЛС | профиль | цитата
Может. Но если у провайдера прописан твой MAC адрес и авторизация идет по MAC адресу не может.
карма: 0

0
Ответов: 2059
Рейтинг: 28
#13: 2009-01-16 19:18:40 ЛС | профиль | цитата
afandi писал(а):
Но если у провайдера прописан твой MAC адрес

а что это за MAC адрес?
У нас для выхода в интернет нужен Логин и пароль. Я на ADSL сижу.

карма: 1

0
Ответов: 542
Рейтинг: 12
#14: 2009-01-16 19:29:01 ЛС | профиль | цитата
MAC это физический адрес сетевой карты, кстати при желении его тоже можно подделать.
если у вас авторизация то тот у кого установлен ваш IP адрес должен знать логин и пароль что бы расходовать ваш трафик.
так что думаю вам особо не стоить беспокоится.
Если конфликт происходит регулярно обращайтесь к вашим провайдерам.

карма: 0

0
Ответов: 3851
Рейтинг: 159
#15: 2009-01-16 23:18:35 ЛС | профиль | цитата
Эдик писал(а):
Я на ADSL сижу
ты прописал один и тот же адрес в модеме и в винде..
карма: 0
начавший
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)