Вверх ↑
Этот топик читают: Гость
Ответов: 5103
Рейтинг: 578
#1: 2022-06-04 06:21:52 ЛС | профиль | цитата
Реинкорнация скрола из картинок. Автор-ZIM.
Вполне достойный контрол (надо конечно к нему колесо прикрутить)
Доработал следующее:
Теперь он умеет растягиваться по вертикали и горизонтали. Хорошо подойдёт для плееров.
Работает в составе менеджера (в комплекте) для экономии ресурсов

Было бы неплохо если у кого есть дизайнерские способности сделать линеечки и бегунки комплектами и заливать в эту ветку с скриншотами что бы участникам не парится делать что то не красивое

компонент + менеджер https://forum.hiasm.com/getfile/39495



Редактировалось 2 раз(а), последний 2022-06-05 08:30:25
карма: 5
1
Голосовали:ric
vip
#1.1контекстная реклама от партнеров
Ответов: 5103
Рейтинг: 578
#2: 2022-06-04 19:55:59 ЛС | профиль | цитата
парочку сделал. В сети оказывается достаточно много готовых, нужно только подрезать и подогнать размер

ззагрузил -> https://forum.hiasm.com/getfile/39493




Редактировалось 3 раз(а), последний 2022-06-04 20:06:20
карма: 5
0
Ответов: 5103
Рейтинг: 578
#3: 2022-06-05 08:00:46 ЛС | профиль | цитата
К сожалению версия содержала кучу ошибок как в менеджере так и в компоненте. Сказываются ночные вдохновения
Перезалил в первом посте. Колесо прикрутил, избавил от артефактов правого и нижнего углов (неправильная от отрисовка была)
Для самостоятельной нарезки (хотя лучше поделится кто сделает)
1.png
2.jpg
3.jpg

Редактировалось 1 раз(а), последний 2022-06-05 08:30:54
карма: 5
0
Ответов: 160
Рейтинг: 4
#4: 2022-06-05 12:10:23 ЛС | профиль | цитата
andrestudio писал(а):
Для самостоятельной нарезки

Вот так нужно нарезать?
https://forum.hiasm.com/getfile/39496

Если правильно то нарежу.

Ещё заметил, если сделать неактивной вертикальную то и горизонтальная тоже не работает.
Сам скролл наплывает немного на кнопки по бокам полосы прокрутки.

Редактировалось 4 раз(а), последний 2022-06-05 12:24:06
карма: 0
HiAsm Studio
0
Ответов: 5103
Рейтинг: 578
#5: 2022-06-05 12:45:20 ЛС | профиль | цитата
envoy_sky писал(а):
Сам скролл наплывает немного на кнопки по бокам полосы прокрутки.

это свойствами
LeftMargin_=Отступ от левой границы|1|5
RightMargin_=Отступ от правой границы|1|5
TopMargin_=Отступ от верхней границы|1|0

envoy_sky писал(а):
Если правильно то нарежу.

Да, отлично будет.

тут вот какая мысля пришла. На базе этого кода вполне реально сделать контейнер такой как ChildScrollBox
Как идея
карма: 5
0
Ответов: 5103
Рейтинг: 578
#6: 2022-06-05 13:50:55 ЛС | профиль | цитата
Ещё можно сделать красивый Box для прокрутки панорамных изображений. В котором к примеру при прокрутке в крайне правое положение бегунка (размер то его мы сами выбираем) его относительная часть задвинутая за крайне правое положение выдвигалась в левой части для дальнейшего прокручивания в одну сторону. Точно также и в противоположную сторону прокручивать. Как идея
карма: 5
0
Ответов: 160
Рейтинг: 4
#7: 2022-06-05 17:51:06 ЛС | профиль | цитата
andrestudio писал(а):
красивый Box для прокрутки панорамных изображений.

Ну как ImgScrollBar протестируем, можно и на это посмотреть, протестировать, помочь.

Пока буду нарезать картинки.

Редактировалось 1 раз(а), последний 2022-06-05 17:52:28
карма: 0
HiAsm Studio
0
Ответов: 160
Рейтинг: 4
#8: 2022-06-05 19:58:34 ЛС | профиль | цитата
https://forum.hiasm.com/getfile/39497

