[audiofeel]

опять я тут со своими чек боксами. не могу "сделать" такое = при отмене создания папки в меню пуск, (т.е когда нажат чек бокс "не создавать папку") кнопка групп браузер бутон не активна, примеров насобирал штук 10. ни один не могу "воткнуть"
в кратце скрипт

Скрытый текст

procedure WizardFormBtnClick(hBtn: HWND);
var
Btn: TButton;

begin
case hBtn of
GroupBrowseButton: Btn := WizardForm.GroupBrowseButton;
end;
end;
Btn.OnClick(Btn);
BtnRefresh(hBtn);
end;

procedure GroupEditOnChange(Sender: TObject);
begin
GroupEditLabel.Caption := MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width);
end;

function NoStartIcon: boolean;
begin
Result := not BtnGetChecked(NoStartIconCheckBox);
end;

procedure CheckBoxesClick(Sender: TObject);
begin
case Sender of
NoStartIconLabel: BtnSetChecked(NoStartIconCheckBox, not BtnGetChecked(NoStartIconCheckBox));
end;
end;

procedure CreateButtons;
begin
GroupBrowseButton := BtnCreate(WizardForm.Handle, ScaleX(494), ScaleY(132), ScaleX(94), ScaleY(26), 'DirBrowseBtn.png', 0, False);
BtnSetEvent(GroupBrowseButton, BtnClickEventID, WrapBtnCallback(@WizardFormBtnClick, 1));
NoStartIconCheckBox := BtnCreate(WizardForm.Handle, ScaleX(25), ScaleY(235), ScaleX(18), ScaleY(18), 'CheckBox.png', 0, True);
end;