[cybopob90]

Подскажите пожалуйста почему CheckBox в ListView в режиме vsReport, когда подключаю картинки через SmallImages = ImageList1 поднимается немного вверх, а не остаётся по центру, как вернуть его обратно в центр, чтобы и картинки остались (может можно как-то поменять координаты checkbox в ListView)?????

[cybopob90]

Нашёл этот код на форуме, он добавляет checkBox в любую колонку, а как потом работать с этими checkbox-ами (узнать, что он нажат или нет)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm1.Button1Click(Sender: TObject); const pbColumnIndex = 1; pbMax = 100; var li : TListItem; lv : TListView; pb : TCheckBox; pbRect : TRect; begin lv := ListView1; li := lv.Items.Add; li.Caption := 'Item ' + IntToStr(lv.Items.Count); pb := TCheckBox.Create(nil); pb.Parent := lv; li.Data := pb; pbRect := li.DisplayRect(drBounds); pbRect.Left := pbRect.Left + lv.Columns[-1 + pbColumnIndex].Width; pbRect.Right := pbRect.Left + lv.Columns[pbColumnIndex].Width; pb.BoundsRect := pbRect; end;

Admin: Пользуемся тегами!