VPF::TListView: установка чекбоксов в 1-й столбец

malor

Дата 2.11.2012, 22:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 632
Регистрация: 17.11.2006

Репутация: нет
Всего: нет

Нужно иметь столбец с чекбоксами в компоненте TListView.
Выставил в свойствах:
ViewStyle = vsReport
Checkboxes = True

user posted image

Как сделано сейчас:

Код

procedure TMainForm.btRunClick(Sender: TObject);
var
  sNIP: String;
  i : Integer;
begin

  // Вывод в ListView
  for I := 0 to 2 do
  begin
    sNIP := sNIP + 'X'+ #13#10 + IntToStr(I) + #13#10 + IntToStr(I) + #13#10#13#10;
  end;

  slNIP.LineBreak := #13#10#13#10;
  slNIP.Text := sNIP;
  lv.AllocBy := slNIP.Count;

end;

procedure TMainForm.lvData(Sender: TObject; Item: TListItem);
var
  i:Integer;
  LsTempList: TStringList;
begin

  try
    try
      LsTempList := TStringList.Create;
      LsTempList.Text := slNIP[Item.Index];
      Item.Caption := LsTempList[0];
      for i := 1 to LsTempList.Count-1 do
        Item.SubItems.Add(LsTempList[i]);
    finally
      FreeAndNil(LsTempList);
    end;
  except
  end;

end;

Иксами пометил места, где хочется получить реальные чекбоксы. Каким образом это настроить?

Delphi XE

Присоединённый файл ( Кол-во скачиваний: 4 )

LVcheck_02_11_2012.zip 107,38 Kb

Illusion Dolphin

Дата 3.11.2012, 21:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Как бы всемогущий интернет знает http://stackoverflow.com/questions/5519742...-in-a-tlistview

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »