You really decide on which version of Inno work. On 5.5.1.ee.2 or 5.5.9 ...Thanks, but in inno 5.5.9.......... error unknown identifier ´SelectLanguageForm´
[Setup]
AppName=app
AppVersion=1.5
DefaultDirName={sd}\Example
DisableWelcomePage=yes
DefaultGroupName=Example
[Files]
Source: compiler:WizModernImage.bmp; DestName: "1.bmp"; Flags: dontcopy
Source: compiler:Examples\MyProg.exe; DestDir: "{app}"; Flags: ignoreversion
[Icons]
Name: "{group}\Example"; Filename: "{app}\MyProg.exe";
[Languages]
Name: "english"; MessagesFile: "compiler:Languages\English.isl"
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
[Code]
var
Label1,Label2: TLabel;
CheckLB: TNewListBox;
function InitializeLanguageDialog(): Boolean;
begin
with SelectLanguageForm do
begin
//***Сама форма***//
SelectLanguageForm.Width := ScaleX(503);
SelectLanguageForm.Height := ScaleY(389);
SelectLanguageForm.Color := $FFFFFF;
SelectLanguageForm.Position:= poScreenCenter;
BorderStyle:= bsDialog;
SelectLanguageForm.Caption := 'Установка';
//***Текст выбора языка***//
SelectLabel.Left:= ScaleX(176);
SelectLabel.Top:= ScaleX(185);
//***Сомво-список языков***//
LangCombo.Left := ScaleX(176);
LangCombo.Height := ScaleX(170);
LangCombo.Top := ScaleX(230);
LangCombo.Width := ScaleX(300);
//***Замена значка на изображение***//
ExtractTemporaryFile('1.bmp');
IconBitmapImage.SetBounds(ScaleX(0), ScaleY(0), ScaleX(164), ScaleY(314));
IconBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.bmp'));
begin
begin
{ NewCheckListBox1 }
CheckLB := TNewListBox.Create(SelectLanguageForm);
with CheckLB do
begin
Parent := SelectLanguageForm;
Left := ScaleX(0);
Top := ScaleY(314);
Width := ScaleX(500);
Height := ScaleY(50);
Color := $f0f0f0;
end;
{ Label1 }
Label1 := TLabel.Create(SelectLanguageForm);
with Label1 do
begin
Parent := SelectLanguageForm;
Caption := 'Вас приветствует мастер'+#10+#13+'установки Имя программы...';
Left := ScaleX(176);
Top := ScaleY(16);
Width := ScaleX(300);
Height := ScaleY(16);
Font.Height := -13;
Font.Size:=12;
Font.Name := 'Verdana';
Font.Style := [fsBold];
end;
{ Label1 }
Label1 := TLabel.Create(SelectLanguageForm);
with Label1 do
begin
Parent := SelectLanguageForm;
Caption := 'Программа установит [name/ver] на ваш компьютер.'+#10+#13+#10+#13+'Рекомендуется закрыть все прочие приложения перед'+#10+#13+'тем, как продолжить.'+#10+#13+#10+#13+'Нажмите «Далее», чтобы продолжить, или «Отмена»,'+#10+#13+'чтобы выйти из программы установки.';
Left := ScaleX(176);
Top := ScaleY(80);
Width := ScaleX(300);
Height := ScaleY(100);
end;
///***Кнопка отмены***///
CancelButton.Width := ScaleX(80);
CancelButton.Left := ScaleX(407);
CancelButton.Top := ScaleX(10);
CancelButton.Parent := CheckLB;
///***Кнопка ОК***///
OKButton.Width := ScaleX(80);
OKButton.Left := ScaleX(317);
OKButton.Top := ScaleX(10);
OKButton.Caption := 'Далее';
OKButton.Parent := CheckLB;
end;
result := true;
end;
end;
end;
#define AppName "Application"
[Setup]
AppName={#AppName}
AppVersion=1.5
DefaultDirName={sd}\{#AppName}
[CustomMessages]
ru_WizardForm=Установка - {#AppName}
ru_WelcomeLabel1=Вас приветствует Мастер установки {#AppName}
ru_WelcomeLabel2=Программа установит {#AppName} на ваш компьютер.%n%nРекомендуется закрыть все прочие приложения перед тем, как продолжить.
ru_NextButton=Далее >
ru_CancelButton=Отмена
en_WizardForm=Setup - {#AppName}
en_WelcomeLabel1=Welcome to the {#AppName} Setup Wizard
en_WelcomeLabel2=This will install {#AppName} on your computer.%n%nIt is recommended that you close all other applications before continuing.
en_NextButton=Next >
en_CancelButton=Cancel
[Code]
var
LanguagesBox: TNewComboBox;
Languages: String;
function NextButtonClick(CurPageID: Integer): Boolean; begin end;
procedure LanguagesUpdate;
begin
WizardForm.WelcomeLabel1.Caption:=CustomMessage(Languages+'WelcomeLabel1');
WizardForm.WelcomeLabel2.Caption:=CustomMessage(Languages+'WelcomeLabel2');
WizardForm.NextButton.Caption:=CustomMessage(Languages+'NextButton');
WizardForm.CancelButton.Caption:=CustomMessage(Languages+'CancelButton');
WizardForm.Caption:=CustomMessage(Languages+'WizardForm');
end;
procedure LanguagesBoxChange(Sender: TObject);
begin
case LanguagesBox.ItemIndex of
0: Languages:='ru_';
1: Languages:='en_';
end;
LanguagesUpdate;
end;
procedure InitializeWizard();
begin
LanguagesBox:=TNewComboBox.Create(WizardForm);
with LanguagesBox do
begin
Parent:=WizardForm;
SetBounds(ScaleX(24), ScaleY(327), ScaleX(145), ScaleY(21));
Items.Add('Русский');
Items.Add('English');
ItemIndex:=0;
OnChange:=@LanguagesBoxChange;
end;
LanguagesBoxChange(LanguagesBox.ItemIndex);
end;