[Антон_Мураткин@vk]

добавьте это читать дальше » »

Не подходит выдаёт ошибку. Пробовал переделать тоже что то не получается. Может кто поможет? Заранее благодарю!!!

[vint56]

Антон_Мураткин@vk
http://rghost.ru/55019065

[audiofeel]

привет всем, помогите, как сделать , чтоб кнопка GroupBrowseButton (созданная через ботву) обновлялась "правильно" при нажатии на "штатный чек бокс" (не через ботву) "NoIconsCheck"
сделал так =========
procedure NoIconsClick(Sender: TObject);
begin
WizardForm.GroupEdit.Enabled:= not WizardForm.NoIconsCheck.Checked;
BtnSetEnabled(GroupBrowseButton, not WizardForm.NoIconsCheck.Checked);
end;
*********************

procedure InitializeWizard;
begin
with WizardForm do begin
NoIconsCheck.OnClick := @NoIconsClick;

вроде все правильно, но при повторной установке, если при первой выбрал не создовать папку в меню пуск - кнопка активна, а чек бокс нажат
а должно быть , кнопка тоже не активна , раз чек бокс нажат

[Антон_Мураткин@vk]

Цитата vint56:
http://rghost.ru/55019065 »
Благодарю!
Я просто код скрипта стандартый заменял на то что дал Dodakaedr вот из-за этого ошибка и вылазила.
Всем огромное спасибо.

Ещё одну проблему надо решить с этим скриптом! На счёт удаления игры и т.п
Как туда вставить свою картинку и поменять положения текста. Может кто подскажет? Заранее благодарю.

[Dodakaedr]

audiofeel, Пример скрипта скиньте

[Shift85]

как сделать , чтоб кнопка GroupBrowseButton (созданная через ботву) обновлялась "правильно" »

audiofeel, Вот так примерно.

Код:

// Для чек боксов
function NoIcons: Boolean;
begin
  Result:= BtnGetEnabled(hGroupBrowseBtn);
end;

procedure NoIconsClick(hBtn:HWND);
var
  Check:boolean;
begin
  Check:=BtnGetChecked(hBtn);
  BtnSetEnabled(hGroupBrowseBtn, not Check);
  WizardForm.GroupEdit.Enabled:=not Check;
  if Check then NoIconsLabel.Font.Color:=clGray else NoIconsLabel.Font.Color:=$c1c1c1;
end;

procedure NoIconsLabelClick(Sender:TObject);
begin
  BtnSetChecked(NoIconsCheck, not BtnGetChecked(NoIconsCheck));
  NoIconsClick(NoIconsCheck);
end;

Как туда вставить свою картинку »

Антон_Мураткин@vk, Пример через ботву. http://rghost.ru/55023514

[audiofeel]

Вот так примерно »

да , видел я эти примеры, у меня нет лейбла "NoIconsLabel", он стандартный, то есть и чек бокс то же стандартный, и груп эдит тоже стандартный, только кнопка груп браузер - через ботву
честно говоря ваще не понял как его ко мне прикрутить
вот скачайте и попробуйте запустить установщик, при первой установке все норм, но если ее повыторить , то естественно инно прочитает в реестре все что делал пользователь и чек бокс "но айконс" будет активен, то есть нажат - НО КНОПКА ГРУПП БРАУЗЕР АКТИВНА
http://rghost.ru/55026079

[Shift85]

он стандартный, то есть и чек бокс то же стандартный »

audiofeel, На чек бокс

Код:

OnClick:= @NoIconsLabelClick;

[audiofeel]

На чек бокс »

не работает ( не подходит) анкнаун идентифер "но айконс чек"
вот как у меня
function NoIconsCheck: Boolean;
begin
Result:= not WizardForm.NoIconsCheck.Checked;
end;

procedure NoIconsClick(Sender: TObject);
begin
WizardForm.GroupEdit.Enabled:= not WizardForm.NoIconsCheck.Checked;
BtnSetEnabled(GroupBrowseButton, not WizardForm.NoIconsCheck.Checked);
end;

[saurn]

audiofeel, ну все верно. Вы ведь обновляете статус чекбокса при создании формы мастера, а надо на странице, где расположен чекбокс.

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
    case CurPageID of
        Нужная страница: NoIconsClick(nil);  //NoIconsClick(Имя чекбокса);
    end;
end;