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

[Raz3r]

На некоторых системах была замечена проблема с неправильным отображением содержимого в окне установщика. Почему такое происходит?

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

[spoiler]

[/spoiler]

Ссылка на установщик

[TryRooM]

Raz3r, Тестируйте, перезалил скрипт, немного подправил фон, текст и ярлыки.

http://rghost.ru/69y2FKDpR

[Raz3r]

Цитата palsn2000:



А как обратиться к индексу? Какая форма записи?

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

Приблизительно такая...Вырезка с скрипта R.i.m.s.k.y.



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

[spoiler]Код:

[/spoiler]

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

[setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[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: mode2; Types: custom; flags: fixed
Name: Mode2/SPOnly2; Description: SPOnly2; Flags: disablenouninstallwarning
Name: Mode2/MPOnly2; Description: MPOnly2; Flags: disablenouninstallwarning
[Code]
const
  UNDEF_INDEX = -777;
var
  LastIndex: Integer;
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
            'mode': TNewCheckListBox(Sender).Hint := 'Опись1';
            'SPOnly': TNewCheckListBox(Sender).Hint := 'Опись2';
            'MPOnly': TNewCheckListBox(Sender).Hint := 'Опись3';
            'mode2': TNewCheckListBox(Sender).Hint := 'Опись4';
            'SPOnly2': TNewCheckListBox(Sender).Hint := 'Опись5';
            'MPOnly2': TNewCheckListBox(Sender).Hint := 'Опись6';
        else
            begin
                TNewCheckListBox(Sender).ShowHint := False;
                LastIndex := UNDEF_INDEX;
                Exit;
            end;
        end;
        TNewCheckListBox(Sender).ShowHint := True;
    finally
        LastIndex := Index;
    end;
end;
procedure CompOnMouseLeave(Sender: TObject);
begin
    WizardForm.ComponentsList.ShowHint := False;
end;
procedure InitializeWizard();
begin
  LastIndex := UNDEF_INDEX;
  WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove;
  WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave;
end;

[Raz3r]

Подскажите код картинок (привью) для компонентов

[Sotonisto]

Доброго времени суток.

Вот

скрипт инсталлятора

"Закос под z10yded".

Все работает отлично, но:

1. Подскажите как изменить фон "WizardForm.ComponentsList", например установить для него фоновое изображение или сделать прозрачным?

2. Обычно при использовании "DisableReadyPage=true" название кнопки "Далее" на предыдущей странице заменяется на "Установить". В данном скрипте это не происходит, т.е. страница исчезает, но название кнопки как было "Далее" таким и остается. Как это исправить? Надеюсь, вы поняли, что я имел в виду.

[Dodakaedr]

Цитата palsn2000:



Dodakaedr, Спасибо. Вырезка с скрипта R.i.m.s.k.y. очень помогла.

Но теперь возникло ещё три вопроса:

1. Можно ли сделать так, чтобы подпись отображалась немного дольше (секунд 10-15);

2. Можно ли сделать так, чтобы подпись (длинная) отображалась не в одну, а в 2-3 строки;

3. Можно ли сделать так, чтобы при переводе курсора с компонента на компонент подпись бы изменялась сразу (в представленном примере подпись отображается для одного компонента и один раз - для смены подписи нужно либо убрать курсор из поля компонентов и вернуть его снова, либо щелкнуть на компоненте левой или правой кнопкой мыши).

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

сам интересовался, решения не нашел

[ShadeUa]

Цитата Okta_333:



Народ! Помогите пожалуйста вшить музыку с кнопочкой (play/stop) в скрипт

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

Пробуйте:

https://yadi.sk/d/70YrLaiafdGnm

. Не проверял, т.к. не все файлы, прописанные в скрипте присутствуют в приложенном архиве.




Цитата palsn2000:



2. Можно ли сделать так, чтобы подпись (длинная) отображалась не в одну, а в 2-3 строки;

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

Так:



Код:

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

ShowHint := True;
Hint := 'This is' + #13#10 + 'hint.';

[Dodakaedr]

подскажите возможность решения вопроса

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

надо так

если в списке компонентов выбран пункт 1 то копировать файл 1 но не копировать файл 2 и 3

если в списке компонентов выбран пункт 2 то копировать файл 2 но не копировать файл 1 и 3

если в списке компонентов выбран пункт 3 то копировать файл 3 но не копировать файл 1 и 2

и т.д.

1,2,3 это три варианта одного и тот же файл только с разными настройками

[ekspoint]

svs23, три разных файла

в секции Files использовать Components

[Sotonisto]

Dodakaedr, большое спасибо. Всё прекрасно работает.