How to place TCheckBox in Column of TListView? or similar way? 1

[smilife]

how to place TCheckBox in TListView?
In a ListView of vsReport, I want a column implemented by
TCheckBox? Is it possible?
If not, which other is good way to implement this?

 

[fruNNik]

I got this working...
Make the Listview Ownerdrawn, and put this (and more in
CustomDrawItem:

Hope this helps

-fruNNik



procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
r: TRect;
flags: Word;
begin
r := Item.DisplayRect(drBounds);
r.Right := 13;

// make even items checked
flags := DFCS_BUTTONCHECK;
if Item.Index mod 2 = 0 then
flags := f or DFCS_CHECKED;

DrawFrameControl(
ListView1.Canvas.Handle,
r,
DFC_BUTTON,
f
);
end;

 

[smilife]

Thanks for fruNNik!
I'll have a try