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

[Dark_Delphin]

Ага. Спасибо.

[Gnom_aka_Lexander]

Все ети 4 скрипта 100 процентов мои »
Assassins Creed Revelations+ ISDone 0.6b -Юршата,
Assasins Creed Brotherhood 1.2 ISDone 0.6 - обрезок скрипта от SJWrec,
WHEELMAN - не помню чей, но тоже не твой.

[valyok666]

Лександер, +1,плохо присваивать не своё себе!

[VASYAKRN]

Assassins Creed Revelations+ ISDone 0.6b я начинл из скрипта Юршата но отуда я взял тока gdipDrawImage бо неумею ним пользуватса и он бил глюченной а Assasins Creed Brotherhood 1.2 ISDone 0.6 полностю мой. Кстати пото из нево я сделал WHEELMAN


Кстате как пользуватса gdipDrawImage

[insombia]

valyok666 что там насчет вставки изображения?

VASYAKRNзачем ты оправдываешься все прекрасно знают чьи это скрипты

ntrx не спасибо в Полезное сообщение :)

[VASYAKRN]

VASYAKRNзачем ты оправдываешься все прекрасно знают чьи это скрипты »

спросите у Юршата и SJWrec чи найшли они там свои коди :read:

[insombia]

VASYAKRN да и чем же ты создавал коды(какой прогой)?щас то мы и узнаем твои ли это скрипты а если не будешь отвечать то будет сразу видно кто ты есть на самом деле

[VASYAKRN]

пишу скрипти в INNOIDE

[Dark_Delphin]

У кого есть пример скрипта, что-бы создать в инсталляторе кнопку Информация о РеПаке?

[serhio]

Всем доброй ночи!
Подскажите пожалуйста как максимум можно сжать игру?
Есть FreeArc, precomp, rep, srep15, tornado04.
Чем и в какой последовательности надо работать, и что прописывать в батнике?

[Alloc]

Уважаемые, подскажите такую вещь... При установке программы, на странице инсталляции высвечиваются файлы которые распаковываются в данный момент (в FileNameLabel) с полными путями. мне нужно, что б высвечивалось только название файлов без путей... как это можно реализовать, скажите пожалуйста?

сам разобрался, оказалось все довольно просто...


procedure ProgressExt();
begin
FilenameLabel.Caption:= ExtractFilename(CurrentFilename);
end;

[valyok666]

ntrx,
#define RePack "Особенности RePack:'#13' --- Ничего не вырезано/ неперекадировано[Lossless]'#13' --- Таблетка[RELOADED]'#13' --- Автор Репака DarKk"

[Code]
var
NewButton1: TNewButton;

procedure NewButton1Click(Sender: TObject); forward;

procedure AboutButton;
begin
NewButton1 := TNewButton.Create(WizardForm);
with NewButton1 do
begin
Name := 'NewButton1';
Parent := WizardForm;
Left := ScaleX(16);
Top := ScaleY(327);
Width := ScaleX(81);
Height := ScaleY(17);
Caption := 'RePacK';
OnClick := @NewButton1Click;
end;

NewButton1.TabOrder := 5;
end;

procedure NewButton1Click(Sender: TObject);
begin
MsgBox('{#RePaCK}', mbInformation, mb_Ok);
end;

procedure InitializeWizard();
begin
AboutButton;
end;

[El Sanchez]

оказалось все довольно просто... »
Функция CurrentFilename вызывается в Check, BeforeInstall или AfterInstall, т.е. для каждой строки секции Files нужно в данном случае дописывать ...; BeforeInstall: ProgressExt(), что утомительно прописывать, если строк много, да и Label нужно создавать. Можно поступить проще:

procedure ProgressExt(Sender: TObject);
begin
with WizardForm.FilenameLabel do Caption := ExtractFileName(Caption);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpInstalling then
with TTimer.Create(WizardForm) do
begin
Interval := 10;
OnTimer := @ProgressExt;
end;
end;

[insombia]

Создаю свой скрипт с ноля:Подскажите как сделать чтобы не было белого фона а просто написан текст
http://i30.fastpic.ru/thumb/2011/0918/03/edad99598001d6adba108fb8237a1303.jpeg (http://fastpic.ru/view/30/2011/0918/edad99598001d6adba108fb8237a1303.jpg.html) http://i32.fastpic.ru/thumb/2011/0918/4f/3664b0acbd3f6f4957fd42b4c7baf14f.jpeg (http://fastpic.ru/view/32/2011/0918/3664b0acbd3f6f4957fd42b4c7baf14f.jpg.html)

P.S.Скрипт только в ЛС даю

[Alloc]

El Sanchez, спасибо! действительно так намного удобнее

insombia, дело в том, что у TNewStaticText, нет функции как Transparent, придется вместо него создать TLabel. Спрятать


WelcomeLabel1.Hide;
WelcomeLabel2.Hide;


и создать вместо них:


WelcomeLabel1:=TLabel.Create(WizardForm);
with WelcomeLabel1 do
begin
Left:= WizardForm.WelcomeLabel1.Left;
Top := WizardForm.WelcomeLabel1.Top;
Width := WizardForm.WelcomeLabel1.Width;
Height := WizardForm.WelcomeLabel1.Height;
AutoSize := False;
WordWrap := True;
Font.Color := clBlack;
Font.Style := [fsBold];
Font.Name:='MS Sans Serif';
Font.Size := 13;
Transparent := True;
Parent := WizardForm.WelcomePage;
end;

WelcomeLabel2:=TLabel.Create(WizardForm);
with WelcomeLabel2 do
begin
Left:= WizardForm.WelcomeLabel2.Left;
Top := WizardForm.WelcomeLabel2.Top;
Width := WizardForm.WelcomeLabel2.Width;
Height := WizardForm.WelcomeLabel2.Height;
AutoSize := False;
WordWrap := True;
Font.Color := clBlack;
Font.Name:='MS Sans Serif';
Font.Size := 8;
Transparent := True;
Parent := WizardForm.WelcomePage;
end;

[valyok666]

Alloc, там было намного проще с использованием модуля TransparentStatic


#include "TransparentStatic.iss"

[Files] Source: CallbackCtrl.dll; Flags: dontcopy

[Code]
procedure InitializeWizard();
begin
StaticSetTransparent;
end;

procedure DeinitializeSetup;
begin
StaticSetDefault;
end;

[Alloc]

valyok666, я просто то же не особо разбираюсь во всем этом, просто показал как я это делаю. Как оказалась можно намного проще все устроить) Подскажите, а откуда эти дополнительные модули брать?

[insombia]

http://i32.fastpic.ru/big/2011/0918/71/1a2dd89a9ae65ad18af8592af6f70a71.png
Как вместо галочек вставить чекбоксы?

[serhio]

Народ ну подскажите пожалуйста кто шарит как максимум можно сжать игру?
Есть FreeArc, precomp, rep, srep15, tornado04.
Чем и в какой последовательности надо работать, и что прописывать в батнике?

Заранее Огромное спасибо!!!!

[insombia]

serhioсмотря какая игра например дюк нюкем жмется отлично как и Worms Reloaded дюк с 6 гб до 2х с лишним жмется в вормс с 2х гб до 200 мб с лишним