» Inno Setup (создание инсталяционных пакетов)

iTASmania_Inc

Цитата:

Возможно заедает и в других случаях

Вот у меня это происходит совершенно спонтанно. Еще вопросик: Зачем в приведенной ниже процедуре писать PauseImage.Left := -32, ведь она в данном случае не отображается? Аналогично и для других процедур MouseMove.

procedure PlayMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
PlayImage.Left := -192
PauseImage.Left := -32
StopImage.Left := -64
end;

Unc1e
Да, ты прав, надо вот так:

procedure PlayMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
// PauseImage.Left := -32 - не надо!
PlayImage.Left := -192 // Изменяем текстуру кнопки Play при наведении
StopImage.Left := -64 // Возвращаем тестуру кнопки Stop (если она была изменена
// и был сразу совершён переход на Play/Pause)
end;
Извини, я забыл, что кнопки Play и Pause слили в одну.

НО ПИСАТЬ ПОЛНОСТЬЮ:
procedure StopMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
StopImage.Left := -256
PlayImage.Left := 0
PauseImage.Left := -32
end;
Так как мы не знаем, с какой кнопкой будет Stop (Play или Pause)

Добавлено:
Хотя, в принципе, можно и оставить, от этого не убудет.

iTASmania_Inc

Цитата:

НО ПИСАТЬ ПОЛНОСТЬЮ:

Это ты верно подметил, я не догадался. Как считаешь заменить посленюю (9) часть текстуры, где самый маленький Stop, или оставить как есть?

Unc1e
Конечно заменить, если не в лом.
Кстати, там цвет фона инсталла и цвет фона текстур немного не совпадают.

Для того чтоб цвет фона совпадал с цветом инсталла при любом оформлении винды нужно к каждому компоненту дописать следующее:

PlayImage.ReplaceColor:=$e3dfe0
PlayImage.ReplaceWithColor:=clBtnFace

PauseImage.ReplaceColor:=$e3dfe0
PauseImage.ReplaceWithColor:=clBtnFace

StopImage.ReplaceColor:=$e3dfe0
StopImage.ReplaceWithColor:=clBtnFace

Vetal83
А каким тогда должен быть цвет фона текстуры?

Все. Разобрался. Вот ссылка на подправленный скрипт и текстуру http://www.rapidshare.ru/384634

Unc1e
В данной текстуре он такой $e3dfe0

есть небольшой вопрос

вот ставлю программу путь по умолчанию один прописан был в конфиге
а ставится по старому месту

garbals
Если я правильно понял:
[Setup]
UsePreviousAppDir=no

iTASmania_Inc
Я тебе письмо послал. Посмотри пожлуйста

Chanka

Цитата:

Я тебе письмо послал. Посмотри пожлуйста

Аналогичное предложение.

Спасибо опять выручил
Но еще вот такой вопросик
Если выше надписи GSC Game World провести мышкой то она остаётся зелёного цвета. А должна быть синего. Это можно сделать?

Chanka
Объясню подробно!
Vetal83 сделал ссылку, меняющую цвет, используя TLabel, имеющий размеры аналогичные WizardForm. Поскольку Tlabel прозрачна, но ты её не видишь, а как только грызун попадает на неё со ссылки (GSC Game World) - то получаем смену зелёного цвета на исходный синий. Одно лишь но: эта ссылка расположена очень уж близко к замечательному OuterNoteBook, который блокирует прозрачную Tlabel (точнее область выше нижнего Bevelа) и не даёт ссылке поменять цвет. Вот так вот...
Приемлемого способа я не знаю, за исключением Hide. Хайдим всё - и вновь пересоздаём, в результате "исчезает" OuterNoteBook, но приходится заново настраивать расположение компонентов на странице.
Знатоки Inno, если я не прав, то поправьте.

iTASmania_Inc
Да капец. iTASmania_Inc если всё это не очень долго и сложно может сделаешь свой вариант. Пожалуйста

Цитата:

Все. Разобрался. Вот ссылка на подправленный скрипт и текстуру http://www.rapidshare.ru/384634

Подскажите какие параметры влияют на расположение этих кнопок?

Добавлено:
Разобрался сам. Вопрос отклонён

спос
Цитата:

garbals
Если я правильно понял:
[Setup]
UsePreviousAppDir=no

да точно спосибо

как в инсталляцию добавить цифровую подпись? =)

iTASmania_Inc
Chanka

Цитата:

Если выше надписи GSC Game World провести мышкой то она остаётся зелёного цвета. А должна быть синего. Это можно сделать?

