Скрипты Inno Setup. Помощь и советы [часть 8]

[diman_21Ru]

Цитата AlekseyPopovv:



Если добавить if Installer.Checked then или if Portable.Checked then скрипт компилируется, но при запуске инсталлятора выдаёт ошибку

Скрипты Inno Setup. Помощь и советы [часть 8]

Потому что вы обращаетесь к Installer и Portable до того, как они создаются.

[Dodakaedr]

diman_21Ru, Зачем оно вам? Оно и так выделяется


Скрытый текст

[spoiler][/spoiler]

[diman_21Ru]

Цитата nik1967:



вроде бы уже Ветеран, Сообщения: 1351

Скрипты Inno Setup. Помощь и советы [часть 8]

и почти пять сотен лайков заработанных именно на инно

вот доп. файлы и доп. скрипты

http://sendfile.su/1100675

[Dodakaedr]

diman_21Ru, На скрине видно что строка полностью выделена.



kotyarko@fb, можно и так, но в этом случаи весь индекс компонент листа попадает в список, в моем примере только определенный компонент. Грубый, но правильный.



Через процедуру, чтобы не путаться

[spoiler]Код:

[/spoiler]

Код: Выделить всё

[Setup]
AppName=Apps
AppVersion=1.0
DefaultDirName={pf}\Apps
[Components]
Name: Mode; Description: mode; Types: custom; flags: fixed
Name: Mode/SPOnly; Description: SPOnly; Flags:  disablenouninstallwarning 
Name: Mode/MPOnly; Description: MPOnly; Flags: disablenouninstallwarning
Name: Mode2; Description: mode; Types: custom; flags: fixed
Name: Mode2/SPOnly2; Description: SPOnly2; Flags: disablenouninstallwarning 
Name: Mode2/MPOnly2; Description: MPOnly2; Flags: disablenouninstallwarning
[UninstallDelete]
Type: files; Name: "{app}\components.txt"
[Code]
procedure CreateComponentListDone();
begin
      if WizardForm.ComponentsList.Checked[1] then
        SaveStringToFile(ExpandConstant('{app}\components.txt'), 'SPOnly' + #13#10, False);
      if WizardForm.ComponentsList.Checked[2] then
        SaveStringToFile(ExpandConstant('{app}\components.txt'), 'MPOnly' + #13#10, True);
      if WizardForm.ComponentsList.Checked[4] then
        SaveStringToFile(ExpandConstant('{app}\components.txt'), 'SPOnly2' + #13#10, True);
      if WizardForm.ComponentsList.Checked[5] then
        SaveStringToFile(ExpandConstant('{app}\components.txt'), 'MPOnly2' + #13#10, True);
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssDone then
  begin
  CreateComponentListDone();
  end;
end;

[kotyarko@fb]

Цитата AlekseyPopovv:



перед этим стоит

Скрипты Inno Setup. Помощь и советы [часть 8]

Ну и пусть стоит. Это не создание радиобаттонов, а только кейс из них (как и в вышенаписанном вами коде).

Нужно именно чтобы их создание инициализировалось раньше, чем их использование.

[Dodakaedr]

R.i.m.s.k.y., по

1. - подозреваю, что тут ограничения 32 битной версии Inno.

2. - это косяк (ну или фича) скина - без скина лифт есть.

[kotyarko@fb]

Цитата nik1967:



1. - подозреваю, что тут ограничения 32 битной версии Inno.

Скрипты Inno Setup. Помощь и советы [часть 8]

я так не думаю




Цитата nik1967:



2. - это косяк (ну или фича) скина - без скина лифт есть.

Скрипты Inno Setup. Помощь и советы [часть 8]

лады

можно ли сделать раскрывающиеся компоненты?



ну вот

[spoiler]как-то так[/spoiler]

[Dodakaedr]

Цитата R.i.m.s.k.y.:



есть две проблемки:

Скрипты Inno Setup. Помощь и советы [часть 8]

по 1:

Размер указывается не правильно потому что используется чекова функция.

исправить можно так:

Код:

Код: Выделить всё

[messages]
DiskSpaceMBLabel=Требуется как минимум 10.2 Гб свободного дискового пространства.

по 2:

Вам уже ответили. Возможно косяк скина, попробуйте другой.




Цитата R.i.m.s.k.y.:



можно ли сделать раскрывающиеся компоненты?

Скрипты Inno Setup. Помощь и советы [часть 8]

используйте комбобокс

[kotyarko@fb]

Цитата Dodakaedr:



Размер указывается не правильно потому что используется чекова функция.

исправить можно так:

Скрипты Inno Setup. Помощь и советы [часть 8]

в том то и да что галочка на 10гиг не активна если прога уже стоит и тогда показывает все равно неправильно - все галки то сняты

можно ли как-то в коде поменять этот DiskSpaceMBLabel? я и на неё чек поставлю




Цитата Dodakaedr:



используйте комбобокс

Скрипты Inno Setup. Помощь и советы [часть 8]

можно примерчик?



____________________________________

кстати, автор инно ультра тут не пробегал?

[Dodakaedr]

Цитата R.i.m.s.k.y.:



можно ли как-то в коде поменять этот DiskSpaceMBLabel?

Скрипты Inno Setup. Помощь и советы [часть 8]

Сделайте проверку на компонент и укажите текст

Код:

Код: Выделить всё

WizardForm.DiskSpaceLabel.Caption := 'бла-бла';