paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 04:26:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix TCheckListBox.SetChecked by Damien Gerard

Browse Source 
git-svn-id: trunk@13718 -
This commit is contained in:
paul 2008-01-11 01:17:39 +00:00
parent 2d5af20d8c
commit e7d0fde1ac
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/checklst.pas
View File

@ -251,7 +251,10 @@ end;
procedure TCustomCheckListBox.SetChecked(const AIndex: Integer; procedure TCustomCheckListBox.SetChecked(const AIndex: Integer;
const AValue: Boolean); const AValue: Boolean);
begin begin
SetState(AIndex, cbChecked); if AValue then
SetState(AIndex, cbChecked)
else
SetState(AIndex, cbUnChecked);
end; end;
procedure TCustomCheckListBox.ClickCheck; procedure TCustomCheckListBox.ClickCheck;