222.png

Вырезал один комплект

Редактировалось 1 раз(а), последний 2022-06-05 19:59:43
карма: 0
HiAsm Studio
1
Голосовали:andrestudio
Ответов: 2054
Рейтинг: 653
#9: 2022-06-05 20:58:41 ЛС | профиль | цитата
Нет защиты от не подключенного менеджера, вылетает "рантаймэрор".

if not Assigned(_prop_ImgScrollBarMan) then exit;
Нет защиты если подключен менеджер и отсутствует Bcknd_Img (Изображение формы для ImgScrollBar), вылетает "рантаймэрор".
При нажатии на одну из кнопок стрелок ползунок смещается в самое крайнее положение, а не на одно значение.
карма: 9

0
Ответов: 5103
Рейтинг: 578
#10: 2022-06-05 21:53:17 ЛС | профиль | цитата
sla8a писал(а):
Нет защиты если подключен менеджер и отсутствует Bcknd_Img (Изображение формы для ImgScrollBar), вылетает "рантаймэрор".
При нажатии на одну из кнопок стрелок ползунок смещается в самое крайнее положение, а не на одно значение.

Да, без менеджера надо наверно просто создать битмап и написать на нём типа "подключите менеджер"
Про стрелки там и в авторском варианте не были предусмотрены. Попробую добавить.

--- Добавлено в 2022-06-05 21:56:23

envoy_sky писал(а):
Вырезал один комплект

Чувак Уважуха. Я слепошарый стал, трудно в пикселы поподаю...

Редактировалось 1 раз(а), последний 2022-06-05 21:56:23
карма: 5
0
Ответов: 8769
Рейтинг: 812
#11: 2022-06-06 00:26:18 ЛС | профиль | цитата
andrestudio писал(а):
Я слепошарый стал
Ох, два года уже серое пятно в правом глазике, да ещё с искажением, читать невозможно, самое главное паять трудно, без стерео паяльником "то в пупок, то мимо"
Ну да ладно, прорвёмся
Скролл


