When you have multiple toggle boxes and select different ones causes system to lock
Original Reporter info from Mantis: Mati
-
Reporter name: Mati Unt
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)