Listview - где хранить ID ?

[rustam_d]

В дизайнере установил связку BindSource датасета на поля Listview:

- Item.Text,

- Item.Detail,

- Item.ImageIndex

- Item.ButtonText

все эти поля нужные и визуально отражаемые.

Вопрос где хранить ID, чтобы по OnItemClick вызвать датасет.Locate('id', ...);

 

Думал можно через ItemHeader.Text, а его извлечение мягко говоря непрямое...

 

[FIL]

Item.Tag?

[rustam_d]

Item.Tag?

как забаиндить?

[Равиль Зарипов (ZuBy)]

Item.Data['id'] := id;

[rustam_d]

Item.Data['id'] := id;

походу такой же вопрос как и к филу.

у меня визуальное связывание...

[Равиль Зарипов (ZuBy)]

Аа, ну тогда я не могу помочь. Даже не знаю как эта штука работает

[rustam_d]

Аа, ну тогда я не могу помочь. Даже не знаю как эта штука работает

да легко если не грузить вручную ListView ).

если не найду решения...то наверно придется (

[AngryOwl]

Не используйте BindSource ))))

 

Ну а по существу - используйте в ItemAppearance другие типы итемов.. Типа RatingListItem

[rustam_d]

Не используйте BindSource ))))

 

Ну а по существу - используйте в ItemAppearance другие типы итемов.. Типа RatingListItem

проинстолил компонент ваш, все равно не подходит...опять не хватает полей )

- Item.Text = text,

- Item.Detail = text2,

- Item.ImageIndex = imageindex

- Item.ButtonText text3

больше нету полей (...

Алекс, допустим вручную загружу Listview, просто у меня настроек полно по всем полям PositionOffset, ну и как отлаживать все это хозяйство вручную...не визуально?

И еще, вы по датасету тоже по локате перемещаетесь?

Изменено 21 августа, 2015 пользователем rustam_d

[AngryOwl]

 

Не используйте BindSource ))))

 

Ну а по существу - используйте в ItemAppearance другие типы итемов.. Типа RatingListItem

проинстолил компонент ваш, все равно не подходит...опять не хватает полей )

- Item.Text = text,

- Item.Detail = text2,

- Item.ImageIndex = imageindex

- Item.ButtonText text3

больше нету полей (...

Алекс, допустим вручную загружу Listview, просто у меня настроек полно по всем полям PositionOffset, ну и как отлаживать все это хозяйство вручную...не визуально?

И еще, вы по датасету тоже по локате перемещаетесь?

 

Что касается БД - большая часть "ручками".

а LiveBindings вообще не пользую...

 

Если Вам не хватает в установленном компоненте чего-то - добавьте в него нужное. Это не "пара минут", но реализуемо.

[rustam_d]

а LiveBindings вообще не пользую...

 

Если Вам не хватает в установленном компоненте чего-то - добавьте в него нужное. Это не "пара минут", но реализуемо.

 

да так и думал, попробую накопипастить в рейтинг текст4, текст5... )

[FIL]

У LiveBindings-привязок (или как они там правильно называются...) есть набор своих событий.

Например, у LinkFillControlToField есть событие OnFilledListItem в обработчике которого можно дообработать данные из БД, которые не удалось привязать.

Будет выглядеть примерно так:

procedure TForm1.LinkFillControlToField1FilledListItem(Sender: TObject; const AEditor: IBindListEditorItem);
var
  Item: TListViewItem;
begin
  if AEditor.CurrentIndex >= 0 then
  begin
    Item := ListView1.Items[AEditor.CurrentIndex];
    Item.Tag := BindSourceDB1.DataSet.FindField('ID').AsInteger;
    ...
  end;
end;

[rustam_d]

 

У LiveBindings-привязок (или как они там правильно называются...) есть набор своих событий.

Например, у LinkFillControlToField есть событие OnFilledListItem в обработчике которого можно дообработать данные из БД, которые не удалось привязать.

Будет выглядеть примерно так:

procedure TForm1.LinkFillControlToField1FilledListItem(Sender: TObject; const AEditor: IBindListEditorItem);
var
  Item: TListViewItem;
begin
  if AEditor.CurrentIndex >= 0 then
  begin
    Item := ListView1.Items[AEditor.CurrentIndex];
    Item.Tag := BindSourceDB1.DataSet.FindField('ID').AsInteger;
    ...
  end;
end;

если это работает раньше ОнИтемКлик...то это действительно находка...ок спс погоняю

[rustam_d]

черт возьми Fil....это просто гениально!!!

такое событие вызывается разово при кноннекте...и сразу заполняешь куда хочешь )...браво!

а по остальным 200 полям я уже перехожу по локейту.

просто заказчик вынес мне моск, что как в ватсапе дату покажи справа в buttontext...теперь проект 

засверкает снова ).

[Ra72]

В 25.08.2015 в 19:18, FIL сказал:

У LiveBindings-привязок (или как они там правильно называются...) есть набор своих событий.

Например, у LinkFillControlToField есть событие OnFilledListItem в обработчике которого можно дообработать данные из БД, которые не удалось привязать.

Будет выглядеть примерно так:

...или так:

procedure TForm1.LinkFillControlToField1FilledListItem(
  Sender: TObject; const AEditor: IBindListEditorItem);
var
  Item: TListViewItem;
begin
  if AEditor.CurrentObject is TListViewItem then
  begin
    Item := TListViewItem(AEditor.CurrentObject);
    Item.Data['ID'] := BindSourceDB1.DataSet.FindField('ID').AsInteger;
  end;
end;