Мне в обычный List(Browse) подпихнуть, не в H5 ?
У Admin-а похожее, только не понятно в статической картинке или в List(Browse)
Модератор: Дед Пахом
Мне в обычный List(Browse) подпихнуть, не в H5 ?
У Admin-а похожее, только не понятно в статической картинке или в List(Browse)
К сожалению не подходит
визуально выглядит так как надо, но закраска идет полностью на все поле
для красоты - читабельности
Вроде то, что нужно. Ваша разработка или есть пример на кларионе?
Первый мой пост. Делаете лист прозрачным, контролы рисуете на листе. При скроллинге листа контролы перемещаете используя prop:YOrigin.
В выходные хочу попробовать, Вы бы не смогли скинуть строчку кода, как Image подцепляется к строке (row) и перемещается вместе с ней. Спасибо за понимание.
Да уж! Коллега писал. Заранее прошу извинить за накладки, если будут.gopstop2007 писал(а): ↑25 Январь 2018, 23:06 В выходные хочу попробовать, Вы бы не смогли скинуть строчку кода, как Image подцепляется к строке (row) и перемещается вместе с ней. Спасибо за понимание.
Код: Выделить всё
IF ?LIST1{prop:Yorigin} ~= POZBRW
POZBRW = ?LIST1{prop:Yorigin}
IF NP AND NK THEN DESTROY(NP,NK).
DO FORMBOX
END
Код: Выделить всё
FORMBOX ROUTINE
NK = NP
KOLSMDN$ = 0
SS" = ''
N# = 0
KOLS# = 0
OK# = 0
i# = POZBRW - 1
LOOP
i# += 1
GET(QVS,i#)
KOLS# += 1
IF KOLS# > ?LIST1{PROP:ITEMS} THEN BREAK.
IF ERRORCODE() THEN BREAK.
...
NK += 1
create(NK,CREATE:box)
NK{PROP:GradientType} = GradientTypes:VerticalCylinder
NK{prop:Fill} = 0FD3C1AH
NK{prop:GradientToColor} = 00FD961Ah
NK{prop:at,1} = BASX + (POINTER(QM)-1)*ZOOMR+1
NK{prop:at,2} = ?LIST1{PROP:YPOS} + KOLS#*?LIST1{PROP:LINEHEIGHT}*1.015 + 24
NK{prop:at,3} = DL#
NK{prop:at,4} = ?LIST1{PROP:LINEHEIGHT} - 4
UNHIDE(NK)
...
END
Премного благодарен!