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

[Batistas]

Spell1999, все от конкретного файла зависит.

http://s1.ipicture.ru/uploads/20120809/jvZcF9SW.png

,

http://s1.ipicture.ru/uploads/20120809/jHQMmJ9z.png

[Batistas]

и чё это за чуш



Batistas, я также делал но непомогает



я немогу понтять чем жмут. например maxpayne 3 с 25 гигов сжали до 12 это как?

[Spell1999]

Цитата Ivan_009:



Как зделать так чтобы иконка отображалась в этой области...

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

А толку от неё там? Тупо чтобы была?

Если уж так нужно, то как-то так:

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

Код:

Код: Выделить всё

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
DisableFinishedPage=yes
OutputDir=.
Compression=lzma/ultra
[Languages]
Name: RUS; MessagesFile: "compiler:Languages\Russian.isl"
[Files]
Source: Files\Icon1.ico; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system; 
[Code ]
function InitializeSetup(): Boolean;
begin
if not FileExists(ExpandConstant('{tmp}\Icon1.ico')) then ExtractTemporaryFile('Icon1.ico'); 
  Result:= True;
end;
var 
  MyIcon: TNewIconImage;   
procedure InitializeWizard();
begin
with WizardForm do begin
  BorderStyle:= bsNone;
  InnerNotebook.Hide;
  OuterNotebook.Hide;
end;    
  MyIcon := TNewIconImage.Create(Wizardform); 
with MyIcon do
begin
  Parent := Wizardform; 
  SetBounds(ScaleX(5),ScaleY(5),ScaleX(16),ScaleY(16)); 
  Icon.LoadFromFile(ExpandConstant('{tmp}\Icon1.ico')); 
end;  
end;

Johny777, на скрин посмотри. Ни че не видешь в правом углу, кнопки на которых свернуть и закрыть.

[Spell1999]

Spell1999, скорее всего удалили ненужное. Вот еще для сжатия -

http://www.youtube.com/watch?v=CQcJJ_FyUnE

[Batistas]

Batistas, я тоже так думал сначала. но потом скачал установил она тянет почти на 25 гигов как лицензия, там ничё не вырезано. ща гляну видос попробую.

[El Sanchez]

Цитата Ivan_009:



Как сделать такие края в инсталляторе без ботвы.....

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

Выдернуть из AutoRun.iss Need for Speed™ Undercover'а.

[Johny777]

nik1967, А поподробней можно какие функции

[Ivan_009]

Покажите пример наложение текстур на кнопки с двум состояниям искал везде 4 или 3 состояния...

[Spell1999]

Johny777, спс до меня допёрла кажись)))

[Johny777]

Ivan_009,

текстурирование кнопок

2 состояния - обычное и при нажатии

код:

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

Код:

Код: Выделить всё

#define ButtonWidth "80" ; ширина кнопки
#define ButtonHeight "25" ; высота
#define ButtonFontColor "clWhite" ;цвет шрифта кнопок
#define TextureWidth "160" ;ширина картинки-текстуры
#define TextureHeight "25" ;высота
[Setup]
AppName=Test
AppVerName=Test
DefaultDirName={pf}\Test
OutputDir=.
;Изображение размером 160х25 (можете поменять в купе с настройками в препроцессоре, в шапке)
;левая половина - обычное состояние, правая - при нажатии
BitmapResource=button:button.bmp
[code]
var
  ButtonPanel: array [0..4] of TPanel;
  ButtonImage: array [0..4] of TBitmapImage;
  ButtonLabel: array [0..4] of TLabel;
procedure ButtonLabelClick(Sender: TObject);
var
  Button: TButton;
begin
  with WizardForm do
  begin
    case TLabel(Sender).Tag of
      0: Button := BackButton;
      1: Button := NextButton;
      2: Button := CancelButton;
      3: Button := DirBrowseButton;
      4: Button := GroupBrowseButton;
    else exit
    end;
  end;
  Button.OnClick(Button);
end;
procedure ButtonLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ButtonImage[TLabel(Sender).Tag].Left:= -ScaleX({#ButtonWidth});
end;
procedure ButtonLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ButtonImage[TLabel(Sender).Tag].Left := ScaleX(0);
end;
procedure LoadButtonImage(AButton: TButton; AButtonIndex: integer);
var
  Image: TBitmapImage;
  Panel: TPanel;
  Labl: TLabel;
begin
  Panel:=TPanel.Create(WizardForm)
  with Panel do
  begin
    SetBounds(AButton.Left,AButton.Top,AButton.Width,AButton.Height);
    Tag := AButtonIndex;
    Parent := AButton.Parent;
  end;
  ButtonPanel[AButtonIndex] := Panel;
  Image:=TBitmapImage.Create(WizardForm)
  with Image do
  begin
    Width := ScaleX({#TextureWidth});
    Height := ScaleY({#TextureHeight});
    Enabled := False;
    Bitmap.LoadFromResourceName(HInstance, '_IS_BUTTON');
    Parent := Panel;
  end;
  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;
    OnMouseDown := @ButtonLabelMouseDown;
    OnMouseUp := @ButtonLabelMouseUp;
  end;
  Labl:=TLabel.Create(WizardForm)
  with Labl do
  begin
    Autosize := True;
    Alignment := taCenter;
    Tag := AButtonIndex;
    Transparent := True;            
    Font.Color := {#ButtonFontColor};
    Caption := AButton.Caption;
    OnClick := @ButtonLabelClick;
    OnMouseDown := @ButtonLabelMouseDown;
    OnMouseUp := @ButtonLabelMouseUp;
    OnDblClick := @ButtonLabelClick;
    Parent := Panel;
  end;
  ButtonLabel[AButtonIndex]:= Labl;
end;
procedure UpdateButton(AButton: TButton;AButtonIndex: integer);
begin
  ButtonPanel[AButtonIndex].Visible := AButton.Visible;
  with ButtonLabel[AButtonIndex] do
  begin
    Caption := AButton.Caption;
    Left := ButtonPanel[AButtonIndex].Width div 2 - ButtonLabel[AButtonIndex].Width div 2;
    Top := ButtonPanel[AButtonIndex].Height div 2 - ButtonLabel[AButtonIndex].Height div 2;
  end;
end;
procedure InitializeWizard();
begin
  with WizardForm do
  begin
    BackButton.Width:={#ButtonWidth};
    BackButton.Height:={#ButtonHeight};
    NextButton.Width:={#ButtonWidth};
    NextButton.Height:={#ButtonHeight};
    CancelButton.Width:={#ButtonWidth};
    CancelButton.Height:={#ButtonHeight};
    DirBrowseButton.Width:={#ButtonWidth};
    DirBrowseButton.Height:={#ButtonHeight};
    GroupBrowseButton.Width:={#ButtonWidth};
    GroupBrowseButton.Height:={#ButtonHeight};
    LoadButtonImage(BackButton,0);
    LoadButtonImage(NextButton,1);
    LoadButtonImage(CancelButton,2);
    LoadButtonImage(DirBrowseButton,3);
    LoadButtonImage(GroupBrowseButton,4);
  end;
end;
procedure CurPageChanged(CurPageID: Integer);  
begin
  UpdateButton(WizardForm.BackButton,0);
  UpdateButton(WizardForm.NextButton,1);
  UpdateButton(WizardForm.CancelButton,2);
  UpdateButton(WizardForm.DirBrowseButton,3);
  UpdateButton(WizardForm.GroupBrowseButton,4);
end;

текстура (положить рядом со скриптом) :