[saurn]

habib2302, как-то так:

читать дальше »

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpSelectProgramGroup:
    begin
      if IsComponentSelected('AIDA642') then
      begin
        WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{#SetupSetting("DefaultDirName")}')) + '{#AIDA642}';
        WizardForm.GroupEdit.Text := AddBackslash(ExpandConstant('{#SetupSetting("DefaultGroupName")}')) + '{#AIDA642}';
      end else begin
        WizardForm.DirEdit.Text := ExpandConstant('{#SetupSetting("DefaultDirName")}');
        WizardForm.GroupEdit.Text := ExpandConstant('{#SetupSetting("DefaultGroupName")}');
      end;
    end;
  end;
end;

///////////////////////////////////////////// можно и так:

var
 OldCompListOnClickCheck: TNotifyEvent;

procedure ComponentsListOnClickCheck(Sender: TObject);
begin
  OldCompListOnClickCheck(TNewCheckListBox(Sender));
  case WizardForm.ComponentsList.ItemIndex of
    0:
    begin
      WizardForm.DirEdit.Text := ExpandConstant('{#SetupSetting("DefaultDirName")}');
      WizardForm.GroupEdit.Text := ExpandConstant('{#SetupSetting("DefaultGroupName")}');
    end;
    1:
    begin
      WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{#SetupSetting("DefaultDirName")}')) + '{#AIDA642}'
      WizardForm.GroupEdit.Text := AddBackslash(ExpandConstant('{#SetupSetting("DefaultGroupName")}')) + '{#AIDA642}'
    end;
  end;
end;

procedure InitializeWizard;
begin
  OldCompListOnClickCheck := WizardForm.ComponentsList.OnClickCheck;
  WizardForm.ComponentsList.OnClickCheck := @ComponentsListOnClickCheck;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectComponents then ComponentsListOnClickCheck(WizardForm.ComponentsList);
end;