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

[saurn]

Kashtan007, http://forum.oszone.net/post-2438406-2071.html

[Kashtan007]

saurn, благодарю.

[Kashtan007]

При использовании скина не работает прокрутка мышкой, так как в установщике много компонентов, то прокручивать скроллбаром неудобно.
Как можно вернуть прокрутку мышкой? Заранее спасибо!

[kotyarko@fb]

Как можно вернуть прокрутку мышкой? »
http://forum.oszone.net/post-2308009-2259.html

[Kashtan007]

kotyarko@fb, пробовал этот вариант, не работает.

[sergey3695]

Kashtan007, https://code.google.com/p/vcl-styles-plugins/wiki/VCLStylesInnoSetup

[Okta_333]

Здравствуйте!
Подскажите пожалуйста как можно менять размер и положение кнопок. Пробовала скачать ISFD, но он у меня не работает (Windows 7).

[Dodakaedr]

Okta_333, В свойствах кнопок задаете нужные вам параметры. В вашем случае вам нужен SetBounds (http://forum.oszone.net/post-2407079-1634.html)
[setup]
appname=myprog
appversion=1.1
defaultdirname={pf}\myprog

[Code]
procedure RedesignWizardForm;
begin
//кнопка далее
with WizardForm.NextButton do
begin
SetBounds(ScaleX(261), ScaleY(319), ScaleX(128), ScaleY(31));
end;

//кнопка отмена
with WizardForm.CancelButton do
begin
SetBounds(ScaleX(399), ScaleY(319), ScaleX(88), ScaleY(39));
end;

//кнопка назад
with WizardForm.BackButton do
begin
Left := ScaleX(149);
end;

end;

procedure InitializeWizard();
begin
RedesignWizardForm;
end;


Пробовала скачать ISFD »
Установите Inno Setup Ultra (https://yadi.sk/d/Z0WdeqhsSf6cD)

[Nordek]

Установите Inno Setup Ultra »Не стоит предоставлять зеркала на файлы, если имеется возможность скачать с ссылок которые ранее предоставлял автор.
Ссылки имеются здесь на форуме в публичном доступе. Достаточно перейти в соседнюю тему. Ссылка на соседнюю тему предоставлена в первом сообщении (http://forum.oszone.net/post-2321469-1.html) данной (http://forum.oszone.net/thread-278998.html) темы. Ссылка на соседнюю тему: Inno Setup. Прочие вопросы (http://forum.oszone.net/showthread.php?p=1201499#post1201499)
Полное местонахождение темы:
Компьютерный форум OSzone.net (http://forum.oszone.net/index.php?) » Автоматическая установка Windows (http://forum.oszone.net/forum-60.html) » Автоматическая установка приложений (http://forum.oszone.net/forum-61.html) » Inno Setup. Прочие вопросы (http://forum.oszone.net/thread-148707.html).

В теме Inno Setup. Прочие вопросы (http://forum.oszone.net/thread-148707.html), перейдите к первому сообщению (http://forum.oszone.net/post-1201499-1.html).
Левым щелчком мыши, нажмите на "Показать/скрыть: Различные сборки, русификаторы и полезные ссылки"
После нажатия на "Показать/скрыть: Различные сборки, русификаторы и полезные ссылки", отобразится содержание где первым будет видно: Сборка инсталлятора Inno Ultra (http://www.oszone.net/go.php?url=http://innoultra.ru/?p=1) от Gnom_aka_Lexander (http://www.forum.oszone.ru/member.php?userid=128725) »

[diman_21Ru]

Всем привет, Есть вариан зачеркнутый компонент уже с поставленной галочкой?

[saurn]

Есть вариан зачеркнутый компонент уже с поставленной галочкой? »
Так, что ли?
[Setup]
AppName=MyProgram
AppVerName=1.0
DefaultDirName={pf}\MyProgram
OutputDir=...


[Components]
Name: one; Description: "Компонент 1";
Name: two; Description: "Компонент 2";


[Code]
var
_OldEvent: TNotifyEvent;


procedure TNewCheckListBoxOnClickCheck( Sender: TObject );
var
i: Integer;
begin
_OldEvent( Sender );

for i := TNewCheckListBox( Sender ).ItemCount - 1 downto 0 do
case TNewCheckListBox( Sender ).Checked[i] of
True: TNewCheckListBox( Sender ).ItemFontStyle[i] := [fsStrikeOut];
False: TNewCheckListBox( Sender ).ItemFontStyle[i] := [];
end;
end;


procedure InitializeWizard();
begin
_OldEvent := WizardForm.ComponentsList.OnClickCheck;
WizardForm.ComponentsList.OnClickCheck := @TNewCheckListBoxOnClickCheck;
end;

[diman_21Ru]

saurn, Тут их можно снять мне нужно чтобы их нельзя было снимать вот код на зачеркнутый но без галочки Types: custom; Flags: fixed

[saurn]

нужно чтобы их нельзя было снимать »
Ну тогда, так:
[Setup]
AppName=MyProgram
AppVerName=1.0
DefaultDirName={pf}\MyProgram
OutputDir=...


[Components]
Name: one; Description: "Компонент 1"; Flags: fixed; Types: full custom;
Name: two; Description: "Компонент 2"; Flags: fixed; Types: full custom;
Name: two2; Description: "Компонент 3"; Types: full;


[Code]
procedure InitializeWizard();
var
i: Integer;
begin
for i := WizardForm.ComponentsList.ItemCount - 1 downto 0 do
case WizardForm.ComponentsList.ItemEnabled[i] of
True: WizardForm.ComponentsList.ItemFontStyle[i] := [];
False: WizardForm.ComponentsList.ItemFontStyle[i] := [fsStrikeOut];
end;
end;

[icetanker]

можно ли распаковать .exe,который уже был скомпилирован и посмотреть содержимое и как это сделать?

[TryRooM]

icetanker,

Для распаковки инсталляторов созданных с помощью Inno Setup существую специальные программы.
Например, InnoExtractor,UniExtractor,Inno Setup Unpacker.
Одно но, при использовании расширенной версии от Restool, распаковать exe-шник не получиться.

[Kashtan007]

При использовании скина не работает прокрутка мышкой, так как в установщике много компонентов, то прокручивать скроллбаром неудобно.
Как можно вернуть прокрутку мышкой? Заранее спасибо!

sergey3695, я не разобрался в том, что вы мне скинули (

[Юрій_Окропірідзе@vk]

Здравствуйте. Вот столкнулся с одной проблемой , решил сделать лого через батву , и вот что получилось , пробылав на остальних репаках та же проблема. Помогите . Пожалуйста https://yadi.sk/i/5fQ_5ScNdas6X

[saurn]

Юрій_Окропірідзе@vk, чтобы вам могли помочь, заливайте, пожалуйста скрипт с минимальным набором файлов, необходимых для компиляции и работы инстала, на какой-нибудь бесплатный обменник и прикрепляйте ссылку к сообщению.

[Юрій_Окропірідзе@vk]

http://rghost.ru/59951236 Здесь чистый скрипт и на основе NFS

[saurn]

Юрій_Окропірідзе@vk, http://rghost.ru/59951768