[habib2302]

Доброе время суток. Как добавить переключатель языков инсталлятора

[nik1967]

habib2302, я выкладывал пример несколько страниц назад. А так, как реализовано у нас - не для паблика.

[habib2302]

nik1967, только не все переводит!!!

[nik1967]

habib2302, естественно - это же только пример. Чтобы было переведено - нужно переписывать все лейблы, сообщения и всё остальное.

[FX-DENIS]

и в таком варианте у вас появляется 103% ? Здесь же составляется элементарная пропорция, т.е. Max = 100%, Position = x, от сюда получается x=(Position*100)/Max »

Да,если с фри арком скрипт,все что ты давал стандартный прогресс показывает 103%.Санчез помог дав альтернативные варианты ,где пишется с нолями 100.00%.

Я лучше промолчу... »

А что тебя так напрягает?что я о тебе вспомнил?Ты же мне много помогал всегда тут.

[Serega]

все что ты давал стандартный прогресс показывает 103% »

Единственное объяснение, это только глюк инно, т.е. Position становится больше Max, математически формула верна. В любом случае, у меня ни разу не было более 100%

[Shkutu]

Доброго времени суток!
Может кто-то подскажет, с помощью чего лучше осуществлять взаимодействие inno setup и ms sql server 12 (разворачивать базу, выполнять запросы)?
Есть sqlcmd.exe, но это работает только для 64-битной системы. Версию этой утилиты для 32х битной найти не могу
Может, кто-то знает, где взять или подскажет, чем можно заменить?

[Optitron]

Здравствуйте. Нужна помощь. Не удается страницу "компоненты" поставить перед объединенной страницой папки установки и меню пуск, вот скрипт

читать дальше »

[Setup]
DisableReadyPage=yes
DisableProgramGroupPage=true

[Components]
Name: 1; Description: 1; Flags: exclusive; Types: custom compact full
Name: 2; Description: 2; Flags: exclusive;
Name: 3; Description: 3; Flags: exclusive;


[code]
procedure InitializeWizard();
begin
//проблема начинается тут
WizardForm.SelectedComponentsBitmapImage.Parent := WizardForm.SelectDirPage;
WizardForm.SelectedComponentsLabel.Parent := WizardForm.SelectDirPage;
WizardForm.SelectedComponentsBrowseLabel.Parent := WizardForm.SelectDirPage;
WizardForm.SelectedComponentsSelectComponentsLabel2 := WizardForm.SelectDirPage;
WizardForm.SelectedComponentsFullInstallation := WizardForm.SelectDirPage;
WizardForm.SelectedComponentsCompactInstallation := WizardForm.SelectDirPage;
WizardForm.SelectedComponentsCustomInstallation := WizardForm.SelectDirPage;
WizardForm.SelectedComponentsNoUninstallWarningTitle := WizardForm.SelectDirPage;
WizardForm.SelectedComponentsNoUninstallWarning := WizardForm.SelectDirPage;
WizardForm.SelectedComponentsComponentSize1 := WizardForm.SelectDirPage;
WizardForm.SelectedComponentsComponentSize2 := WizardForm.SelectDirPage;
WizardForm.SelectedComponentsComponentsDiskSpaceMBLabel := WizardForm.SelectDirPage;
//конец проблемы

WizardForm.ComponentsList.Top := ScaleY(45);
WizardForm.ComponentsList.Height := ScaleY(160);
WizardForm.TypesCombo.Visible := False;

WizardForm.DiskSpaceLabel.Top := ScaleY(65);
WizardForm.DirBrowseButton.Top := ScaleY(36);
WizardForm.DirEdit.Top := ScaleY(37);
WizardForm.NoIconsCheck.Parent := WizardForm.SelectDirPage;
WizardForm.SelectDirLabel.Top := ScaleX(09)
WizardForm.SelectDirBitmapImage.Top := ScaleY(0)
WizardForm.SelectDirBrowseLabel.Visible := False
WizardForm.SelectGroupBitmapImage.Top := ScaleY(95);
WizardForm.SelectGroupBitmapImage.Parent := WizardForm.SelectDirPage;
WizardForm.GroupBrowseButton.Parent := WizardForm.SelectDirPage;
WizardForm.GroupBrowseButton.Top := ScaleY(133);
WizardForm.GroupEdit.Parent := WizardForm.SelectDirPage;
WizardForm.GroupEdit.Top := ScaleY(134);
WizardForm.SelectStartMenuFolderBrowseLabel.Parent := WizardForm.SelectDirPage;
WizardForm.SelectStartMenuFolderBrowseLabel.Top := ScaleY(170);
WizardForm.SelectStartMenuFolderLabel.Parent := WizardForm.SelectDirPage;
WizardForm.SelectStartMenuFolderLabel.Top := ScaleY(105);
end;

