AkroMen
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Как-то так [setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf} ShowLanguageDialog=auto [Languages] Name: "eng"; MessagesFile: "compiler:Languages\English.isl" Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl" Name: "ukr"; MessagesFile: "compiler:Languages\Ukrainian.isl" [CustomMessages] ; Русский rusButtonBack=< &Назад rusButtonNext=&Далее > rusButtonCancel=Отмена rusSetupWindowTitle=Установка — %1 rusWelcomeLabel1=Вас приветствует Мастер установки %1 rusWelcomeLabel2=Программа установит %1, версия %2 на Ваш компьютер.%n%nРекомендуется закрыть все прочие приложения перед тем, как продолжить.%n%nНажмите «Далее», чтобы продолжить, или «Отмена», чтобы выйти из программы установки. ; English engButtonBack=< &Back engButtonNext=&Next > engButtonCancel=Cancel engSetupWindowTitle=Setup — %1 engWelcomeLabel1=Welcome to the %1 Setup Wizard engWelcomeLabel2=This will install %1 version %2 on your computer.%n%nIt is recommended that you close all other applications before continuing.%n%nClick Next to continue, or Cancel to exit Setup. ; Ukrainian ukrButtonBack=< &Назад ukrButtonNext=&Далi > ukrButtonCancel=Cкасування ukrSetupWindowTitle=Встановити — %1 ukrWelcomeLabel1=Вас вітає Майстер установки %1 ukrWelcomeLabel2=Програма встановить %1, версія %2 на Ваш комп'ютер.%n%nРекомендуємо закрити всі інші програми перед тим, як продовжити.%n%nНатисніть «Далі», щоб продовжити, або «Скасувати», щоб вийти з програми установки. [Code] var lang: String; langBtn: TButton; procedure ChangeLang(); begin WizardForm.BackButton.Caption:= CustomMessage(lang+'ButtonBack'); WizardForm.NextButton.Caption:= CustomMessage(lang+'ButtonNext'); WizardForm.CancelButton.Caption:= CustomMessage(lang+'ButtonCancel'); WizardForm.Caption:= FmtMessage(CustomMessage(lang+'SetupWindowTitle'), ['{#SetupSetting('AppName')}']); WizardForm.WelcomeLabel1.Caption:= FmtMessage(CustomMessage(lang+'WelcomeLabel1'), ['{#SetupSetting('AppName')}']); WizardForm.WelcomeLabel2.Caption:= FmtMessage(CustomMessage(lang+'WelcomeLabel2'), ['{#SetupSetting('AppName')}', '{#SetupSetting('AppVersion')}']); end; procedure LangBtnClick(Sender: TObject); begin if lang='rus' then begin lang:= 'eng'; langBtn.Caption:= 'eng'; end else begin lang:= 'rus'; langBtn.Caption:= 'rus'; lang:= 'ukr'; langBtn.Caption:= 'ukr'; end; ChangeLang(); end; procedure InitializeWizard; begin langBtn:= TButton.Create(WizardForm); with langBtn do begin SetBounds(10,WizardForm.CancelButton.Top,30,WizardForm.CancelButton.Height) OnClick:= @LangBtnClick; Parent:= WizardForm; end; if ActiveLanguage='rus' then begin lang:= 'eng'; langBtn.Caption:= 'eng'; lang:= 'rus'; langBtn.Caption:= 'rus'; end else begin lang:= 'ukr'; langBtn.Caption:= 'ukr'; end; end; | Всего записей: 22 | Зарегистр. 29-04-2014 | Отправлено: 00:19 05-05-2014 | Исправлено: AkroMen, 01:22 05-05-2014 |
|