Вопрос TasksList не работает на wpWelcome

[Tolyak26]

В общем суть вопроса такова: Как заставить работать WizardForm.TasksList на странице wpWelcome?

Сделал страницу с опциями установки, элементы кроме TasksList работают нормально.

procedure InitializeWizard();
begin
...
    with WizardForm.TasksList do begin
      Parent:=WizardForm;
      SetBounds(ScaleX(9), ScaleY(49), ScaleX(441), ScaleY(172));
      Offset := 2;
      Color := clWindow;
      BorderStyle := bsSingle;
      ShowLines := True;
      WantTabs := True;
    end;
...
end;

[Components]
Name: text; Description: "Язык интерфейса"; Types: full; Flags: fixed;
Name: text\rus; Description: "Русский"; Flags: exclusive;
Name: text\eng; Description: "Английский"; Flags: exclusive;
Name: voice; Description: "Язык озвучения"; Types: full; Flags: fixed;
Name: voice\rus; Description: "Русский"; Flags: exclusive;
Name: voice\eng; Description: "Английский"; Flags: exclusive;

[Tasks]
Name: VCCheck; Description: Установить Microsoft Visual C++ 2005 Redist
Name: PhysXCheck; Description: Установить Nvidia PhysX

 

[Tolyak26]

Переделал все элементы для работы со страницой wpSelectTasks. TasksList теперь работает, но все же почему на wpWelcome оно не работает?

 

[Nemko]

Inno считывает список из секции [Task] в стандартный TasksList только на странице SelectTasksPage. Вы можете почитать здесь подробно (http://krinkels.org/threads/kak-izmenit-porjadok-stranic.2914/#post-26889), кстати там пример создания кастомного TasksList'a чуть ниже.

 

[zettend]

Я конечно не всё понимаю.
Но может лучше осуществить компонентами?

 

[Tolyak26]

Я конечно не всё понимаю.
Но может лучше осуществить компонентами?

Я просто поинтересовался почему не работает на странице приветствия, так то у меня уже все работает.
Не люблю, когда в компонентах свалено все в одну кучу.

 

[ZVSRus]

Tolyak26,

Спойлер: Может так

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code_]
var
  WelcomePanel: TPanel;
  CheckListBox: TNewCheckListBox;

procedure InitializeWizard();
begin
  WelcomePanel := TPanel.Create(WizardForm);
  with WelcomePanel do
  begin
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(164);
    Top := ScaleY(180);
    Width := ScaleX(333);
    Height := ScaleY(134);
  end;

   CheckListBox                 := TNewCheckListBox.Create(WizardForm);               
   CheckListBox.Parent        := WelcomePanel;                                      
   CheckListBox.SetBounds(ScaleX(5), ScaleY(5), ScaleX(323), ScaleY(123));       
   CheckListBox.Flat            := False;                                             
   CheckListBox.Color           := clWhite;                                           
   CheckListBox.BorderStyle  := bsNone;                                            
   CheckListBox.WantTabs    := True;                                            
//==================================================================================/////////////////////////////////
   CheckListBox.AddCheckBox('Ассоциировать с файлами имеющими расширения:', '', 0, False, True, False, True, nil); //   0
   CheckListBox.AddCheckBox('.EPUB', '', 1, False, True, False, True, nil);                                        //   1
   CheckListBox.AddCheckBox('.FB2', '', 1, False, True, False, True, nil);                                         //   2
   CheckListBox.AddCheckBox('.MOBI', '', 1, False, True, False, True, nil);                                        //   3
   CheckListBox.AddCheckBox('.CBR', '', 1, False, True, False, True, nil);                                         //   4
   CheckListBox.AddCheckBox('.CBZ', '', 1, False, True, False, True, nil);                                         //   5
   CheckListBox.AddCheckBox('.DJVU', '', 1, False, True, False, True, nil);                                        //   6

   CheckListBox.AddCheckBox('Посетить Сайты:', '', 0, False, True, False, True, nil);  //False                     //   0
   CheckListBox.AddCheckBox('Посетить Сайт-трекер "NNM-Club"', '', 1, False, True, False, True, nil);              //   1
   CheckListBox.AddCheckBox('Посетить Форум "Krinkels.org"', '', 1, False, True, False, True, nil);                //   2
   CheckListBox.AddCheckBox('Посетить Форум "OSZone.net"', '', 1, False, True, False, True, nil);                  //   3
   CheckListBox.AddCheckBox('Посетить Форум "RU-Board.com"', '', 1, False, True, False, True, nil);               //   4
   CheckListBox.AddCheckBox('Скачать "RePack,и" автора', '', 1, False, True, False, True, nil);                    //   5

   CheckListBox.AddCheckBox('Дополнитьельные значки', '', 0, False, True, False, True, nil);                     //   0
   CheckListBox.AddCheckBox('Создать ярлык на рабочем столе', '', 1, False, True, False, True, nil);             //   1
   CheckListBox.AddCheckBox('Создать ярлык в Панели быстрого запуска', '', 1, False, True, False, True, nil);    //   2

   CheckListBox.AddCheckBoxEx('Язык озвучки', '', 0, False, True, False, True, nil, True);                       //   3
   CheckListBox.AddRadioButtonEx('Русскоязычные радио', '', 1, True, True, nil, False);                          //   4
   CheckListBox.AddRadioButtonEx('Англоязычные радио', '', 1, False, True, nil, True);                           //   5

   CheckListBox.AddCheckBoxEx('Установить дополнительное программное обеспечение', '', 0, True, True, True, True, nil,True); //   6
   CheckListBox.AddCheckBoxEx('Microsoft DirectX', '', 1, True, True, True, True, nil,True);                                 //   7
   CheckListBox.AddCheckBoxEx('Microsoft Visual С++ 2005 Redistributable', '', 1, True, True, True, True, nil,True);         //   8
   CheckListBox.AddCheckBoxEx('Microsoft Visual С++ 2006 Redistributable', '', 1, True, True, True, True, nil,True);         //   9
   CheckListBox.AddCheckBoxEx('Microsoft Visual С++ 2007 Redistributable', '', 1, True, True, True, True, nil,True);         //   10
   CheckListBox.AddCheckBoxEx('Microsoft Visual С++ 2008 Redistributable', '', 1, True, True, True, True, nil,True);         //   11
   CheckListBox.AddCheckBoxEx('Microsoft Visual С++ 2009 Redistributable', '', 1, True, True, True, True, nil,True);         //   12
   CheckListBox.AddCheckBoxEx('Microsoft Visual С++ 2010 Redistributable', '', 1, True, True, True, True, nil,True);         //   13
end;

 

[zettend]

ZVSRus, Да был же ответ уже от Nemko.
Иии... Вот:

так то у меня уже все работает.