TAdvOfficeCheckGroup - hide CheckBoxes

VCL TMS VCL UI Pack
1

Hm, when creating the form, the result is not displayed:

for var I := Ord(TCheckGrp.cgPlace5) to Ord(TCheckGrp.cgPlace17) do
ofchgrTypeOfRound.CheckBoxes[I].Visible := False;

This will take effect if I use this when the form content is already displayed.
Unfortunately, that's already too late. Is there a workaround for this problem?

procedure TfrmsubRound.FormShow(Sender: TObject);
begin
ofchgrTypeOfRound.Columns := 2;
ofchgrTypeOfRound.Width := ofchgrTypeOfRound.Width - Trunc(ofchgrTypeOfRound.Width / Idx3);

for var I := Ord(TCheckGrp.cgPlace5) to Ord(TCheckGrp.cgPlace17) do
ofchgrTypeOfRound.CheckBoxes[I].Visible := False;
end;
But I don't know how to solve the following:
FootMan 2023 04 27 10 25 45

2

I cannot see a problem.
Dropped TAdvCheckGroup on the form, set some items and add in the form's OnCreate event:

procedure TForm1.FormCreate(Sender: TObject);
begin
  AdvOfficeCheckGroup1.CheckBoxes[1].Visible := false;
end;

and this 2nd checkbox is hidden.

3

I didn't write that it was a subform.
What about the problem with the placement of the checkboxes?

4

What "problem of placement"?

5

As you can see, the buttons are densely stacked.
I expect such a state of affairs.
FootMan 2023 04 27 12 53 16

6

Placement is controlled by dividing available height.
Setting a checkbox to visible = false will not rearrange visible checkboxes.

7

Good. I'll arrange accordingly.
Thanks a lot.