Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Johny777

Ветеран


Сообщения: 649
Благодарности: 444

Профиль | Отправить PM | Цитировать


Raf-9600,
вот тебе пример как вносить строки в мемо в зависимости от выбора (надеюсь не накосячил с проверкой "выбран ли хоть один из компонентов")
разбирай

читать дальше »
Код: Выделить весь код
[Setup]
AppName=Portable
VersionInfoVersion=5.0
AppVerName=Portable
DefaultDirName={pf}\Portable_Or_Not_Test
DefaultGroupName=The_Most_Beautiful_Group_Name_Ever


[Components]
Name: port; Description: Portable; Types: full custom;
Name: port\add1; Description: Patch_for_Portable; Types: full custom; Flags: exclusive;
Name: port\add2; Description: Portable_Rusian_Language; Types: full custom; Flags: exclusive;

Name: dr_port; Description: Another_Portable; Types: full custom;



[Icons]
Name: {group}\new\Notepad; Filename: notepad.exe; Components: not port

[code]
function  ShouldSkipPage(PageID: Integer): Boolean;
begin
  if PageID = wpSelectProgramGroup then Result := IsComponentSelected('port');
end;

procedure CurPageChanged(CurPageID: Integer);
var
  i: Integer;
  
begin
  if (CurPageID = wpReady) and (IsComponentSelected('port')) then
  begin
    with WizardForm.ReadyMemo do
    begin
      Clear;
      Lines.Add(SetupMessage(msgReadyMemoDir) + #13#10 +                       
                '      ' + WizardForm.DirEdit.Text + #13#10 +
                + #13#10 +
                SetupMessage(msgReadyMemoType) + #13#10 +
                '      ' + WizardForm.TypesCombo.Text);
      if WizardForm.ComponentsList.Checked[i] then /// если отмечен хоть один из компонентов
      begin
        Lines.Add('');  /// пустая строка
        Lines.Add(SetupMessage(msgReadyMemoComponents));  /// "Выбранные компоненты:"
        
        if IsComponentSelected('port') then Lines.Add('      ' + 'Portable'); /// если выбран компонет port, то добавить строку   '      '  - пробелы от левого края + 'описание компонента'
        if IsComponentSelected('port\add1') then Lines.Add('      ' + 'Patch_for_Portable');  /// по аналогии и дальше
        if IsComponentSelected('port\add2') then Lines.Add('      ' + 'Portable_Rusian_Language');
        if IsComponentSelected('dr_port') then Lines.Add('      ' + 'Another_Portable');
      end;
    end;
  end;
end;


И вообще ты уверен что есть люди которые читают страницу готовности ?

Последний раз редактировалось Johny777, 29-06-2012 в 18:57.

Это сообщение посчитали полезным следующие участники:

Отправлено: 18:49, 29-06-2012 | #346