[cybopob90]

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

[cybopob90]

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

Код:

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: Пользуемся тегами!