forum.clarionlife.net

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

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

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

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

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

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

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

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

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

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    		

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