Maratkrk
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
здравствуйте
нужна помощь, пример botva
я создал кнопку
Код:
CloseButton:= BtnCreate(WizardForm.Handle, ScaleX(753), ScaleY(3), ScaleX(45), ScaleY(20), 'close.png', 0, False);
BtnSetEvent(CloseButton, BtnClickEventID, CallbackAddr('WizardFormBtnClick'));
procedure WizardFormBtnClick(hBtn: HWND);
var
Btn: TButton;
begin
case hBtn of
CloseButton: Btn:= WizardForm.CancelButton;
end;
Btn.OnClick(Btn);
BtnRefresh(hBtn);
end;
|
с этим я разобрался, примеров много и тд и тп
а с чекбоксами нет примеров и скриптов
Код:
[Icons]
Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Check: NoStartIcon;
Name: {group}\{cm:UninstallProgram,{#MyAppName}}; Filename: {uninstallexe}; Check: NoStartIcon;
Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Check: DesktopIcon;
[Run]
Filename: "{src}\Redist\DirectX\dxsetup.exe"; WorkingDir: "{src}\Redist\DirectX"; Parameters: "/silent"; Flags: skipifdoesntexist; Check: InstallSoft;
Filename: "{src}\Redist\vcredist_x86.exe"; WorkingDir: "{src}\Redist"; Parameters: "/q"; Flags: skipifdoesntexist; Check: InstallSoft;
DesktopIconCheckBox:= CheckBoxCreate(WizardForm.Handle, ScaleX(15), ScaleY(240), ScaleX(280), ScaleY(15), 'checkb.png', 0, 6);
NoStartIconCheckBox:= CheckBoxCreate(WizardForm.Handle, ScaleX(15), ScaleY(260), ScaleX(280), ScaleY(15), 'checkb.png', 0, 6);
InstallSoftCheckBox := CheckBoxCreate(WizardForm.Handle, ScaleX(15), ScaleY(280), ScaleX(280), ScaleY(15), 'checkb.png', 0, 6);
CheckBoxSetEvent(DesktopIconCheckBox, BtnClickEventID, CallbackAddr('WizardFormBtnClick'));
CheckBoxSetEvent(NoStartIconCheckBox, BtnClickEventID, CallbackAddr('WizardFormBtnClick'));
CheckBoxSetEvent(InstallSoftCheckBox, BtnClickEventID, CallbackAddr('WizardFormBtnClick'));
|
бвл где то пример очень похожий но он для распаковки их архива англ версии игры
|
Всего записей: 4 | Зарегистр. 20-12-2015 | Отправлено: 20:40 21-03-2018 | Исправлено: Maratkrk, 20:44 21-03-2018 |
|
