When you have multiple toggle boxes and select different ones causes system to lock

Original Reporter info from Mantis: Mati

• Reporter name: Mati Unt

Description:

Switching on different toggle boxes causes the system to lock. This problem occurs in Lazarus versions after 1.8.4. Have tested it on all the newer versions of Lazarus and on different computers with the same result.

Steps to reproduce:

Create a form with three ToggleBoxes and one ListBox for output. When one is checked un check the others. This simple program will crash in Lazarus versions after 1.8.4

procedure TForm1.ToggleBox1Click(Sender: TObject);
begin
  ToggleBox1.State:= cbChecked;
  ToggleBox2.State:= cbUnChecked;
  ToggleBox3.State:= cbUnChecked;
  ListBox1.Items.Add('Check1');
end;

procedure TForm1.ToggleBox2Click(Sender: TObject);
begin
  ToggleBox2.State:= cbChecked;
  ToggleBox1.State:= cbUnChecked;
  ToggleBox3.State:= cbUnChecked;
  ListBox1.Items.Add('Check2');
end;

procedure TForm1.ToggleBox3Click(Sender: TObject);
begin
  ToggleBox3.State:= cbChecked;
  ToggleBox2.State:= cbUnChecked;
  ToggleBox1.State:= cbUnChecked;
  ListBox1.Items.Add('Check3');
end;

Mantis conversion info:

• Mantis ID: 36170
• OS: Windows
• OS Build: 10
• Platform: Windows
• Version: 2.0.4
• Fixed in revision: r62095 (#92a535fc)