ListView ItemAppearance - как добраться до Footer

[x11]

Не могу понять, как записать текст в Footer text

 

 

[dnekrasov]

Как-то так:

    with lvObjects.Items.Add do
    begin
      Text := 'Footer';
      Purpose := TListItemPurpose.Footer;
    end;

 

[x11]

Спасибо.

 

Т.е. в дазайн-тайм это сделать нельзя? Только в рантайм?

Ну, допустим, я добавлю этот код при старте приложения.

Тогда второй вопрос.

А как и в каком событии было бы правильней заполнять Footer?

[x11]

а как прочитать данные из footer/header

[x11]

так же непонятно, как записать в footer, его нет даже у livebindings

[x11]

В событии OnUpdateObjects есть код

if AItem.Purpose = TListItemPurpose.Footer then
      AItem.Text := 'какой-то текст';

всегда false

 

а с заголовком работает нормально

if AItem.Purpose = TListItemPurpose.Header then
      AItem.Text := 'какой-то текст';

 

Т.е. визуально в редакторе Item`a подвал (footer) есть, но код не работает.

[x11]

http://fire-monkey.ru/topic/4574-listview-dynamicappearance-header/