[Grogan508]

diman_21Ru,
примерно так
http://rghost.ru/52321362

[Raf-9600]

А на страницу "выбора дополнительных задач", которая появляется если в разделе скрипта [Tasks] что-то указать, можно как-то хинты пунктам выбора прикрутить?

[Farser21]

Всем привет. Возможно ли как-то, чтобы когда нажимаешь на компонент то там где находиться картинка "Модификации" появлялось видео с ютуба с таким же размером как и изображение и можно было его просмотреть?

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

[Raf-9600]

Возможно ли как-то, чтобы когда нажимаешь на компонент то там где находиться картинка "Модификации" появлялось видео с ютуба с таким же размером как и изображение и можно было его просмотреть? »

Было бы очень круто. Но вряд ли у кого-то найдётся для этого скриптик.

[Farser21]

Raf-9600, Да вот у кого-то видел, правда там просто видео было не в компонентах) Ну может есть способ, было бы действительно круто)

[Raf-9600]

Да вот у кого-то видел »

Смею так же предположить что это видео было не из Ютуба. И здесь, и на РуБоарде, было уже несколько скриптов для воспроизведения вшитого в инсталлятор видео на странице установки. Вероятно его работу вы и видели.

[Grogan508]

diman_21Ru,
немного переделал
http://rghost.ru/52323348

[saurn]

А на страницу "выбора дополнительных задач", которая появляется если в разделе скрипта [Tasks] что-то указать, можно как-то хинты пунктам выбора прикрутить? »

Так?

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=...


[Tasks]
Name: ts1; Description: Задача 1;
Name: ts2; Description: Задача 2;


[CustomMessages]
_CM_DESC_0=Наведите курсо мыши на задачу.
_CM_DESC_1=Задача 1
_CM_DESC_2=Задача 2


[code]
var
    _TasksDSC: TRichEditViewer;


procedure _TasksOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);
begin
    _TasksDSC.Text := #32 + CustomMessage('_CM_DESC_' + IntToStr(Index + 1));
end;


procedure _TasksOnMouseLeave(Sender: TObject);
begin
    _TasksDSC.Text := #32 + CustomMessage('_CM_DESC_0');
end;


procedure _EditControls();
begin
    with WizardForm do
    begin
        TasksList.SetBounds(ScaleX(0), ScaleY(SelectTasksLabel.Top + SelectTasksLabel.Height + ScaleY(20)), ScaleX((SelectTasksLabel.Width - ScaleX(5)) div 2), ScaleY(ScaleY(165)));
        TasksList.OnItemMouseMove := @_TasksOnItemMouseMove;
        TasksList.OnMouseLeave := @_TasksOnMouseLeave;
        TasksList.BorderStyle := bsSingle;

        _TasksDSC := TRichEditViewer.Create(SelectTasksPage);
        with _TasksDSC do
        begin
            Parent := SelectTasksPage;
            SetBounds(ScaleX(TasksList.Left + TasksList.Width + ScaleX(5)), ScaleY(TasksList.Top), ScaleX(TasksList.Width), ScaleY(TasksList.Height));
            ReadOnly := True;
            Color := TasksList.Color;
            RTFText := #32 + CustomMessage('_CM_DESC_0');
        end;
    end;
end;


procedure InitializeWizard;
begin
    _EditControls();
end;

По мотивам http://forum.oszone.net/post-2030282-1308.html

[Ivan_009]

Смею так же предположить что это видео было не из Ютуба. И здесь, и на РуБоарде, было уже несколько скриптов для воспроизведения вшитого в инсталлятор видео на странице установки. Вероятно его работу вы и видели. »

Raf-9600, Пробуйте примеры использования внутри: http://rghost.ru/52325205

[diman_21Ru]

В [CustomMessages] есть название игры как можно изменить размер текста