[El Sanchez]

.Санчез помог дав альтернативные варианты ,где пишется с нолями 100.00%. »

FX-DENIS, если не нужна дробная часть, в функции Format в первом параметре поставить точку, чтобы получилось '%.n %%'.

Версию этой утилиты для 32х битной найти не могу »

Shkutu, http://go.microsoft.com/fwlink/?Link...49&clcid=0x419

[Nordek]

Не удается страницу "компоненты" поставить перед объединенной страницой папки установки и меню пуск »

читать дальше »

Код:

[Languages]
Name: default; MessagesFile: compiler:Default.isl
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Messages]
russian.WizardSelectDir=Выбор компонентов
russian.SelectDirDesc=Какие компоненты должны быть установлены?
russian.WizardSelectComponents=Выбор папки установки
russian.SelectComponentsDesc=В какую папку вы хотите установить [name]?
default.WizardSelectDir=Select Components
default.SelectDirDesc=Which components should be installed?
default.WizardSelectComponents=Select Destination Location
default.SelectComponentsDesc=Where should [name] be installed?

[Code]
procedure InitializeWizard();
 begin
  WizardForm.ComponentsList.Top := ScaleY(45);
  WizardForm.ComponentsList.Height := ScaleY(160);
  WizardForm.TypesCombo.Visible := False;
  WizardForm.DiskSpaceLabel.Parent := WizardForm.SelectComponentsPage;
  WizardForm.DiskSpaceLabel.Top := ScaleY(65);
  WizardForm.DirBrowseButton.Parent := WizardForm.SelectComponentsPage;
  WizardForm.DirBrowseButton.Top := ScaleY(36);
  WizardForm.DirEdit.Parent := WizardForm.SelectComponentsPage;
  WizardForm.DirEdit.Top := ScaleY(37);
  WizardForm.NoIconsCheck.Parent := WizardForm.SelectComponentsPage;
  WizardForm.NoIconsCheck.Parent := WizardForm.SelectComponentsPage;
  WizardForm.SelectDirLabel.Parent := WizardForm.SelectComponentsPage;
  WizardForm.SelectDirLabel.Top := ScaleX(09)
  WizardForm.SelectDirBitmapImage.Parent := WizardForm.SelectComponentsPage;
  WizardForm.SelectDirBitmapImage.Top := ScaleY(0)
  WizardForm.SelectDirBrowseLabel.Parent := WizardForm.SelectComponentsPage;
  WizardForm.SelectDirBrowseLabel.Visible := False
  WizardForm.SelectGroupBitmapImage.Parent := WizardForm.SelectComponentsPage;
  WizardForm.SelectGroupBitmapImage.Top := ScaleY(95);
  WizardForm.GroupBrowseButton.Parent := WizardForm.SelectComponentsPage;
  WizardForm.GroupBrowseButton.Top := ScaleY(133);
  WizardForm.GroupEdit.Parent := WizardForm.SelectComponentsPage;
  WizardForm.GroupEdit.Top := ScaleY(134);
  WizardForm.SelectStartMenuFolderBrowseLabel.Parent := WizardForm.SelectComponentsPage;
  WizardForm.SelectStartMenuFolderBrowseLabel.Top := ScaleY(170);
  WizardForm.SelectStartMenuFolderLabel.Parent := WizardForm.SelectComponentsPage;
  WizardForm.SelectStartMenuFolderLabel.Top := ScaleY(105);
  WizardForm.ComponentsDiskSpaceLabel.Parent := WizardForm.SelectDirPage;
  WizardForm.ComponentsList.Parent := WizardForm.SelectDirPage;
  WizardForm.TypesCombo.Parent := WizardForm.SelectDirPage;
  WizardForm.SelectComponentsLabel.Parent := WizardForm.SelectDirPage;
 end;

При переставлении страниц, ещё нужно проводить манипуляции в [Messages] иначе в MainPanel белиберда будет.