I am having problems using the tAdvOfficeRadioGroup OnIsEnabled Event Handler. Consider a form with a check box and a radio group of 2 items. I use OnIsEnabled to set the first button to enabled based on the state of the check box and the 2nd button is always enabled. This works OK disabling the radio button, but not enabling it. This is the code:
procedure TForm1.CBClick(Sender: TObject);
begin
RG.Update;
end;
procedure TForm1.RGIsEnabled(Sender: TObject; ItemIndex: Integer; var Enabled: Boolean);
begin
case ItemIndex of
0: Enabled := CB.Checked;
1: Enabled := true;
end;
end;
It looks like there is a problem in the ArrangeButtons method in line 3658 (V1.8.4.1) of AdvOfficeButtons.pas. I think it should be:
Enabled := RadioEnable and Self.Enabled;
not
Enabled := RadioEnable and Enabled;