[mash]

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

[A1EXXX]

mash, никак.

[Sotonisto]

При использовании скина при установке самое первое окно выбора языка обычное, а когда выбрал язык, начиная с приветствия все диалоги "заскинованы". Скажите, можно это как то поправить? »

Что то я себе это плохо представляю. Скрины в студию!

[svensoft]

Sotonisto, посмотрел твою сборку, очень впечатляет, супер !!!... Вот еще бы педали мигали как в скине при наведении мыши , вообще цены бы ему небыло...

[Sotonisto]

Ну как бы, вот исходник скрипта, но правда там черт ногу сломит »

1. Ты отключил страницу выбора папки для установки твоего приложения. Если ты это действительно хотел - пропиши путь по которому оно должно установиться.
2. Я когда создавал свой инсталл изменял прогресс бар, но тебе это (как я понял) не нужно. Так что удали 2 эти строки.

читать дальше »

Код:

#define PB_ImageFile "progress.bmp"
[Files]
Source: {#PB_ImageFile}; DestDir: {tmp}; Flags: recursesubdirs ignoreversion

3. Вот тут ошибка:

читать дальше »

Код:

[Files]
Source: "C:\Documents and Settings\Alexander\Рабочий стол\XXX\заливаем REMOTE.OFFCE.MANAGER.4.1\через 15 минут\Делаем дистрибутив\autorun.exe"; DestDir: "{app}"; Flags: ignoreversion
//Source: {#PB_ImageFile}; DestDir: {tmp}; Flags: recursesubdirs ignoreversion
Source: "C:\Documents and Settings\Alexander\Рабочий стол\XXX\image.bmp"; Flags: dontcopy
Source: "C:\Documents and Settings\Alexander\Рабочий стол\XXX\button.bmp"; DestDir: {tmp}; Flags: dontcopy

Все изображения, которые используются для оформления инсталла должны быть записаны в самом начале секции [Files], а файлы твоей программы должны быть в самом конце. Кароче вот так:

читать дальше »

Код:

[Files]
Source: "C:\Documents and Settings\Alexander\Рабочий стол\XXX\image.bmp"; Flags: dontcopy nocompression
Source: "C:\Documents and Settings\Alexander\Рабочий стол\XXX\button.bmp"; DestDir: {tmp}; Flags: dontcopy nocompression
Source: "C:\Documents and Settings\Alexander\Рабочий стол\XXX\заливаем REMOTE.OFFCE.MANAGER.4.1\через 15 минут\Делаем дистрибутив\autorun.exe"; DestDir: "{app}"; Flags: ignoreversion

P.S: если найду еще что-то - напишу
P.P.S: лучше создай на жестком для всех файлов отдельную папку (например "setup"). Так будет гораздо проще, а то у тебя километровые пути к файлам

Вот еще бы педали мигали как в скине при наведении мыши , вообще цены бы ему небыло »

Ну можно просто удалить секцию с текстурой кнопок - кнопки будут от скина в том архиве что я вылаживал ранее - есть 2 скина (tiger и мой) у них черные кнопки и при наведении они изменяются

[svensoft]

Sotonisto, а, та не, тот исходник что выше висит, то так, тренировочный полигон, это я у YURSHAT-а, спрашивал на предыдущей странице как вот эти два фрагмента кода соединить в один :

Код:

 BmpFile:= TBitmapImage.Create(WizardForm);                               
 BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\image.bmp'));
 BmpFile.Top:= ScaleY(0);
 BmpFile.Left:= ScaleX(0);
 BmpFile.Width:= ScaleX(790);
 BmpFile.Height:= ScaleY(533);
 BmpFile.Stretch:= true;
 BmpFile.Parent:= WizardForm.ReadyPage;
 
 BmpFile:= TBitmapImage.Create(WizardForm);
 BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\image.bmp'));
 BmpFile.Top:= ScaleY(0);
 BmpFile.Left:= ScaleX(0);
 BmpFile.Width:= ScaleX(790);
 BmpFile.Height:= ScaleY(533);
 BmpFile.Stretch:= true;
 BmpFile.Parent:= WizardForm.InstallingPage;

но все равно приму к сведению что ты сказал ))..

[Sotonisto]

