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

[Grogan508]

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

[Raf-9600]

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

[Farser21]

Всем привет. Возможно ли как-то, чтобы когда нажимаешь на компонент то там где находиться картинка "Модификации" появлялось видео с ютуба с таким же размером как и изображение и можно было его просмотреть?
http://s019.radikal.ru/i640/1402/e6/7e6473de27a7.png

[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] есть название игры как можно изменить размер текста

[Ivan_009]

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

Так:

var
WelcomeLabel1: TLabel;

WelcomeLabel1:= TLabel.Create(WizardForm);
with WelcomeLabel1 do begin
AutoSize:=False;
SetBounds(ScaleX(25), ScaleY(219), ScaleX(550), ScaleY(80));
WordWrap:=True;
Alignment := taCenter;
Transparent:=True;
Font.Name:='Trebuchet MS';
Font.Style := [fsBold];
Font.Size:= 10; // Размер текста
Font.Color:=$000000;
Caption:= ExpandConstant('{cm:Welcome}');
Parent:=WizardForm;
end;

[diman_21Ru]

Подскажите пожалуйста как можно сверху уменьшить размера текста а то не влезает .

[Ivan_009]

diman_21Ru, Скрипт В студию... :clapping:

[Grogan508]

diman_21Ru,
WelcomeLabel1:= TLabel.Create(WizardForm);
with WelcomeLabel1 do begin
AutoSize:=False;
SetBounds(ScaleX(-130), ScaleY(31), ScaleX(550), ScaleY(70));
WordWrap:=True;
Alignment := taCenter;
Transparent:=True;
Font.Name:='constantia'; //
Font.Size:= 11; //размер шрифта верхней группы на первой странице
Font.Color:=clblack; //цвет red white
Font.Style:=[fsBold];
Caption:= ExpandConstant('{cm:Welcome1}');
Parent:=WizardForm.WelcomePage;

[diman_21Ru]

Ivan_009 ,Grogan508,скрипт крайне странный негде даже вводить размеры нету.
http://rghost.ru/52339807

[Grogan508]

diman_21Ru, diman_21Ru,
скрин в архиве
http://rghost.ru/52340640

[Ivan_009]

diman_21Ru, Походу это нереально сделать. Если только резать форму и создать новый лейбел.

Попробуй сократить название в Messages.iss так:

[CustomMessages]
rus.Main=«{#MyAppName}»

Или тебе можно скин накатить...

[sergey3695]

diman_21Ru,
WizardForm.Caption:= 'тут текст'; или сделай форму длиннее. (но проще первое)

[diman_21Ru]

Ivan_009 , все помогло спасибо

[_Akim_]

Ребят помогите, что то никак не могу найти пример кода. Нужно чтоб при установке создавался бэкап папки (копированием) а при повторном запуске инсталятора проверялось бы наличие этой бэкап папки, и если она есть то повторно не бэкапить.