Создание инсталляторов для модпаков на базе Inno Setup

[ferrat]

Не могу понять этот параметр

 

[Setup]: MergeDuplicateFiles

Как он работает на практике.

 

Если у меня в одной папке находятся 10 одинаковых по имени файлов, во второй тоже такие же файлы в компонентах указано 1) установить, 2 ) установить но эти файлы должны установиться сначала первые , поверх вторые 

 

мне надо использовать этот параметр YES или необходимо ставить NO 

 

В справке написано так , что понять просто не реально. 

 

Какие одинаковые файлы считаются одинаковыми , по имени , по размеру, по содержимому 

 

Ищет он по всем источникам одинаковое или только по группам .

 

Кто то может объяснить

 

Спасибо.

 

[Kotyarko_O]

@ferrat , одинаковые файлы - имеется ввиду здесь как файлы, имеющие одинаковое имя (присутствует регистрозависимость). Размер и содержимое не учитывается. Проверяются все файлы, указанные в секции [Files].

Подробнее: https://github.com/jrsoftware/issrc/blob/master/Projects/Compile.pas#L6056

[Lom]

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

[Kotyarko_O]

@ЛОМ , пример: https://bitbucket.org/Kotyarko_O/kmp/src/0ead13e134aa9215449addfce2a2db03a9bfd204/Resourses/ParamsRememberer.iss#lines-70

[Lom]

а если в логе установленных модов присутствуют символы шрифта? в данный момент в логе вместо символов вопросики

 

 

 

[Kotyarko_O]

@ЛОМ , тогда нужно сделать фильтр, который будет отсекать все глифы. В идеале, для строк с глифами нужен отдельный список, - в таком случае будет легче отсекать всё "ненужное".

Edited September 5, 2018 by Kotyarko_O

[Lom]

37 минут назад, Kotyarko_O сказал:

@ЛОМ , тогда нужно сделать фильтр, который будет отсекать все глифы. В идеале, для строк с глифами нужен отдельный список, - в таком случае будет легче отсекать всё "ненужное".

 

а пример можно? 

[Kotyarko_O]

4 minutes ago, ЛОМ said:

а пример можно? 

Делал давно, для закрытого проекта. Заморочено. Пояснять не буду, лень. Если не понятно - ищи способы попроще.

Glyphs.iss

[AtotIK]

Добавлять эти символы в ItemSubItem.

[sergy2010]

Доброе времени суток,
Подскажите скрип на замену стандартных чекбоксов и радиобутонов на свои в формате (bmp)
Заранее огромное спасибо

[AtotIK]

9 часов назад, sergy2010 сказал:

Доброе времени суток,
Подскажите скрип на замену стандартных чекбоксов и радиобутонов на свои в формате (bmp)
Заранее огромное спасибо

Вроде так:

[Files]
Source: "Embedded\BTNImage.bmp"; DestDir: "{tmp}"; Flags: dontcopy nocompression;

[Code]
procedure InitializeWizard;
var
  BTNImage: TBitmapImage;
  BTNImageStream: TMemoryStream;
begin
  BTNImageStream := TMemoryStream.Create;
  ExtractTemporaryFileToStream('BTNImage.bmp', BTNImageStream);
  BTNImageStream.Position := ScaleX(0);

  BTNImage := TBitmapImage.Create(WizardForm);
  BTNImage.Bitmap.LoadFromStream(BTNImageStream);

  with WizardForm.ComponentsList do
  begin
    LoadBtnBmpFromBitmap(BTNImage.Bitmap);
  end;
end;

 

BTNImage.bmp

[sergy2010]

11 часов назад, AtotIK сказал:

Вроде так:

[Files]
Source: "Embedded\BTNImage.bmp"; DestDir: "{tmp}"; Flags: dontcopy nocompression;

[Code]
procedure InitializeWizard;
var
  BTNImage: TBitmapImage;
  BTNImageStream: TMemoryStream;
