В строку списка впихнуть

gopstop2007

Дед Пахом писал(а): ↑21 Январь 2018, 19:06 Сформировать такой html файл и подсунуть его, например, в OLE "Shell.Explorer":

Мне в обычный List(Browse) подпихнуть, не в H5 ?

Admin писал(а): ↑21 Январь 2018, 5:39 Как нибудь вот так кто мешает?

У Admin-а похожее, только не понятно в статической картинке или в List(Browse)

gopstop2007 писал(а): ↑21 Январь 2018, 19:51Мне в обычный List(Browse) подпихнуть, не в H5 ?

В обычный OLE, не в List.

Yufil · Сообщение **Yufil** » 22 Январь 2018, 9:44

А вот есть в ABС такая фигня как Browse Grid, мож тут поискать? В своё время не понравилось, но вдруг ...

kreator

Browse Grid безнадёжно устарел.
Может всё-таки вот такое что-то:

Yufil · Сообщение **Yufil** » 22 Январь 2018, 11:53

А пункты просто для красоты или по ним ещё кликать для выбора надо? Типа гиперссылки ...

gopstop2007

Yufil писал(а): ↑22 Январь 2018, 9:44 А вот есть в ABС такая фигня как Browse Grid, мож тут поискать? В своё время не понравилось, но вдруг ...

К сожалению не подходит

kreator писал(а): ↑22 Январь 2018, 11:30 Browse Grid безнадёжно устарел.
Может всё-таки вот такое что-то:

визуально выглядит так как надо, но закраска идет полностью на все поле

Yufil писал(а): ↑22 Январь 2018, 11:53 А пункты просто для красоты или по ним ещё кликать для выбора надо? Типа гиперссылки ...

для красоты - читабельности

kreator, не данному вопросу, насчет картинки, а как у Вас получилось залить не все поле, есть отступы сверху и снизу?

kreator

Как я описал выше. Это не заливка. Это кларионовские контролы, в данном случае Image, Line. Например, один рисунок на несколько колонок, если посмотрите на длинную "колбасу". В вашем случае должны быть прямоугольники (возможно, со скруглёнными углами).

gopstop2007

kreator писал(а): ↑22 Январь 2018, 13:22 Это кларионовские контролы, в данном случае Image, Line. Например, один рисунок на несколько колонок, если посмотрите на длинную "колбасу". В вашем случае должны быть прямоугольники (возможно, со скруглёнными углами).

Вроде то, что нужно. Ваша разработка или есть пример на кларионе?

kreator

gopstop2007 писал(а): ↑22 Январь 2018, 15:53 Ваша разработка или есть пример на кларионе?

Первый мой пост. Делаете лист прозрачным, контролы рисуете на листе. При скроллинге листа контролы перемещаете используя prop:YOrigin.

gopstop2007

kreator писал(а): ↑22 Январь 2018, 17:22 Первый мой пост. Делаете лист прозрачным, контролы рисуете на листе. При скроллинге листа контролы перемещаете используя prop:YOrigin.

В выходные хочу попробовать, Вы бы не смогли скинуть строчку кода, как Image подцепляется к строке (row) и перемещается вместе с ней. Спасибо за понимание.

kreator

gopstop2007 писал(а): ↑25 Январь 2018, 23:06 В выходные хочу попробовать, Вы бы не смогли скинуть строчку кода, как Image подцепляется к строке (row) и перемещается вместе с ней. Спасибо за понимание.

Да уж! Коллега писал. Заранее прошу извинить за накладки, если будут.
Оказывается это List. Поэтому на событии "таймер" (может не поэтому) пишем текст:

Код: Выделить всё

    IF ?LIST1{prop:Yorigin} ~= POZBRW 
      POZBRW = ?LIST1{prop:Yorigin}
      IF NP AND NK THEN DESTROY(NP,NK).
      DO FORMBOX 
    END

Контролы создаются динамически. NP и NK - начало и конец этих динамических контролов. Я так понимаю - NP=1001 (чтобы созданные в дизайнере контролы не пострадали). В рутине FORMBOX:

Код: Выделить всё

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

Как-то так. Ну и повторю - сам List должен быть с опцией "Transparent".

gopstop2007

kreator писал(а): ↑26 Январь 2018, 12:00 Да уж! Коллега писал. Заранее прошу извинить за накладки, если будут.

Премного благодарен!

kreator

Попробуйте. Визуально отрабатывает достаточно быстро (не так много динамических контролов). Единственное, что коллега не решил, это когда берёшь ползунок. Не отрабатывается то ли таймер, то ли YOrigin. Мне влезать туда сейчас абсолютно недосуг, коллеге тоже. Если решите проблему с ползунком, мы будем премного благодарны.