Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 4697
Рейтинг: 426
#16: 2010-08-31 19:02:39 ЛС | профиль | цитата
Ба, даже не думал, что смогу добиться того же результата, что и в первом посте этой темы, вот этим :
Add(Button,10852794,273,161)
{
Left=70
Top=10
link(onClick,7110116:doGetString,[])
}
Add(StrList,7110116,322,119)
{
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|2:10|
Point(String)
Point(doGetString)
Point(IdxToSelect)
Point(onGetString)
link(IdxToSelect,7110116:String,[(342,107)(358,107)(358,180)(349,180)])
link(onGetString,1605527:doText,[])
}
Add(Label,1605527,371,126)
{
Left=135
Top=15
}
------------ Дoбавленo в 19.02:
Tad писал(а):
Наконец нашелся трезво думающий человек.

Tad, думаем трезво: смотрим, какой результат выдает схема в первом посте и делаем выводы
P.S: Dilma, загляни пожалуйста в руму
карма: 10
0
Разработчик
Ответов: 26061
Рейтинг: 2120
#17: 2010-08-31 19:45:45 ЛС | профиль | цитата
[flood]Assasin, жаль, я не успел, домой бежать надо было, а то была такая мысль со StrList-ом[/flood]
карма: 22

0
Разработчик
Ответов: 4697
Рейтинг: 426
#18: 2010-08-31 19:48:15 ЛС | профиль | цитата
[flood]
nesco писал(а):
Assasin, жаль, я не успел, домой бежать надо было, а то была такая мысль со StrList-ом

nesco писал(а):
В большой семье... (Дальше по тексту)

[/flood]
карма: 10
0
Администрация
Ответов: 15294
Рейтинг: 1518
#19: 2010-08-31 20:25:02 ЛС | профиль | цитата
осталось еще 2 варианта как минимум
карма: 26
0
Ответов: 1379
Рейтинг: 86
#20: 2010-08-31 20:42:28 ЛС | профиль | цитата
ну еще такой вариант подумывал code_20334.txt
карма: 0

0
файлы: 1code_20334.txt [219B] [586]
Разработчик
Ответов: 4697
Рейтинг: 426
#21: 2010-08-31 20:44:14 ЛС | профиль | цитата
petrocan писал(а):
ну еще такой вариант подумывал code_20334.txt

Это не работает
карма: 10
0
Ответов: 1379
Рейтинг: 86
#22: 2010-08-31 20:45:35 ЛС | профиль | цитата
Assasin,
Подробнее бы
------------ Дoбавленo в 20.45:
ты не забыл, что жмем кнопку?
карма: 0

0
Разработчик
Ответов: 4697
Рейтинг: 426
#23: 2010-08-31 20:45:52 ЛС | профиль | цитата
Куда уж подробнее, ни ползунок не переключается, ни кнопка не работает
карма: 10
0
Ответов: 1379
Рейтинг: 86
#24: 2010-08-31 20:47:36 ЛС | профиль | цитата
Пардон, компонент потерялся
code_20335.txt
[offtop]Label убрать - будет 2 компонента [/offtop]
карма: 0

0
файлы: 1code_20335.txt [399B] [613]
Ответов: 3349
Рейтинг: 233
#25: 2010-08-31 21:29:02 ЛС | профиль | цитата
Еще так
------------ Дoбавленo в 20.54:
Add(Button,15821026,420,462)
{
Left=110
Top=95
Point(onMouseUp)
link(onClick,16112571:doMin,[(460,468)(460,454)(413,454)(413,496)])
link(onMouseUp,16112571:doNext,[])
}
Add(Label,7474073,532,469)
{
Left=260
Top=100
}
Add(Counter,16112571,469,469)
{
Max=10
Point(Min)
Point(doMin)
link(onNext,7474073:doText,[])
link(Min,7474073:Caption,[(475,457)(507,457)(507,513)(538,513)])
}


------------ Дoбавленo в 21.29:
[flood]Завтра 1 Сентября, а задачи уже сегодня начались [/flood]
карма: 1

0
Ответов: 2193
Рейтинг: 673
#26: 2010-08-31 21:30:13 ЛС | профиль | цитата
Ivann, работает не очень стабильно.
карма: 10

0
Ответов: 3349
Рейтинг: 233
#27: 2010-08-31 21:39:10 ЛС | профиль | цитата
sla8a писал(а):
Ivann, работает не очень стабильно.

У меня отлично работает.
------------ Дoбавленo в 21.39:
sla8a, А так?
Add(Button,15821026,553,343)
{
Left=110
Top=95
Point(onMouseDown)
Point(onMouseUp)
link(onMouseDown,16112571:doMin,[(594,356)(594,329)(538,329)(538,384)])
link(onMouseUp,16112571:doNext,[])
}
Add(Label,7474073,665,357)
{
Left=260
Top=100
}
Add(Counter,16112571,602,357)
{
Max=10
Point(Min)
Point(doMin)
link(onNext,7474073:doText,[])
link(Min,7474073:Caption,[(608,345)(640,345)(640,401)(671,401)])
}


карма: 1

0
Ответов: 2193
Рейтинг: 673
#28: 2010-08-31 21:39:27 ЛС | профиль | цитата
Нажми на клавишу, сдвинь курсор с кнопки отпусти клавишу мыши.
Последняя нормально.
карма: 10

0
Ответов: 199
Рейтинг: 44
#29: 2010-08-31 22:28:11 ЛС | профиль | цитата
code_20336.txt
карма: 0

0
файлы: 1code_20336.txt [420B] [360]
Главный модератор
Ответов: 2997
Рейтинг: 395
#30: 2010-08-31 23:52:08 ЛС | профиль | цитата
code


Add(WebBrowser,12367157,175,77)
{
Left=70
Top=10
Width=580
Height=500
Align=5
Point(doFromText)
}
Add(DoData,7137533,126,105)
{
Data=String(<SCRIPT TYPE="text/javascript">
<!--
function Counter(Form){var Count = Form.Edit.value;if (Count < 10) { Count++; Form.Edit.value = Count; }}
//-->
</SCRIPT>
<FORM>
<INPUT TYPE=BUTTON OnClick="Counter(this.form);" VALUE="Push">
<INPUT NAME="Edit">
</FORM>)
link(onEventData,12367157:doFromText,[])
}
Add(Timer,15867566,77,105)
{
Interval=100
AutoStop=1
link(onTimer,7137533:doData,[])
}
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)