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

[Shift85]

Shift85, не сильно понятен вопрос

Собственно какие бывают стили отображения компонент листа...

 

[urban]

Shift85, аа,в этом я не силен:-[
а можно ли убрать как-то белый фон у картинки без ботвы к примеру?

 

[MAKS_MAFIA]

Всем привет. Как сделать так, чтобы при выборе папки с приложением, инсталлятор проверял наличие .exe файла и версию приложения?

 

[nik1967]

Собственно какие бывают стили отображения компонент листа...

TFormBorderStyle = (bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin);

 

[Winst@n]

urban,
ищи в примерах inno Example_TransparentBmp

 

[urban]

походу в скрипте баг,если не хватает места на диске,то установку все-равно можно продолжить,помогите исправить
http://rghost.ru/52399437

 

[LexBell]

urban, у тебя сперва идет WizardForm.NextButton.Enabled:= (FreeMB>TotalNeedSize);
а потом WizardForm.NextButton.Enabled:= (FreeMB>NeedSize);
которая меньше, и соответственно уже помещается в нужный объем. либо поменяй местами эти строчки, либо удали WizardForm.NextButton.Enabled:= (FreeMB>NeedSize);

 

[Shift85]

Покажите пожалуйста пример вставки bmp картинки на все страницы инсталлятора...
Зарание спасибо...

 

[urban]

Shift85, ну ботвой,но это сложно,так как придется все с 0 переписать,а чем IsPicture не подходит?

 

[Shift85]

а чем IsPicture не подходит?

Тем, что функции непонятны...

 

[urban]

Shift85, ботва геморней,хотя если посидеть пару часов то можно разобраться,но я уже с лета все забыл,когда-то помнил как кнопки текстурировать,сейчас пока не сильно выходит,та и не охота

 

[vint56]

Shift85 вот пример на bmp

Спойлер: Пример

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]
DestName: "WizardForm.BitmapImage1.bmp"; Source: "C:\background.bmp"; Flags: dontcopy solidbreak

var
  Panel1: TPanel;
  BitmapImage1: TBitmapImage;

procedure InitializeWizard();
begin
  with WizardForm do begin
    OuterNotebook.Hide;
    Bevel.Hide;
    Position:=poScreenCenter;
  end;

  Panel1 := TPanel.Create(WizardForm);
  with Panel1 do
  begin
    Parent := WizardForm;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(497);
    Height := ScaleY(360);
  end;

  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Parent := Panel1;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(497);
    Height := ScaleY(360);
    ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));
  end;

  with WizardForm.CancelButton do
  begin
  Parent := Panel1;
  end;

  with WizardForm.NextButton do
  begin
    Parent := Panel1;
  end;

  with WizardForm.BackButton do
  begin
    Parent := Panel1;
  end;

  with WizardForm.DirBrowseButton do
  begin
    Parent := Panel1;
    Left := ScaleX(387);
    Top := ScaleY(120);
  end;

  with WizardForm.DirEdit do
  begin
    Parent := Panel1;
    Top := ScaleY(120);
    Left := ScaleX(40);
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  WizardForm.DirEdit.Hide;
  WizardForm.DirBrowseButton.Hide;
case CurPageID of
  WpSelectDir: begin
  WizardForm.DirEdit.Show;
  WizardForm.DirBrowseButton.Show;
 end;
end;
end;[/SPOILER]

Хочеш проше скачай Need for Speed™ Undercover 1 вариант на bmp картинка

 

[Shift85]

Возможно ли сделать без ботвы следующее : http://rghost.ru/52418102

Указать путь и папку в пуске без рамки...

Зарание спасибо...

 

[Silentman]

Shift85, через лейбл делай, примерно так

var
DirEditLabel: TLabel;

procedure Getlabel(Sender: TObject);
begin
DirEditLabel.Caption:=MinimizePathName(WizardForm.DirEdit.Text, DirEditLabel.Font, DirEditLabel.Width);
end;

procedure InitializeWizard;

begin
  DirEditLabel := TLabel.Create(WizardForm);
  with DirEditLabel do begin
    AutoSize:=False;
    SetBounds(ScaleX(0), ScaleY(327), ScaleX(446), ScaleY(15));
    WordWrap:= True;
    ShowAccelChar := False;
    Transparent:=True;
    Font.Name:= 'Arial'
    Font.Size:= 8;
    Font.Color:=clblack
    Font.Style:=[fsBold];
    Caption := MinimizePathName(WizardForm.DirEdit.Text, DirEditLabel.Font, DirEditLabel.Width);
    Parent := WizardForm;
  end;
wizardForm.DirEdit.OnChange:= @Getlabel;
//Getlabel(nil)
end;[/MORE].

 

[Winst@n]

Shift85,
У меня такое ощущение что ты делаешь закос (плагиатом занимаешься).

 

[Shift85]

У меня такое ощущение что ты делаешь закос (плагиатом занимаешься).

Кстати ничем я не занимаюсь Winst@n,просто осваюваю чего проще и лутше...

 

[MAKS_MAFIA]

Всем привет. Как установить шрифты инсталлятором?

 

[urban]

MAKS_MAFIA,

Вот пример из инносетаповской справки:
Source: "OZHANDIN.TTF"; DestDir: "{fonts}"; FontInstall: "Oz Handicraft BT"; Flags: onlyifdoesntexist uninsneveruninstall

 

[Silentman]

Можно ли как-нибудь через секцию [run] сделать, чтобы после установки запускалась программа, находящаяся в папке вне папки с самим инсталлятором (лежит рядом с папкой инсталлятора)?

 

[ReFLeXx]

Silentman,

[Run]
Filename: {src}\..\file.exe; Flags: nowait postinstall skipifsilent;