nOobCrafter
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Еще вопрос который несколько озадачил (вообщем то я его решил просто интересна причина). Вот структура:
Код: procedure CurPageChanged(CurPageID: Integer);
Begin
if (CurPageID = wpSelectTasks) and not AddCheckBoxExist then begin
if DirExists('C:\Rovalant') then begin
WizardForm.TasksList.AddCheckBox('Обновить приложение', '', 0, False, True, True, True, nil) // это наш новый компонент который мы только что добавили, прошу заметить стоит 1 фолс, стало быть по дефолту он НЕ выбран!
WizardForm.TasksList.AddCheckBox('Создать резервную копию:', '', 0, True, True, True, True, nil) // этот компонент был и раньше, по дефолту выбран
WizardForm.TasksList.AddCheckBox('Создать резервную копию баз данных конфигурации объекта', '', 1, True, True, False, True, nil) // это дочерние компоненты
//.......
end;
AddCheckBoxExist:=True;
end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
if DirExists('C:\123') then begin
if CurStep = ssInstall then begin
// это мы вверху добавили новый компонент и соответственно считываем что будет елси он выбран
if WizardForm.TasksList.Checked[4] = True then //если чекбокс отмечен тогда выполняем бекап с заменой
begin
MsgBox('пошел бэкап и потом замена файлов', MbInformation, Mb_Ok);
end;
// это то что было раньше
if WizardForm.TasksList.Checked[5] = True then
begin
MsgBox('привет это старый компонент', MbInformation, Mb_Ok);
end;
end;
end;
end; |
Что меня смутило, по идее при добавлении нового компонента в начале, их число увеличивается и соответственно все номеры старых компонентов что стоят после нового увеличиваются на 1 ( ну как в очереди, если кто то встал перед тобой то ты уже не 8ой,а 9ый..) Так вот тут этого не происходит, порядок остался тем же, а новый компонент реагирует на номер 4, (хотя старый как был 5ый так и остался, а 4 это просто строка типа - "Дополнительные задачи" она не активна). С чем это может быть связано? |
Всего записей: 99 | Зарегистр. 26-06-2008 | Отправлено: 11:03 12-03-2009 | Исправлено: nOobCrafter, 11:04 12-03-2009 |
|
