[ROMKA-1977]

Подскажите пожалуйста:
На странице доп. задач установил кнопку "Выбрать всё" при клике на которую отмечаются все чекбоксы и она обновляется на кнопку "Очистить всё".
Проблема в том что если все чекбоксы отметить или снять в ручную то обновления кнопки не происходит.

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

[Setup]
SourceDir=.
OutputDir=Setup
AppName=Test
AppVerName=Test
DefaultDirName={pf}\Test
DefaultGroupName=Test
OutputBaseFilename=Setup
AllowNoIcons=true
ShowTasksTreeLines=true

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Files]
Source: {win}\help\*; DestDir: {app}\Files; Flags: external recursesubdirs createallsubdirs;

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}

Name: Soft; Description: Установить дополнительное программное обеспечение; GroupDescription: Дополнительное программное обеспечение:; Flags: unchecked
Name: Soft/DirectX; Description: Microsoft DirectX; Flags: unchecked
Name: Soft/vcredist_x86; Description: Microsoft Visual С++ 2005 Redistributable; Flags: unchecked
Name: Soft/vcredist_x64; Description: Microsoft Visual С++ 2005 Redistributable x64; Flags: unchecked; Check: IsWin64

[code]
var
SelectAll: TNewButton;

procedure ButtonOnClick(Sender: TObject);
var
i: integer;
begin
if (SelectAll.Tag = 0) then
begin
for i:= 0 to WizardForm.TasksList.Items.Count - 1 do
begin
WizardForm.TasksList.Checked[i]:= True;
end;
SelectAll.Caption := 'Очистить всё';
SelectAll.Tag:= 1;
end else
if (SelectAll.Tag = 1) then
begin
for i:= 0 to WizardForm.TasksList.Items.Count - 1 do
begin
WizardForm.TasksList.Checked[i]:= False;
end;
SelectAll.Caption := 'Выбрать всё';
SelectAll.Tag:= 0;
end;
end;

procedure InitializeWizard();
begin
SelectAll := TNewButton.Create(WizardForm);
with SelectAll do
begin
Parent := WizardForm.SelectTasksPage;
Left := ScaleX(0);
Top := ScaleY(204);
Width := ScaleX(75);
Height := ScaleY(25);
OnClick := @ButtonOnClick;
Caption := 'Выбрать всё';
end;
SelectAll.TabOrder := 2;
end;