Заблудился в трех колонках

[Игорь Столяров]

Привет всем !

Что-то я совсем запутался ...

Есть некий произвольный ?Browse, предположим с тремя колонками.
Через ?Browse:PropList{PropList:Width,НОМЕР_КОЛОНКИ} - легко могу управлять их шириной.

Но когда пытаюсь поменять местами через ?Browse:PropList{PropListFieldNo,НОМЕР_КОЛОНКИ}
например 1 и 3 колонку - либо не срабатывает, либо формат вообще слетает ...

Или что-то я не понимаю в происходящем или оно не работает почему-то.
Поможите кто чем может пожалуйста ... как поменять местами колонки через PropList:XЗ ?

[kreator]

Но когда пытаюсь поменять местами через ?Browse:PropList{PropListFieldNo,НОМЕР_КОЛОНКИ}

Правильный код:

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

  ?Browse{PropList:FieldNo,НОМЕР_КОЛОНКИ} = 3

Должен работать. На всякий случай, вот мой стародавний вариант (сразу не вспомню, где-нибудь использую ли PropList:FieldNo?):

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

if choice(?CurrentTab)=2 or choice(?CurrentTab)=5
  ?Browse:1{PROP:FORMAT} =  '110L(1)|M~Название по-латински~C(1)@s30@#2#' &|
                            '109L(1)|M~Название по-русски~C(1)@s30@#1#'   &|
                            '50R(1)|M~Площадь~C(0)@n16b@#3#'              &|
                            '109L(1)|M~Континент~C(0)@s30@#4#'            &|
                            '73L(1)|M~Местоположение~C(2)@s20@#5#'        &|
                            '120L(1)|M~Столица~C(2)@s30@#6#'
else
  ?Browse:1{PROP:FORMAT} =  '109L(1)|M~Название по-русски~C(1)@s30@#1#'   &|
                            '110L(1)|M~Название по-латински~C(1)@s30@#2#' &|
                            '50R(1)|M~Площадь~C(0)@n16b@#3#'              &|
                            '109L(1)|M~Континент~C(0)@s30@#4#'            &|
                            '73L(1)|M~Местоположение~C(2)@s20@#5#'        &|
                            '120L(1)|M~Столица~C(2)@s30@#6#'
end

Это работает железно.

[Игорь Столяров]

Не ... это ты просто перезаписываешь всю структуру BROWSE через Prop:Format ...
А у меня некий произвольный BROWSE, я получаю только указатель на него.
Через PropList: ... могу добраться до структуру колонок и управлять их размером.
А хочется менять местами колонки ... но не получается.

[kreator]

Вот попробовал на С8.9759:

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

?List{proplist:FieldNo,1} = 2
?List{proplist:FieldNo,2} = 1

Переставляет как надо. Если оставить что-нибудь одно, то формат портится.

[Игорь Столяров]

Спасибо - вроде получилось ...

Номер из proplist:FieldNo - определяет содержание колонки из FROM(), а не ее расположение в списке. И это менять не надо.
А что бы менять колонки местами, действительно, нужно склеивать формат LIST'а из форматов колонок в нужном порядке, например меняем местами 1 и 3 колонки:

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

F1 = ?Browse{PropList:Format,1}
F2 = ?Browse{PropList:Format,2}
F3 = ?Browse{PropList:Format,3}
?Browse{Prop:Format} = Clip(F3) & Clip(F2) & Clip(F1)

Разобрал файл BrwExt.clw из LibSrc Clarion'а - там все это есть ...
Единственно, осталось смутное ощущение, что тот кто его писал - что-то не то курил ...

[Admin]

Единственно, осталось смутное ощущение, что тот кто его писал - что-то не то курил ...

Тянется с DOS`а. Для совместимости cверху навернули разного. Раньше было проще.

[Игорь Столяров]

Тянется с DOS`а. Для совместимости cверху навернули разного. Раньше было проще.

Да, муть полная. Если для десктопа еще как-то можно юзать, то для планшетных приложений не подходит совсем.
Решил разобрать и переписать, но уже через день возник вопрос: А где можно взять то, что курил автор BrwExt.clw ?

[Игорь Столяров]

Вообще конечно Clarion забавный язык, как сам по себе, так и в плане документирования.
Зачастую единственный способ понять его работу - это изучение уже имеющего кода (в LibSrc).

Долго пытался понять тайный смысл фрагмента в BrwExt.clw (здесь SELF.m_Control это ?LIST)

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

  loc_LoopIndex = 0
  loc_Columns   = 0
  LOOP
      loc_LoopIndex += 1
      IF NOT SELF.m_Control{PROPLIST:Exists,loc_LoopIndex} THEN BREAK.
      loc_Columns = SELF.m_Control{Proplist:FieldNo,loc_LoopIndex}
      SELF.m_Control{Proplist:FieldNo,loc_LoopIndex}=loc_Columns
  END

Реальность превзошла все фантазии. Нигде в документации описание такого фокуса я не видел !

[kreator]

И американцы имеют право на ошибку. Здесь хоть кусок бесполезный, а ведь есть явные ошибки. Которые годами не исправляются.

[Игорь Столяров]

Здесь хоть кусок бесполезный,

В том-то и проблема, что это кусок крайне полезный.
Он неявно выполняет дополнение формата ?LIST привязкой к данным из структуры FROM().
Пока это не сделано - отображение структуры ?LIST работает, но изменять расположение колонок нельзя ...

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

  Message(SELF.m_Control{Prop:Format})
  ! Указанный ранее кусок преобразования ?LIST
  Message(SELF.m_Control{Prop:Format})

Но, судя по всему, эта возможность не документирована, хотя и используется.
Впрочем как и возможность создавать ?LIST с произвольным расположением полей для которых фиксирован горизонтальный скроллинг
(а не только крайними левыми - как указано в документации и делается через редактирование структуры LIST в среде разработки).

[kreator]

loc_Columns = SELF.m_Control{Proplist:FieldNo,loc_LoopIndex}
SELF.m_Control{Proplist:FieldNo,loc_LoopIndex}=loc_Columns

Т.е. вот этот фрагмент имеет смысл? Тогда мне нужно либо на покой, либо браться за матчасть.

[Игорь Столяров]

Т.е. вот этот фрагмент имеет смысл?

Да, см. мое предыдущее сообщения - я все расписал.
Здесь скорее речь идет о неявной (скрытой) инициализации формата LIST.
Ничего плохого в этом нет ... плохо то, что это нигде не описано в справке по языку.
Остается только догадываться сколько таких неявных действий есть еще в других местах ...