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

[serhio]

insombia, Да не важно какая! Просто скинул репак чужой, а на такой же размер не могу сжать....
А так вообще Red Orchestra 2.Heroes Of Stalingrad.(1C-СофтКлаб).(2011).Repack. 4,67Гб
А мой получается 5,96Гб! Время в расспаковке меня не интересует, долго ли или быстро. Меня интересует как по максимуму сжать можно.......

[Devils Night]

serhio, Сударь, а не соблаговолите проследовать до этого (http://www.oszone.net/go.php?url=http://forum.ru-board.com/topic.cgi?forum=5&topic=30239&start=0) места.

[Rikill]

А ну-ка прекратили тут флудить :)

[Raf-9600]

Мне интересно, почему файл с компонентомGameDiablo2\Text\Russian\Fargus and GameDiablo2\VoiceD2\Russian\TheBestНе установился? Существуют какието особые правила, касательно родственных компонентов? Потому что, к примеру, вот этот GameDiablo2\Text\Russian\Fargus and GameLoD\VoiceLoD\Russian\TheBestСработал безупречно.

[valyok666]

Лександер, ок буду выкладывать всё в следующий раз=)
и ещё твоя библиотека IsPicture разрабатывается дальше или нет???
мне она понравилась просто=)

[Gnom_aka_Lexander]

и ещё твоя библиотека IsPicture разрабатывается дальше или нет??? »
Сейчас только ей и занят. В данным момент приделываю текстурирование кноопок битмапами и прозрачный дирэдит, для второго режима использования.

Script Maker 5.1.6.9 »
В шапке более новая версия программы, назявается Inno Script Generator, почитай внимательней. Прект мертв.
Inno Setup Script Includes Проект так-же давно заброшен, в свое время ковырялся я в нем - ничего очсобо полезного, сплошное неудобство.

InnoTools Downloader (http://www.sherlocksoftware.org/page.php?id=50) - это да, в шапку добавить можно. Но и ссылку на родной сайт нужно указывать. Большинство проектов мрут именно изза того, что распростаранители проявляют полное неуважение к авторам проектов и "забывают" указать сайт проекта.

[valyok666]

Лександер, посмотри скрипт макер другой там
кстати как там у picture взаимодействие в ботвой?там вроде похожие функции имеются

[insombia]

Как сделать чтобы при нажатии на компоненты открывалось окно новое как здесь http://rghost.ru/22232271?

[Gnom_aka_Lexander]

посмотри скрипт макер другой там » Конечно, другой, там старая версия. 2006-го года.
кстати как там у picture взаимодействие в ботвой?там вроде похожие функции имеются »
Ни одной похожей функции нет. (вроде) И принцип работы не просто отличается, общая реализация вставки изображений вообще по другому сделано. В качестве родителя изображений берется фоновое окно инно - MainForm, что позволяет использовать на страницах инсталлятора iSslideShow, а также вставить видеофайл в качестве фона - такая возможность предусмотрена в самой IsPicture.

[Gnom_aka_Lexander]

Как сделать чтобы при нажатии на компоненты открывалось окно новое как здесь http://rghost.ru/22232271? »
insombia

Можно так:
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
var
NewButton1: TNewButton;
Panel1: TPanel;

procedure NewButton1Click(Sender: TObject);
var
i:integer;
begin
i:=Panel1.Left;
If i= -Panel1.Width then
begin
WizardForm.CancelButton.Enabled:=False;
WizardForm.NextButton.Enabled:=False;
WizardForm.BackButton.Enabled:=False;
WizardForm.DirBrowseButton.Enabled:=False;
while True do
begin
Panel1.Left:= ScaleX(i);
WizardForm.SelectDirPage.Repaint;
if i=0 then Break;
i:=i+1;
end;
end else
begin
while True do
begin
Panel1.Left:= ScaleX(i);
WizardForm.SelectDirPage.Repaint;
if i=-Panel1.Width then Break;
i:=i-1;
end;
WizardForm.CancelButton.Enabled:=True;
WizardForm.NextButton.Enabled:=True;
WizardForm.BackButton.Enabled:=True;
WizardForm.DirBrowseButton.Enabled:=True;
end;
end;

procedure InitializeWizard();
begin
{ Panel1 }
Panel1 := TPanel.Create(WizardForm);
with Panel1 do
begin
Parent := WizardForm.SelectDirPage;
Top := ScaleY(0);
Width := WizardForm.SelectDirPage.Width;
Height := WizardForm.SelectDirPage.Height;
Left := -Panel1.Width;
end;

WizardForm.ComponentsDiskSpaceLabel.Parent := Panel1;
WizardForm.ComponentsList.Parent := Panel1;
WizardForm.TypesCombo.Parent := Panel1;
WizardForm.SelectComponentsLabel.Parent := Panel1;

NewButton1 := TNewButton.Create(WizardForm);
with NewButton1 do
begin
Parent := WizardForm;
Left := ScaleX(32);
Top := ScaleY(327);
Width := ScaleX(75);
Height := ScaleY(25);
Caption := 'Компоненты';
OnClick := @NewButton1Click;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
NewButton1.Hide;
if CurPageID=wpSelectDir then NewButton1.Show;
end;

[insombia]

Лександер а можно ли сделать чтобы оно быстрей открывалось? а то смотреть на слайд-шоу не очень хочется

[Gnom_aka_Lexander]

а можно ли сделать чтобы оно быстрей открывалось? »
Можно:
while True do
begin
if i>0 then i:=0;
Panel1.Left:= ScaleX(i);
WizardForm.SelectDirPage.Repaint;
if i=0 then Break;
i:=i+10;
end;
end else
begin
while True do
begin
if i<-Panel1.Width then i:=-Panel1.Width;
Panel1.Left:= ScaleX(i);
WizardForm.SelectDirPage.Repaint;
if i=-Panel1.Width then Break;
i:=i-10;
end;

меняеш эти циферки, пока резульат тебя не удовлетворит. Поправил второй пример

[valyok666]

Лександер, а если попробовать сделать не панель а NewChecklistbox?

[Gnom_aka_Lexander]

valyok666, Без разницы.как только окно закрылось инстал начал мерихтеть и не отвечать » Смотри мой пост выше, я поправил пример

[insombia]

Лександер как только окно закрылось инстал начал мерихтеть и не отвечать

[VASYAKRN]

Nik1967 Как ти сделал такие переходи между страницами в свойом скрипте darksiders и prince of persia через ботву

[nik1967]

VASYAKRN, ну "prince of persia" не мой скрипт, а в "darksiders" смена страниц была реализована Shegorat'ом по мотивам скрипта BlackSelf'а.

[Devils Night]

Но и ссылку на родной сайт нужно указывать »Я их скидывал с одного ресурса а не с офф. сайта, потому ссылку и не указал, да и на офф. сайт я ссылок не знаю, случайно подвернулись. Вобщем оставил пост (http://forum.oszone.net/post-1756557-271.html) здесь (http://forum.oszone.net/showthread.php?p=1201499#post1201499), где ему собственно и место.

[valyok666]

Лександер, у меня ещё вопрос по IsPicture.dll будет ли она поддерживать другие форматы кроме .bmp???или пользоваться старой доброй ботвой=)

[Gnom_aka_Lexander]

будет ли она поддерживать другие форматы кроме .bmp »
А чем плохо ботва? написана грамотным программистом, великолепно оптимизирована работа, глюки давно все вылечены. единственное, при использовании ботвы вместе с испикчур, родителем изображений, нужно указывать MainForm а не WizardForm.