Inno Setup (создание инсталяционных пакетов) - [5060] :: Программы

[_Setup]
AppName=Mafia Mod
AppVerName=0.0
DefaultDirName={sd}\MafiaGame
DisableFinishedPage=yes
Uninstallable=no
UninstallDisplayName=no
DirExistsWarning=no

[_Components]
Name: textures; Description: Mod; Types: ; Flags:
Name: textures; Description: Mod; Types: ; Flags:
Name: textures; Description: Mod; Types: ; Flags:

[_Code]
///// процедура для деактивации кнопки "Установить", если не выбран ни один компонент
procedure OnClick(Sender: TObject);
begin
if WizardForm.ComponentsList.Checked[0] = True then
WizardForm.NextButton.Enabled:= True else WizardForm.NextButton.Enabled:= False;
end;
////////////////////////////////////////////изменить имя кнопки NextButton
procedure CurPageChanged(CurPageID: Integer);
begin
If WizardForm.FindComponent('NextButton') is TButton
then
TButton(WizardForm.FindComponent('NextButton')).Caption:='установить';
///// для процедуры деактивации кнопки "Установить"
begin
if CurPageID=wpSelectDir then
begin
if WizardForm.ComponentsList.Checked[0] = true then
begin
WizardForm.NextButton.Enabled:= True;
end
else
begin
WizardForm.NextButton.Enabled:= False;
end;
end;
end;
end;

procedure InitializeWizard();
///// для процедуры деактивации кнопки "Установить"
begin
WizardForm.ComponentsList.OnClickCheck:= @OnClick;
///// построение единственного окна инсталлятора
WizardForm.Caption :='Mafia: The City of Lost Heaven. Собрание модов.'
WizardForm.SelectDirBitmapImage.Hide;
WizardForm.SelectDirLabel.Hide;
WizardForm.SelectDirBrowseLabel.Hide;
WizardForm.DiskSpaceLabel.Hide;
WizardForm.DirEdit.Top := ScaleY(0);
WizardForm.DirBrowseButton.Top := ScaleY(0);
WizardForm.ComponentsList.Top := ScaleY(30);
WizardForm.ComponentsList.Height := ScaleY(195);
WizardForm.ComponentsList.Parent := WizardForm.SelectDirPage;
end;

// пропуск страниц инсталлятора
function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID = 1) or (PageID = 7) or(PageID = 10) then
Result:= True;
end;

Модерирует : gyra, Maz
articlebot (13-10-2013 23:33): продолжение темы - №15	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению