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

palsn2000, глянь выше мой скрипт, конкретно CompOnItemMouseMove

[palsn2000]

kotyarko@fb,

Нужно обращаться к индексу компонента.

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

[Dodakaedr]

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

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

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

Код:

[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;

[palsn2000]

Dodakaedr, Спасибо. Вырезка с скрипта R.i.m.s.k.y. очень помогла.
Но теперь возникло ещё три вопроса:
1. Можно ли сделать так, чтобы подпись отображалась немного дольше (секунд 10-15);
2. Можно ли сделать так, чтобы подпись (длинная) отображалась не в одну, а в 2-3 строки;
3. Можно ли сделать так, чтобы при переводе курсора с компонента на компонент подпись бы изменялась сразу (в представленном примере подпись отображается для одного компонента и один раз - для смены подписи нужно либо убрать курсор из поля компонентов и вернуть его снова, либо щелкнуть на компоненте левой или правой кнопкой мыши).

[Okta_333]

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

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

Dodakaedr, Спасибо. Вырезка с скрипта R.i.m.s.k.y. очень помогла. Но теперь возникло ещё три вопроса: 1. Можно ли сделать так, чтобы подпись отображалась немного дольше (секунд 10-15); 2. Можно ли сделать так, чтобы подпись (длинная) отображалась не в одну, а в 2-3 строки; 3. Можно ли сделать так, чтобы при переводе курсора с компонента на компонент подпись бы изменялась сразу (в представленном примере подпись отображается для одного компонента и один раз - для смены подписи нужно либо убрать курсор из поля компонентов и вернуть его снова, либо щелкнуть на компоненте левой или правой кнопкой мыши). »

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

[kotyarko@fb]

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

Пробуйте: https://yadi.sk/d/70YrLaiafdGnm. Не проверял, т.к. не все файлы, прописанные в скрипте присутствуют в приложенном архиве.

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

Так:

Код:

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

[svs23]

подскажите возможность решения вопроса
есть файл настроек, в нем несколько управляющих функций с опцией вкл/выкл
надо так
если в списке компонентов выбран пункт 1 то копировать файл 1 но не копировать файл 2 и 3
если в списке компонентов выбран пункт 2 то копировать файл 2 но не копировать файл 1 и 3
если в списке компонентов выбран пункт 3 то копировать файл 3 но не копировать файл 1 и 2
и т.д.
1,2,3 это три варианта одного и тот же файл только с разными настройками

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

svs23, три разных файла
в секции Files использовать Components

[svs23]

не правильно сформулировал вопрос
надо так
если в списке компонентов выбран пункт 1 то копировать файл 1
если в списке компонентов выбран пункт 2 то копировать файл 2
если в списке компонентов выбран пункт 3 то копировать файл 3
если в списке компонентов выбран пункт 1 и 2 то копировать файл 4 но не копировать файл 1 и 2
если в списке компонентов выбран пункт 2 и 3 то копировать файл 5 но не копировать файл 2 и 3
если в списке компонентов выбран пункт 1 и 3 то копировать файл 6 но не копировать файл 1 и 3
если в списке компонентов выбран пункт 1 и 2 и 3 то копировать файл 7 но не копировать файл 1 и 2 и 3
и т.д.