if DBRadioGroup1.ItemIndex = 0 then begin
for i:=2 to 7 do
begin
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).checked:=true;
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).Enabled:=true;
end;
for i:=8 to 19 do
begin
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).checked:=false;
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).Enabled:=true;
end;
end else
if DBRadioGroup1.ItemIndex = 1 then begin
for i:=2 to 13 do
begin
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).checked:=true;
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).Enabled:=true;
end;
CheckBox14.Checked := False; CheckBox14.Enabled := True ;
CheckBox15.Checked := False; CheckBox15.Enabled := True ;
CheckBox16.Checked := False; CheckBox16.Enabled := True ;
CheckBox17.Checked := False; CheckBox17.Enabled := True ;
CheckBox18.Checked := False; CheckBox18.Enabled := True ;
CheckBox19.Checked := False; CheckBox19.Enabled := True ;
end else
if DBRadioGroup1.ItemIndex = 2 then begin
for i:=2 to 17 do
begin
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).checked:=false;
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).Enabled:=true;
end;
CheckBox18.Checked := False; CheckBox18.Enabled := False;
CheckBox19.Checked := False; CheckBox19.Enabled := False;
end else
if DBRadioGroup1.ItemIndex = 3 then begin
for i:=2 to 19 do
begin
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).checked:=true;
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).Enabled:=true;
end;
end;
for i:=2 to 7 do
begin
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).checked:=true;
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).Enabled:=true;
end;
for i:=8 to 19 do
begin
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).checked:=false;
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).Enabled:=true;
end;
end else
if DBRadioGroup1.ItemIndex = 1 then begin
for i:=2 to 13 do
begin
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).checked:=true;
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).Enabled:=true;
end;
CheckBox14.Checked := False; CheckBox14.Enabled := True ;
CheckBox15.Checked := False; CheckBox15.Enabled := True ;
CheckBox16.Checked := False; CheckBox16.Enabled := True ;
CheckBox17.Checked := False; CheckBox17.Enabled := True ;
CheckBox18.Checked := False; CheckBox18.Enabled := True ;
CheckBox19.Checked := False; CheckBox19.Enabled := True ;
end else
if DBRadioGroup1.ItemIndex = 2 then begin
for i:=2 to 17 do
begin
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).checked:=false;
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).Enabled:=true;
end;
CheckBox18.Checked := False; CheckBox18.Enabled := False;
CheckBox19.Checked := False; CheckBox19.Enabled := False;
end else
if DBRadioGroup1.ItemIndex = 3 then begin
for i:=2 to 19 do
begin
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).checked:=true;
(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).Enabled:=true;
end;
end;