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

[kotyarko@fb]

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

[nik1967]

R.i.m.s.k.y., вроде бы уже Ветеран, Сообщения: 1351, ну а где доп. файлы и доп. скрипты? Что, самому, что ли всё искать и собирать? Сколько раз уже по этому поводу было написано.

[R.i.m.s.k.y.]

вроде бы уже Ветеран, Сообщения: 1351 »
и почти пять сотен лайков заработанных именно на инно :D
вот доп. файлы и доп. скрипты http://sendfile.su/1100675

[AlekseyPopovv]

kotyarko@fb, перед этим стоит:
procedure CopmpClick(Sender: TObject);
begin
case TNewRadioButton(Sender) of
Portable:
begin
Icons.Checked:=False;
Icons.Enabled:= Icons.Checked;
Startmenu.Checked:=False;
Startmenu.Enabled:= Startmenu.Checked;
Panmenuicons.Checked:=False;
Panmenuicons.Enabled:= Panmenuicons.Checked;
end;
Installer:
begin
Icons.Checked:=True;
Icons.Enabled:= Icons.Checked;
Startmenu.Checked:=True;
Startmenu.Enabled:= Startmenu.Checked;
Panmenuicons.Checked:=True;
Panmenuicons.Enabled:= Panmenuicons.Checked;
end;
end;
end;
Я тоже не вчера родился, вопрос был конкретный, если Вы знаете, почему не можете подсказать? Ведь на форумы Я обращаюсь редко, когда действительно не могу понять!!! В принципе дело Ваше. Заранее извиняюсь за мои высказывания, как говорится "ни кто ни кому не обязан"!

[kotyarko@fb]

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

[nik1967]

R.i.m.s.k.y., по
1. - подозреваю, что тут ограничения 32 битной версии Inno.
2. - это косяк (ну или фича) скина - без скина лифт есть.

[R.i.m.s.k.y.]

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

2. - это косяк (ну или фича) скина - без скина лифт есть. »
лады
можно ли сделать раскрывающиеся компоненты?
как-то так

[Dodakaedr]

есть две проблемки: »
по 1:
Размер указывается не правильно потому что используется чекова функция.
исправить можно так:[messages]
DiskSpaceMBLabel=Требуется как минимум 10.2 Гб свободного дискового пространства.
по 2:
Вам уже ответили. Возможно косяк скина, попробуйте другой.

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

[R.i.m.s.k.y.]

Размер указывается не правильно потому что используется чекова функция.
исправить можно так: »
в том то и да что галочка на 10гиг не активна если прога уже стоит и тогда показывает все равно неправильно - все галки то сняты
можно ли как-то в коде поменять этот DiskSpaceMBLabel? я и на неё чек поставлю

используйте комбобокс »
можно примерчик?

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

[Dodakaedr]

можно ли как-то в коде поменять этот DiskSpaceMBLabel? »
Сделайте проверку на компонент и укажите текстWizardForm.DiskSpaceLabel.Caption := 'бла-бла';

[R.i.m.s.k.y.]

Dodakaedr, вот
меня всегда напрягало название элементов в инно

а по комбобоксам нет примерчика под рукой?

[Dodakaedr]

а по комбобоксам нет примерчика под рукой? »
http://forum.oszone.net/post-2479506-258.html

[R.i.m.s.k.y.]

Dodakaedr, не то
это выпадающий список
а я хотел раскрывающийся список на странице компонентов
вот как спойлер
- англ
- русский
- польский

[dracosha]

R.i.m.s.k.y. если я правильно понял, расширенная версия позволяет в секции Setup использовать ключ ComponentsListTVStyle=yes и тогда будет активирован раскрывающийся список, а в секции Components флаг collapsed позволяет компоненту-родителю по умолчанию быть свернутым, но это так на всякий случай для дополнительной информации http://www.kolobok.us/smiles/big_standart/wink.gif

[R.i.m.s.k.y.]

dracosha, вах! ты мой спаситель! целую в носик! и полоса прокрутки появилась!
в справке вообще ни полслова!

___________________

подскажите, пожалуйста, как сделать всплывающие подсказки в коде не черного цвета (скин черный), а стандартного желтоватого?
скрипты и файлы выше

procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);
begin
if Index = -1 then Exit;
if Index = LastIndex then Exit;
try
case TNewCheckListBox(Sender).ItemCaption[Index] of
'компонент1': TNewCheckListBox(Sender).Hint := 'бла-бла1';
'компонент2': TNewCheckListBox(Sender).Hint := 'бла-бла2';
else
begin
TNewCheckListBox(Sender).ShowHint := False;
LastIndex := UNDEF_INDEX;
Exit;
end;
end;
TNewCheckListBox(Sender).ShowHint := True;
finally
LastIndex := Index;
end;
end;

[kotyarko@fb]

подскажите, пожалуйста, как сделать всплывающие подсказки в коде не черного цвета (скин черный), а стандартного желтоватого? »
Цвет фона подтягивается как раз из скина. Так что без редактирования этого скина никак.

[R.i.m.s.k.y.]

kotyarko@fb, что именно поправить? скин в аттаче

[kotyarko@fb]

R.i.m.s.k.y., что именно не знаю (tooltips в редакторе скинов почему-то не доступен).
Можешь сам попробовать ISSkinBuilder`ом.

[R.i.m.s.k.y.]

kotyarko@fb, почему же
control - tooltip есть, только FillColor ни на что не влияет
Или я туплю

[kotyarko@fb]

control - tooltip есть, только FillColor ни на что не влияет » Я как раз это и мел ввиду.
VCL в этом плане намного удобнее. Можно просто через ФШ всё сделать.