Вопрос 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 оно не работает? :nea:
 

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;
 
Сверху