begin
  BTNImageStream := TMemoryStream.Create;
  ExtractTemporaryFileToStream('BTNImage.bmp', BTNImageStream);
  BTNImageStream.Position := ScaleX(0);

  BTNImage := TBitmapImage.Create(WizardForm);
  BTNImage.Bitmap.LoadFromStream(BTNImageStream);

  with WizardForm.ComponentsList do
  begin
    LoadBtnBmpFromBitmap(BTNImage.Bitmap);
  end;
end;

 

BTNImage.bmp

Спс конечно это то , НО при использовании скина выходит вот такая вот фигня((((

На VCL Styles тоже самое, может есть на botva2, если есть поделитесь пожалуйста

Новый точечный рисунок.bmp

Edited November 7, 2018 by sergy2010

[AtotIK]

В 07.11.2018 в 13:57, sergy2010 сказал:

Спс конечно это то , НО при использовании скина выходит вот такая вот фигня((((

На VCL Styles тоже самое, может есть на botva2, если есть поделитесь пожалуйста

Проблема явно у вас на компьютере. У меня прекрасно натягивается текстура. Скиньте пустой exe'шник для проверки.

[sergy2010]

1 час назад, AtotIK сказал:

Проблема явно у вас на компьютере. У меня прекрасно натягивается текстура. Скиньте пустой exe'шник для проверки.

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

Install.rar

Edited November 8, 2018 by sergy2010

[AtotIK]

1 час назад, sergy2010 сказал:

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

Install.rar

Не используйте скины - это дурной тон. Как и музыка в инсталляторе.

[sergy2010]

25 минут назад, AtotIK сказал:

Не используйте скины - это дурной тон. Как и музыка в инсталляторе.

а без скина рамка стандарт не устраивает, я так понял решения в этой проблеме нету?

[night_dragon_on]

1 час назад, sergy2010 сказал:

рамка стандарт не устраивает

 

Можешь полностью отключить ее отображение:

with WizardForm do begin
  BorderStyle:=bsNone;
end;

Это повлечет за собой невозможность двигать окно установщика, но это поправимо.

 

А так если что то не нравится в оформлении стандартного установщика - ботва тебе в помощь. При должном желании и времени (для понимания какие возможности предоставляет библиотека и как ей пользоваться) можешь хоть все элементы перерисовать на свой лад.

Edited November 8, 2018 by night_dragon_on

[AtotIK]

12 часов назад, night_dragon_on сказал:

Это повлечет за собой невозможность двигать окно установщика, но это поправимо.

Теперь окно будет двигаться.

[Code]
function ReleaseCapture: Longint; external '[email protected] stdcall';

procedure LabelOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(WizardForm.Handle, $0112, $F012, 0);
end;

procedure InitializeWizard;
begin
  with WizardForm do
  begin
    OnMouseDown := @LabelOnMouseDown;
  end;
end;

 

[m4rs]

В 07.11.2018 в 16:56, AtotIK сказал:

Вроде так:

[Files]
Source: "Embedded\BTNImage.bmp"; DestDir: "{tmp}"; Flags: dontcopy nocompression;

[Code]
procedure InitializeWizard;
var
  BTNImage: TBitmapImage;
  BTNImageStream: TMemoryStream;
begin
  BTNImageStream := TMemoryStream.Create;
  ExtractTemporaryFileToStream('BTNImage.bmp', BTNImageStream);
  BTNImageStream.Position := ScaleX(0);

  BTNImage := TBitmapImage.Create(WizardForm);
  BTNImage.Bitmap.LoadFromStream(BTNImageStream);

  with WizardForm.ComponentsList do
  begin
    LoadBtnBmpFromBitmap(BTNImage.Bitmap);
  end;
end;

 

BTNImage.bmp

В ComponentList и TasksList изменил. помогите как изменить в SelectDirPage Спасибо.

[AtotIK]

6 часов назад, m4rs сказал:

В ComponentList и TasksList изменил. помогите как изменить в SelectDirPage Спасибо.

Насколько я помню LoadBtnBmpFromBitmap есть только у ComponentList и TasksList.