Add(MainForm,2953706,98,77)
{
Point(Handle)
}
Add(Label,1576588,210,77)
{
Left=270
Top=35
Caption=""
}
Add(ChildPanel,4079467,161,77)
{
link(onEvent1,1576588:doText,[])
}
BEGIN_SDK
Add(EditMulti,14210589,21,21)
{
EventCount=1
VarCount=3
Width=258
Height=179
link(Var1,744997:Var1,[(27,117)])
link(Var2,11966048:Var1,[(34,180)])
}
Add(Panel,885140,210,35)
{
Left=30
Top=25
Width=212
Height=27
}
Add(ScrollBar,16055090,112,77)
{
Left=1
Top=1
Width=210
Height=10
Max=353
Page=1
Position=15
link(onPosition,7274518:doEvent1,[])
}
Add(ScrollBar,5904122,112,140)
{
Left=1
Top=16
Width=210
Height=10
Max=353
Page=10
Position=75
link(onPosition,1246468:doEvent1,[])
}
Add(FormatStr,13264467,210,133)
{
Mask="From %2 to %1"
link(onFString,14210589:onEvent1,[(249,139)(249,27)])
link(Str1,3520799:Var3,[(216,124)(202,124)(202,180)])
link(Str2,1318983:Var3,[(223,117)])
}
Add(HubEx,6759040,182,133)
{
link(onEvent,13264467:doString,[])
}
Add(MathParse,11130921,56,77)
{
MathStr="(%1 < %2)*%1 + (%1>=%2)*%2"
link(onResult,16055090:doPosition,[])
link(X1,5709004:Var3,[(62,61)(107,61)])
link(X2,5563506:Var2,[(69,68)(99,68)])
}
Add(MathParse,1061776,56,140)
{
MathStr="(%1 < %2)*%2 + (%1>=%2)*%1"
link(onResult,5904122:doPosition,[])
link(X1,744997:Var2,[])
link(X2,5563506:Var1,[(69,124)])
}
Add(Hub,7274518,154,77)
{
link(onEvent1,1061776:doCalc,[(179,83)(179,55)(39,55)(39,146)])
link(onEvent2,6759040:doWork1,[(186,90)])
}
Add(GetDataEx,1318983,112,112)
{
link(Data,16055090:Position,[])
}
Add(GetDataEx,3520799,112,175)
{
link(Data,5904122:Position,[])
}
Add(GetDataEx,5709004,101,112)
{
Angle=1
link(Data,1318983:Var1,[])
}
Add(GetDataEx,5563506,93,119)
{
Angle=2
link(Data,11966048:Var3,[])
}
Add(Hub,1246468,154,140)
{
link(onEvent1,11130921:doCalc,[(179,146)(179,132)(46,132)(46,83)])
link(onEvent2,6759040:doWork3,[(186,153)])
}
Add(GetDataEx,744997,56,112)
{
Angle=1
link(Data,5709004:Var1,[])
}
Add(GetDataEx,11966048,93,175)
{
Angle=1
link(Data,3520799:Var1,[])
}
END_SDK
Add(Image,11202060,98,133)
{
Left=30
Top=105
Width=210
Height=11
Picture=[ZIP5E1B000078DAED98CD0DC2300C46CD99059058A01330007756E0CE0619879958210BF49663B0621459FD499A4A7152E427A50710F247FDDAA6BE3F9E5708DC700DB83EB8CEB84E70099F0FBFEF39AF72DE4D91CFD0C3BFEE991D0A01586B4B8B8C95F1DED371025597C9C08945F1C8F38C4A608742C1BBEDA7907EE4C5E1FD97CFC0EBC62B4389EC50E838DE51F39B64989456EF6A7A875BBF1EBCA378B1F36DBDE3D52998B2E6DDA23F39EFE895A313EFE819D73003F78E0220EA5DD6BB844207B9DFB5CD30F18E9EB3EA5D85FB5D3FFB3BF5EEAFF7771B919F61CCE3B59AA3CC4FB64E50D67A945528785784F004B5870C586E31864E8C133D4A2B04E09CD32B5691C41803F005D81BFB83]
}
Add(Label,8304003,161,35)
{
Left=100
Top=5
Width=69
Height=17
Caption="Имеется это"
}
Add(Label,5832809,161,133)
{
Left=80
Top=85
Width=95
Height=17
Caption="А желателно это: "
}

карма: 18

0
Ответов: 5103
Рейтинг: 578
#12: 2022-06-06 06:56:38 ЛС | профиль | цитата
Леонид, я тут не так давно портировал нечто подобное от Сергея Гурина http://gurin.tomsknet.ru/delphizoomer.html
Но так и не придумал тому никакого практического применения
Вот это хозяйство. https://forum.hiasm.com/getfile/39498
Если надо то подпилю напильничком

карма: 5
0
файлы: 1Zoomer.zip [6.1KB] [22]
Ответов: 187
Рейтинг: 3
#13: 2022-06-06 10:34:53 ЛС | профиль | цитата
andrestudio писал(а):

Вот это хозяйство. https://forum.hiasm.com/getfile/39498
Если надо то подпилю напильничком

не корректно работает, ползунок можно задвинуть в право за пределы полосы передвижения.
Снимок.JPG

Редактировалось 1 раз(а), последний 2022-06-06 10:35:14
карма: 1

0
Ответов: 5103
Рейтинг: 578
#14: 2022-06-06 14:37:52 ЛС | профиль | цитата
Ну не знаю как тебе такое удалось, колись уже.
Есть там глюки с залипанием я знаю, я ничего не делал в том плане. Единственное что попробовал развить авторское начинание насчёт градиента, остальное всё родное...
карма: 5
0
Ответов: 187
Рейтинг: 3
#15: 2022-06-06 14:52:25 ЛС | профиль | цитата
да и залипает тоже, даже если свернуть форму и развернуть залипание остается, а задвинуть за приделы можно передвинув в право до упора взять за левый ползунок передвинуть в право еще.
карма: 1

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