[Setup]
AppName=Tasks Image (png)
AppVersion=1.0
OutputBaseFileName=Tasks Image (png)
WizardStyle=modern
DefaultDirName={pf}\Tasks Image (png)
ArchitecturesInstallIn64BitMode=x64
Compression=lzma2/ultra64
SolidCompression=yes
PrivilegesRequired=admin
AppendDefaultDirName=no
Uninstallable=Not(IsTaskSelected('NoUnins'))
[Languages]
Name: "RU"; MessagesFile: "compiler:Languages\Russian.isl"
[Files]
Source: Resource/Slim.png; DestDir: {tmp}; Flags: dontcopy
Source: Resource/Medium.png; DestDir: {tmp}; Flags: dontcopy
Source: Resource/Fat.png; DestDir: {tmp}; Flags: dontcopy
[Tasks]
Name: "NoUnins"; Description: "Не создавать деинсталлятор и не оставлять следов в системе"; MinVersion: 0.0,6.1sp1; Flags: unchecked
Name: "Slim"; Description: "Тонкие"; GroupDescription: "Выберите тип внутриигровых шрифтов:"; MinVersion: 0.0,6.1sp1; Flags: exclusive unchecked
Name: "Medium"; Description: "Баланс"; GroupDescription: "Выберите тип внутриигровых шрифтов:"; MinVersion: 0.0,6.1sp1; Flags: exclusive
Name: "Fat"; Description: "Толстые"; GroupDescription: "Выберите тип внутриигровых шрифтов:"; MinVersion: 0.0,6.1sp1; Flags: exclusive unchecked
[Code]
{ Переменные }
var
PicImage, PicImage2, PicImage3: TImage;
Slim, Medium, Fat: String;
{ Выбор активного изображения }
procedure OnTaskClick(Sender: TObject);
begin
if WizardIsTaskSelected('Slim') then
begin
PicImage.Visible:=True;
PicImage2.Visible:=False;
PicImage3.Visible:=False;
end else
if WizardIsTaskSelected('Medium') then
begin
PicImage2.Visible:=True;
PicImage.Visible:=False;
PicImage3.Visible:=False;
end else
if WizardIsTaskSelected('Fat') then
begin
PicImage3.Visible:=True;
PicImage.Visible:=False;
PicImage2.Visible:=False;
end;
end;
{ Процедура инициализации GUI программы установки }
procedure InitializeWizard();
begin
with WizardForm.TasksList do
begin
Height := ScaleY(40);
end;
{ Извлечение графических файлов во временный каталог }
Slim := ExpandConstant('{tmp}\Slim.png');
ExtractTemporaryFile(ExtractFileName(Slim));
Medium := ExpandConstant('{tmp}\Medium.png');
ExtractTemporaryFile(ExtractFileName(Medium));
Fat := ExpandConstant('{tmp}\Fat.png');
ExtractTemporaryFile(ExtractFileName(Fat));
// PNG из внешних файлов
PicImage := TImage.Create(WizardForm);
PicImage.AutoSize := True;
PicImage.Picture.LoadFromFile(Slim);
PicImage.Left := ScaleX(0);
PicImage.Top := ScaleY(160);
PicImage.Width := ScaleX(516);
PicImage.Height := ScaleY(138);
PicImage.Parent := WizardForm.SelectTasksPage;
PicImage2 := TImage.Create(WizardForm);
PicImage2.AutoSize := True;
PicImage2.Picture.LoadFromFile(Medium);
PicImage2.Left := ScaleX(0);
PicImage2.Top := ScaleY(160);
PicImage2.Width := ScaleX(516);
PicImage2.Height := ScaleY(138);
PicImage2.Parent := WizardForm.SelectTasksPage;
PicImage3 := TImage.Create(WizardForm);
PicImage3.AutoSize := True;
PicImage3.Picture.LoadFromFile(Fat);
PicImage3.Left := ScaleX(0);
PicImage3.Top := ScaleY(160);
PicImage3.Width := ScaleX(516);
PicImage3.Height := ScaleY(138);
PicImage3.Parent := WizardForm.SelectTasksPage;
PicImage2.Show;
WizardForm.TasksList.OnClickCheck:= @OnTaskClick;
end;