I have made many changes in that script that you can see..
Can u help me out?
Since I am not from IT background so don't know much about programming. In this script I am not able to link the 'no start menu folder checkbox' with the 'start group selection'. if checkbox is checked then no start menu folder and disabled start group selection and if not then start menu folder.
Pl have a look at the code:
function CheckError:boolean;
begin
if ISDoneError = True then
Result := False
else
Result := True;
end;
function CreateGI:boolean;
begin
if CheckError = True then
begin
if NoIconsCheck.IsChecked then
Result:=True
else
Result:=False;
end;
end;
procedure NoIconsCheckOnClick(Sender: TObject);
begin
if NoIconsCheck.IsChecked=True then begin
WizardForm.GroupEdit.Enabled:= false;
WizardForm.GroupBrowseButton.Enabled:= false;
ButtonSetEnabled(GroupBtn, false);
end else begin
WizardForm.GroupEdit.Enabled:= true;
WizardForm.GroupBrowseButton.Enabled:= true;
ButtonSetEnabled(GroupBtn, true);
end;
WizardForm.GroupEdit.Color:= clblack;
end;