About Tchecklistbox

[a.atalla]

on my small application i used a Tchecklistbox  which has some items
i can control the checkboxes  but i need to make an event handler for each item
i only found   CheckListBox1ClickCheck  but this work when i check any of the items
i need a seperate handler for each item

[theo]

Doesn't OnItemClick work?

Code: [Select]

procedure TForm1.CheckListBox1ItemClick(Sender: TObject; Index: integer);
begin
  if CheckListBox1.Checked[Index] then
  CheckListBox1.Items[index]:='checked' else CheckListBox1.Items[index]:='not checked';
end;


[a.atalla]

Thanks
it work perfectly ,i didnot notice this event ...LOL

[a.atalla]

Can i add an icon to each item in the checklistbox i saw it in many applications
can it be done in lazarus?
just like this application in gnome

http://i.imgur.com/VzoNJ.png

[Marc]

IIRC this is possible with a TListview or you can use a ownerdraw checklistbox

[a.atalla]

Tlistview is great  but it doesnot have the event  OnItemClick

itried to use onChange for the lisview but it doesnot work as i wish cause it execute the event in 2 cases  (selected changes or checked changes ) and my needs it to work only when i change the checked proberty only


about the ownerdraw listbox is there any tutorial to show how to do it ????????/

[a.atalla]

This is  a perfect solution to make the listview raise n event when the checked status is changed
but i couldnot apply it for lazarus 

http://delphi.about.com/od/delphitips2007/qt/listviewchecked.htm

any help

[Marc]

File a bugrep with a feature request to add this. To me is shouldn't be to difficult to add this to the widgetsets.