HyperZen Опубликовано 8 июня, 2016 Поделиться Опубликовано 8 июня, 2016 (изменено) Сабж, собственно. Спасибо! Изменено 8 июня, 2016 пользователем HyperZen Цитата Ссылка на комментарий
0 krapotkin Опубликовано 8 июня, 2016 Поделиться Опубликовано 8 июня, 2016 футер и хедер это обычные итемы. на них лежат ListItemText, у тех есть Text можно посмотреть код FindDrawable и найти способ как получить ссылку на них но думаю, это обычный Item.TextObject HyperZen 1 Цитата Ссылка на комментарий
0 HyperZen Опубликовано 8 июня, 2016 Автор Поделиться Опубликовано 8 июня, 2016 Не выходит каменный цветок Цитата Ссылка на комментарий
0 krapotkin Опубликовано 8 июня, 2016 Поделиться Опубликовано 8 июня, 2016 procedure TForm1.b1Click(Sender: TObject); begin lbl1.Text:=lv1.Items[trunc(SpinBox1.Value)].Text; end; function TForm1.CreateItem(purpose: TListItemPurpose; const s:string): TListViewItem; begin Result := lv1.Items.Add; result.Purpose := purpose; result.text := s; end; procedure TForm1.FormCreate(Sender: TObject); begin CreateItem(TListItemPurpose.Header, 'Header 1'); CreateItem(TListItemPurpose.None, 'Item 1'); CreateItem(TListItemPurpose.None, 'Item 2'); CreateItem(TListItemPurpose.None, 'Item 3'); CreateItem(TListItemPurpose.Footer, 'Footer 1'); CreateItem(TListItemPurpose.Header, 'Header 2'); CreateItem(TListItemPurpose.None, 'Item 4'); CreateItem(TListItemPurpose.None, 'Item 5'); CreateItem(TListItemPurpose.Footer, 'Footer 3'); SpinBox1.Max := lv1.ItemCount-1; end; HyperZen 1 Цитата Ссылка на комментарий
0 HyperZen Опубликовано 8 июня, 2016 Автор Поделиться Опубликовано 8 июня, 2016 Так пробовал. Работает для режима Custom. Для DynamicAppearance выдает ошибку. Цитата Ссылка на комментарий
0 krapotkin Опубликовано 8 июня, 2016 Поделиться Опубликовано 8 июня, 2016 так я же говорю, там в Custom режиме просто создаются ListItemText c именем T,D,B и т.д. в Dynamic смотрите на названия элементов, вы их сами создаете и они видны в окне Structure тем не менее, для Header и Footer создается элемент с именем Text и все работает так же как и раньше procedure TForm1.b1Click(Sender: TObject); begin lv1.Items[trunc(SpinBox1.Value)].Text := lv1.Items[trunc(SpinBox1.Value)].Text + '1'; end; HyperZen 1 Цитата Ссылка на комментарий
Вопрос
HyperZen
Сабж, собственно.
Спасибо!
Изменено пользователем HyperZenСсылка на комментарий
5 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.