Я там все правильно написал чем тебе фрагмента кода не нравится?
А как иначе селать изображения на каждой странице?

[YURSHAT]

Наложение текстур на кнопки инсталлятора. Кнопки имеют три состояния: нормальное, при наведении, при клике.

Текстура прилагается

Скрипт

Код:

[Setup]
AppName=Test
AppVerName=Test
DefaultDirName={pf}\Test
OutputDir=userdocs:Test.

[Languages]
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl";

[Files]
;Изображение размером 240х23
Source: button.bmp; DestDir: {tmp}; Flags: dontcopy

[Code_]

const
ButtonWidth = 80;
ButtonHeight = 23;

bidBack = 0;
bidNext = 1;
bidCancel = 2;
bidDirBrowse = 3;
bidGroupBrowse = 4;

var
WizardLabel: TLabel;
ButtonPanel: array [0..4] of TPanel;
ButtonImage: array [0..4] of TBitmapImage;
ButtonLabel: array [0..4] of TLabel;
n: Integer;

procedure ButtonLabelClick(Sender: TObject);
var
Button: TButton;
begin
ButtonImage[TLabel(Sender).Tag].Left:=0
case TLabel(Sender).Tag of
bidBack: Button:=WizardForm.BackButton
bidNext: Button:=WizardForm.NextButton
bidCancel: Button:=WizardForm.CancelButton
bidDirBrowse: Button:=WizardForm.DirBrowseButton
bidGroupBrowse: Button:=WizardForm.GroupBrowseButton
else
Exit
end
Button.OnClick(Button)
end;

procedure ButtonLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if ButtonLabel[TLabel(Sender).Tag].Enabled then
ButtonImage[TLabel(Sender).Tag].Left:=-ButtonWidth
end;

procedure ButtonLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ButtonImage[TLabel(Sender).Tag].Left:=0
end;

procedure ButtonLabelMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if ButtonLabel[TLabel(Sender).Tag].Left <> -80 then
begin
for n:=0 to 4 do ButtonImage[n].Left:= 0
end;
if ButtonLabel[TLabel(Sender).Tag].Enabled then
begin
if ButtonLabel[TLabel(Sender).Tag].Left <> -80 then
ButtonImage[TLabel(Sender).Tag].Left:= -160
end;
end;

procedure WizardLabelMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if ButtonLabel[TLabel(Sender).Tag].Left <> -80 then
for n:=0 to 4 do ButtonImage[n].Left:= 0
end;

procedure LoadButtonImage(AButton: TButton; AButtonIndex: integer);
var
Image: TBitmapImage;
Panel: TPanel;
Labl: TLabel;

begin
Panel:=TPanel.Create(WizardForm)
Panel.Left:=AButton.Left
Panel.Top:=AButton.Top
Panel.Width:=AButton.Width
Panel.Height:=AButton.Height
Panel.Tag:=AButtonIndex
Panel.Parent:=AButton.Parent
ButtonPanel[AButtonIndex]:=Panel

Image:=TBitmapImage.Create(WizardForm)
Image.Width:=240
Image.Height:=23
Image.Enabled:=False
Image.Bitmap.LoadFromFile(ExpandConstant('{tmp}\button.bmp'))
Image.Parent:=Panel
ButtonImage[AButtonIndex]:=Image

with TLabel.Create(WizardForm) do begin
Tag:=AButtonIndex
Parent:=Panel
Width:=Panel.Width
Height:=Panel.Height
Transparent:=True
OnClick:=@ButtonLabelClick
OnDblClick:=@ButtonLabelClick
OnMouseMove:=@ButtonLabelMove
OnMouseDown:=@ButtonLabelMouseDown
OnMouseUp:=@ButtonLabelMouseUp
end

Labl:=TLabel.Create(WizardForm)
Labl.Left:=23
Labl.Top:=5
Labl.Autosize:=True
Labl.Alignment:=taCenter
Labl.Tag:=AButtonIndex
Labl.Transparent:=True
Labl.Font.Color:=clWhite
Labl.Caption:=AButton.Caption
Labl.OnClick:=@ButtonLabelClick
Labl.OnDblClick:=@ButtonLabelClick
Labl.OnMouseMove:=@ButtonLabelMove
Labl.OnMouseDown:=@ButtonLabelMouseDown
Labl.OnMouseUp:=@ButtonLabelMouseUp
Labl.Parent:=Panel
ButtonLabel[AButtonIndex]:=Labl
end;

