paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 03:48:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix also the order of the 3 states of CheckBox. Issue #19980, patch from August Klein

Browse Source 
git-svn-id: trunk@33754 -
This commit is contained in:
juha 2011-11-24 09:35:30 +00:00
parent 1d0d47a59b
commit dfbf4c2aec
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/checklst.pas
View File

@ -207,9 +207,9 @@ procedure TCustomCheckListBox.Toggle(AIndex: Integer);
const
NextStateMap: array[TCheckBoxState] of array[Boolean] of TCheckBoxState =
(
{cbUnchecked} (cbChecked, cbChecked),
{cbChecked } (cbUnChecked, cbGrayed),
{cbGrayed } (cbUnChecked, cbUnChecked)
{cbUnchecked} (cbChecked, cbGrayed),
{cbChecked } (cbUnChecked, cbUnChecked),
{cbGrayed } (cbChecked, cbChecked)
);
begin
State[AIndex] := NextStateMap[State[AIndex]][AllowGrayed];