Skip to content
GitLab
    • GitLab: the DevOps platform
    • Explore GitLab
    • Install GitLab
    • How GitLab compares
    • Get started
    • GitLab docs
    • GitLab Learn
  • Pricing
  • Talk to an expert
  • Help
    • Help
    • Support
    • Community forum
    • Submit feedback
    • Contribute to GitLab
    • Switch to GitLab Next
    • Menu
    Projects Groups Snippets
  • Get a free trial
  • Sign up
  • Login
  • Sign in / Register
  • Lazarus Lazarus
  • Project information
    • Project information
    • Activity
    • Labels
    • Members
  • Repository
    • Repository
    • Files
    • Commits
    • Branches
    • Tags
    • Contributors
    • Graph
    • Compare
    • Locked Files
  • Issues 2,086
    • Issues 2,086
    • List
    • Boards
    • Service Desk
    • Milestones
    • Iterations
  • Merge requests 10
    • Merge requests 10
  • Deployments
    • Deployments
    • Releases
  • Analytics
    • Analytics
    • Value stream
    • Code review
    • Insights
    • Issue
    • Repository
  • External wiki
    • External wiki
  • Activity
  • Graph
  • Create a new issue
  • Commits
  • Issue Boards
Collapse sidebar

GitLab 15.0 has launched! Please visit Breaking changes in 15.0 and 15.0 Removals to see which breaking changes may impact your workflow.

  • FPC
  • Lazarus
  • LazarusLazarus
  • Issues
  • #36170
Closed
Open
Created Oct 12, 2019 by FPC Admin account@fpc_adminOwner

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)
Assignee
Assign to
Time tracking