On Jan 11, 2008, at 2:23 AM, Paul Ishenin wrote:

Damien Gerard wrote:
I have a little issue with TCheckListBox.
It is impossible to set by han if an items is checked or not.
After reading the code, I have found the following code :
procedure TCustomCheckListBox.SetChecked(const AIndex: Integer;
 const AValue: Boolean);
begin
 SetState(AIndex, cbChecked);
end;
May be it should be :
procedure TCustomCheckListBox.SetChecked(const AIndex: Integer;
 const AValue: Boolean);
begin
 if AValue then
   SetState(AIndex, cbChecked)
 else
   SetState(AIndex, cbUnchecked);
end;
With this modification it works well for me.

Thanks, my fault. Applied in r13718.


Thanks

--
Damien Gerard
[EMAIL PROTECTED]

Le temps n'a pas d'importance. Seul le code est important
   -- (f00ty)




_________________________________________________________________
    To unsubscribe: mail [EMAIL PROTECTED] with
               "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

Reply via email to