procedure UpdateButton(AButton: TButton;AButtonIndex: integer);
begin
ButtonLabel[AButtonIndex].Caption:=AButton.Caption
ButtonPanel[AButtonIndex].Visible:=AButton.Visible
ButtonLabel[AButtonIndex].Enabled:=Abutton.Enabled
ButtonLabel[AButtonIndex].Left:= ButtonPanel[AButtonIndex].Width div 2 - ButtonLabel[AButtonIndex].Width div 2;
ButtonLabel[AButtonIndex].Top:= ButtonPanel[AButtonIndex].Height div 2 - ButtonLabel[AButtonIndex].Height div 2;
end;

procedure LicenceAcceptedRadioOnClick(Sender: TObject);
begin
ButtonLabel[bidNext].Enabled:=True
end;

procedure LicenceNotAcceptedRadioOnClick(Sender: TObject);
begin
ButtonLabel[bidNext].Enabled:=False
end;

procedure InitializeWizard();
begin
WizardLabel:= TLabel.Create(WizardForm)
WizardLabel.Left:= ScaleX(0)
WizardLabel.Top:= ScaleY(0)
WizardLabel.Width:= ScaleX(497);
WizardLabel.Height:= ScaleY(360);
WizardLabel.Transparent:= True;
WizardLabel.AutoSize:=false;
WizardLabel.Caption:='';
WizardLabel.OnMouseMove:=@WizardLabelMove
WizardLabel.Parent:= WizardForm;

WizardForm.BackButton.Width:=ButtonWidth
WizardForm.BackButton.Height:=ButtonHeight

WizardForm.NextButton.Width:=ButtonWidth
WizardForm.NextButton.Height:=ButtonHeight

WizardForm.CancelButton.Width:=ButtonWidth
WizardForm.CancelButton.Height:=ButtonHeight

WizardForm.DirBrowseButton.Left:=337
WizardForm.DirBrowseButton.Width:=ButtonWidth
WizardForm.DirBrowseButton.Height:=ButtonHeight

WizardForm.GroupBrowseButton.Left:=337
WizardForm.GroupBrowseButton.Width:=ButtonWidth
WizardForm.GroupBrowseButton.Height:=ButtonHeight

WizardForm.LicenseAcceptedRadio.OnClick:=@LicenceAcceptedRadioOnClick

WizardForm.LicenseNotAcceptedRadio.OnClick:=@LicenceNotAcceptedRadioOnClick

ExtractTemporaryFile('button.bmp')
LoadButtonImage(WizardForm.BackButton,bidBack)
LoadButtonImage(WizardForm.NextButton,bidNext)
LoadButtonImage(WizardForm.CancelButton,bidCancel)
LoadButtonImage(WizardForm.DirBrowseButton,bidDirBrowse)
LoadButtonImage(WizardForm.GroupBrowseButton,bidGroupBrowse)
end;

procedure CurPageChanged(CurPageID: Integer);
begin
UpdateButton(WizardForm.BackButton,bidBack)
UpdateButton(WizardForm.NextButton,bidNext)
UpdateButton(WizardForm.CancelButton,bidCancel)
UpdateButton(WizardForm.DirBrowseButton,bidDirBrowse)
UpdateButton(WizardForm.GroupBrowseButton,bidGroupBrowse)
end;

ЗЫ. Serega, можно заменить пример в шапке.

[Sotonisto]

Хотите мигающие педали - ловите! »

Мне оно не оч то и нуно - если че - можно удалить наложение текстуры и будут использоваться кнопки скина.
Но вот я попробовал и вот что у меня :-\

[YURSHAT]

Но вот я попробовал и вот что у меня :-\ »

Ты допустил ошибку, в

Код:

var
WizardLabel: TLabel;
ButtonPanel: array [0..4] of TPanel;
ButtonImage: array [0..4] of TBitmapImage;
ButtonLabel: array [0..4] of TLabel;
n: Integer;

Мне оно не оч то и нуно »

Ну я никому и не навязываю. Тебе не нужно - пригодится другим...