Сортировка колонок в List-е

[AnDS]

Вот в 6-ке замечательно можно сортировать Browse по нажатию на заголовок. (В ABC-шаблонах это предусмотрено)

Хочется аналогичного, но для простого List по собственной очереди.

На самом деле нужно всего-то поймать нажатие на заголовок листа.
Помню, давно как-то ловил это дело в 4ке. Но помню так же, что геморройно было это.

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

Помогите куском кода, плз.

[AnDS]

В общем, в первом приближении посмотрел на класс SortHeader

В ту сторону копать надо.

Разбираюсь дальше.

[StillZero]

http://www.clarionlife.net/content/view/61/29/

[AnDS]

http://www.clarionlife.net/content/view/61/29/

Спасибо, сейчас посмотрю туда.

Временно сделал так:
В Local Data:

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

L::SortHeader  CLASS(SortHeaderClassType) !Declare SortHeader Class
                  END

На ThisWindow.init :

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

  L::SortHeader.Init(QueueP,?List1,'','')
  L::SortHeader.NoCase=0
  L::SortHeader.UsePictureForCase=0

На ThisWindow.Kill :

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

L::SortHeader.Kill()

На ThisWindow.SetAlerts [7500]:

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

  L::SortHeader.SetAlerts()

На ThisWindow.TakeEvent [3200]:

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

  IF L::SortHeader.TakeEvents()
     RETURN Level:Notify
  END

Работает. Очередь сортируется, кнопочки в Header-е нажимаются, порядок сортировки отображается.

[AnDS]

http://www.clarionlife.net/content/view/61/29/

Интересный пример.

Симпатично выглядит.
Есть одно НО: просится в шаблон.