Я незнаю как эту проблему решить, разве что [more=таким][Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program

[Messages]
BeveledLabel=GSC Game World

[Code]
var
MouseLabel2,MouseLabel3,MouseLabel4,SiteLabel2: TLabel;

procedure SiteLabelOnClick2(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://forum.ru-board.com/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;

procedure SiteLabelMouseDown2(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel2.Font.Color:=clRed
end;

procedure SiteLabelMouseUp2(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel2.Font.Color:=clBlue
end;

procedure SiteLabelMouseMove3(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel2.Font.Color:=clGreen
end;

procedure SiteLabelMouseMove4(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel2.Font.Color:=clBlue
end;

procedure InitializeWizard();
begin
MouseLabel2:=TLabel.Create(WizardForm)
MouseLabel2.Width:=WizardForm.Width
MouseLabel2.Height:=WizardForm.Height
MouseLabel2.Autosize:=False
MouseLabel2.Transparent:=True
MouseLabel2.OnMouseMove:=@SiteLabelMouseMove4
MouseLabel2.Parent:=WizardForm

MouseLabel3:=TLabel.Create(WizardForm)
MouseLabel3.Width:=WizardForm.Width
MouseLabel3.Height:=WizardForm.Height
MouseLabel3.Autosize:=False
MouseLabel3.Transparent:=True
MouseLabel3.OnMouseMove:=@SiteLabelMouseMove4
MouseLabel3.Parent:=WizardForm.InnerPage

MouseLabel4:=TLabel.Create(WizardForm)
MouseLabel4.Width:=WizardForm.Width
MouseLabel4.Height:=WizardForm.Height
MouseLabel4.Autosize:=False
MouseLabel4.Transparent:=True
MouseLabel4.OnMouseMove:=@SiteLabelMouseMove4
MouseLabel4.Parent:=WizardForm.SelectDirPage

SiteLabel2:=TLabel.Create(WizardForm)
SiteLabel2.Left:=3
SiteLabel2.Top:=0
SiteLabel2.Cursor:=crHand
SiteLabel2.Font.Color:=clBlue
SiteLabel2.Caption:=WizardForm.BeveledLabel.Caption
SiteLabel2.OnClick:=@SiteLabelOnClick2
SiteLabel2.OnMouseDown:=@SiteLabelMouseDown2
SiteLabel2.OnMouseUp:=@SiteLabelMouseUp2
SiteLabel2.OnMouseMove:=@SiteLabelMouseMove3
SiteLabel2.Parent:=WizardForm.BeveledLabel

WizardForm.BeveledLabel.Enabled:=True
end;[/more] способом, где нужно создавать TLabel на каждой странице кроме Welcome и Finish.
Смотрите MouseLabel4

Vetal83
Прекрасное решение! По крайней мере, лучше моего HideAll!

Vetal83
Спасибо. работает

http://www.rapidshare.ru/385472
Переделал скрипт с музыкальными кнопками, теперь "заедать" не должно!

Genri, не мог бы ты написать примерчик генерации серийника для Inno:
1. Алго - хотя бы самое простенькое
2. При нажатии Generate серийник бы вводился каждый раз разный из базы данных

Kindly
А будет ли выпуск Setup Scripting v5.2

iTASmania_Inc

Цитата:

А будет ли выпуск Setup Scripting v5.2

Ну а чего уж выпускать? Вы сами попополняете базу данных желаемых примеров и включаете их в руководство. Лучше бы чтобы каждый выложил свою базу по шаблону руководства, а затем кто-то повырезал одинковые примеры, подкорректировал там - и обновляли бы базу скриптов отдельно.

Кто-нибудь помогите, пожалуйста. Как в этом коде сделать, чтобы если появляется сообщение что размер файла не совпадает, то при нажатии кнопки Ok инсталлятор должен закрываться все действия откатываться.

[code]

function NextButtonClick(CurPage: Integer): Boolean;
var
sz:Integer;
s:string;
begin
Result:=True;
If CurPage=6 then
begin
If FileSize(ExpandConstant('{app}')+'\Bin\XR_3DA.exe', sz)
then
begin
If sz<>270336
then
begin
s:='Размер установленого компонента Main.exe не соответствует.' #13#13 'Для установки обновления требуются оригинальные файлы.'; MsgBox(s, mbCriticalError, mb_Ok);
Result:= False
WizardForm.Close;
Exit;
end;
end;
end;
end;

Chanka
[more=Попробуй так!]
[Code]
function NextButtonClick(CurPage: Integer): Boolean;
var
SZ: Integer;
S: String;
begin
Result := True
if CurPage = 6 then
begin
if FileSize(ExpandConstant('{app}\Bin\XR_3DA.exe'), SZ) then
begin
if SZ<>270336 then
begin
S := 'Размер установленого компонента XR_3DA.exe не соответствует.' #13#13
'Для установки обновления требуются оригинальные файлы.'
MsgBox(S, mbCriticalError, mb_Ok)
WizardForm.Close
Result := False
Exit
end
end
end
end;

procedure CancelButtonClick(CurPage: Integer; var Cancel, Confirm: Boolean);
begin
if CurPage = 6 then
begin
Cancel := True
Confirm := False
end
end;
[/more]

iTASmania_Inc
Ты как всегда на высоте Спасибо!

2ALL

Цитата:

Лучше бы чтобы каждый выложил свою базу по шаблону руководства

У кого что интересное может есть?

Ребята, а в Inno Setup можно сделать описание компонентов как в NSIS?

Ohotnic

Цитата:

Ребята, а в Inno Setup можно сделать описание компонентов как в NSIS?

http://www.rapidshare.ru/386001