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

[Nordek]

но у меня не получается прикрутить к моему скрипту »Я угадать должен, в какое место тебе нужно его засунуть?

[tuz-veta]

Nordek,
забыл что не выложил скрипт
вот скрипт

[Nordek]

tuz-veta, Пробуй (http://sendfile.su/897031)

[tuz-veta]

tuz-veta, Пробуй »
выдает ошибку

tuz-veta,
может все скинуть чтоб Вы посмотрели?

[Nordek]

tuz-veta, Перезалил, пост выше.

[tuz-veta]

Nordek,
Спасибо Вам огромное!!! :clapping: :clapping: :clapping:
Все работает. :up

[Johny777]

Shkutu, нет, возможности языка урезаны. Классы и наследникив писать нельзя (даже исходный код их методов и свойств изнутри инно закрыт. Только если исходники самой инно смотреть, в чём я например не вижу смысла, когда есть внешние библиотеки типа "Classes.pas" того же RadStudioXE(2,3, 4(?))), интерфейсы вроде можно писать в юникодной версии инно (о чём говорит код из шапки "Установка гаджета в Windows 7")
Тип указатель и прилагающиеся к нему функции типа Allocate..., ReAllocate..., Dispose..., ..., CopyMemory отсутствуют, хотя с этим можно в некоторой мере работать(WinApi), но это уже другой вопрос
а записи (record) - сколько угодно! :)

[FX-DENIS]

Johny777 привет,тебя тоже вспомнил,ты мне помогал когда был новичком тут.Может ты сможешь мне помочь,проблема на прошлой странице.Версия инно 5.5.1ее2 (u),пробовал в стандартной 5.5.4 (u) ,может ошибка такая связанна с инно или библиотеками?

[Dinvin4ester]

Ребята , не отображается прогресс бар , не пожете решить эту проблему - http://sendfile.su/897360 . Спасибо .

[FX-DENIS]

Всё сам разобрался,просто надо было использовать новую ISSDOne 0.6b7 а у меня была ISDone0.4.2.5,хотя скачивал с офф сайта фриарк.У меня тока одна беда,кнопка отменить установку задрата в верхний правый угол,как ее спустить вниз?Посмотрите на скрин,на прошлой стр

[Shkutu]

Johny777, спасиб, буду знать.
А вот такая проблемка. Есть код (дополняю деинсталлятор)

procedure UninstallCancelButtonOnClick(Sender: TObject);
begin
UninstallProgressForm.CancelButton.ModalResult := mrAbort;
end;

procedure InitializeUninstallProgressForm();
begin
...
CancelButton.OnClick := @UninstallCancelButtonOnClick;
...
if ShowModal = mrAbort then Abort;
end;

Но Abort почему-то срабатывает, только если на кнопку "отмена" нажать дважды. Подскажите, плиз, можно ли с этим что-то сделать?

[habib2302]

помогите мне объеденить страницу select dir page с select program group page и сделать такое оформление под стандартное окно инсталлятора http://i.imgur.com/GZ53Edb.png (http://i.imgur.com/YvofFM9.jpg)
выложил скрипт с таким же оформление если что
и как сделать чтобы список компонентов можно было скрыть и раскрыть
http://i.imgur.com/1tjAKVo.png (http://i.imgur.com/uU4e7L0.jpg)

[Nordek]

объеденить страницу select dir page с select program group page »


[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.
AllowNoIcons=true
DisableProgramGroupPage=true


Name: {group}\My Program; Filename: {app}

[Co[I]de]
procedure InitializeWizard();
begin
WizardForm.DiskSpaceLabel.Top := ScaleY(65);
WizardForm.DirBrowseButton.Top := ScaleY(36);
WizardForm.DirEdit.Top := ScaleY(37);
WizardForm.NoIconsCheck.Parent := WizardForm.SelectDirPage;
WizardForm.SelectDirLabel.Top := ScaleX(09)
WizardForm.SelectDirBitmapImage.Top := ScaleY(0)
WizardForm.SelectDirBrowseLabel.Visible := False
WizardForm.SelectGroupBitmapImage.Top := ScaleY(95);
WizardForm.SelectGroupBitmapImage.Parent := WizardForm.SelectDirPage;
WizardForm.GroupBrowseButton.Parent := WizardForm.SelectDirPage;
WizardForm.GroupBrowseButton.Top := ScaleY(133);
WizardForm.GroupEdit.Parent := WizardForm.SelectDirPage;
WizardForm.GroupEdit.Top := ScaleY(134);
WizardForm.SelectStartMenuFolderBrowseLabel.Parent := WizardForm.SelectDirPage;
WizardForm.SelectStartMenuFolderBrowseLabel.Top := ScaleY(170);
WizardForm.SelectStartMenuFolderLabel.Parent := WizardForm.SelectDirPage;
WizardForm.SelectStartMenuFolderLabel.Top := ScaleY(105);
end;


как сделать чтобы список компонентов можно было скрыть и раскрыть »

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

[Components]
Name: a; Description: Компоненнт A; Flags: collapsed
Name: a/b; Description: Компоненнт AB

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


[Components]
Name: a; Description: Компоненнт A; Flags: collapsed
Name: a/b; Description: Компоненнт AB

[Code]
procedure InitializeWizard();
begin
WizardForm.ComponentsList.TreeViewStyle := True;
end;

[habib2302]

Nordek, первый способ почему то не работает
http://i.imgur.com/hNgmhlB.png (http://i.imgur.com/j7lAk0s.jpg)

[Nordek]

первый способ почему то не работает »Про компоненты? У меня всё работает.
В скрипт вставил? ComponentsListTVStyle=true добавить не забыл, Flags: collapsed учёл?

[habib2302]

и как сделать чтобы компоненты были раскрыты

[Nordek]

и как сделать чтобы компоненты были раскрыты »Убери Flags: collapsed.

[Mat_y]

Nordek, читаю тему. Просто - спасибо.

Может подскажите мне тоже? Такая проблема...
-Использую модули ISDone и PrigressBar (Добавил в аттаче, хотя они стандартные).
-На странице самого процесса установки прогрессбар все время пустой и не заполняется, хотя установка идет нормально. Короче, не отображается прогресс установки.

Может ли это быть, т.к. у меня совсем нет компонентов? Т.е. просто распаковываются файлы в выбранную дирректорию.
Может ли это быть из-за того, что я не использую для каждого файла свой путь, а копирую сразу целую папку... вот так?
Source: {mods}\*; DestDir: {app}\; Flags: ignoreversion recursesubdirs createallsubdirs

Как можно заставить работать прогрессбар? Могу даже от картинок отказаться (правда форма инсталлера у меня произвольная - с маской).

[Mat_y]

И еще вопрос... как можно записать следующее...

begin
if выбран русский язык then begin
////
///
end else begin
///
///
end;
end;

[nik1967]

Mat_y, посмотри здесь (http://forum.oszone.net/post-2246421.html#post2246421) - лень переписывать.
По поводу прогресс бара - нужно смотреть весь скрипт, модулей не достаточно.