[Vanadiy777]

А в рестораторе смотришь: чего-то не хватает, не заполнено. Не порядок))) »

DA-Bro,
забейте... У меня, например, когда смотрю в рестораторе, "Оригинальное имя файла" - вообще такого пункта нет...
А "Комментарий" в SetupLdr.e32 поправьте в самом компиляторе...

[DA-Bro]

Vanadiy777, я вот хотел ещё строчку "О программе" убрать.

Нашел вот такое решение:

Код:

  begin
WizardForm.Position:=poScreenCenter;
end;

А оно со скриптом, который Вы мне поправили не состыкуется.
Там файл Readme.RTF черно-белый становится, цвет и шрифт пропадают.

Может у Вас есть решение получше, как убрать эту строчку.

[Vanadiy777]

Может у Вас есть решение получше, как убрать эту строчку. »

DA-Bro,
надо всего одну строчку добавить без всяких begin и end.
Отметил красным, что надо добавить и, главное куда, остальное трогать не надо...

Код:

procedure InitializeWizard();
begin
  WizardForm.Position:=poScreenCenter;
  case ActiveLanguage of

[DA-Bro]

Vanadiy777, Нет слов. Спасибо!

Просто и четко. Раз и строчки нету.

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

В школе бы учебники раздавали детям и иди отсюда домой изучай, через 10 лет на ЕГЭ придёшь расскажешь)
Так нет, без разъяснений учителей всё равно не обойтись никак.

Спасибо!

[DA-Bro]

Vanadiy777, а может подскажите.

Я вот скрипт один нашел: "Проценты в прогрессбаре установки".

...

Код:

var
  ProgressLabel: TLabel;

procedure ExtLog();
begin
  with WizardForm.ProgressGauge do begin
    ProgressLabel.Caption:=IntToStr((Position-Min)/((Max - Min)/100)) + '%'
    if (Position-Min)/((Max - Min)/100) > 50 then ProgressLabel.Font.Color:= clWhite
  end
end;

procedure InitializeWizard;
begin
  ProgressLabel:=TLabel.Create(WizardForm)
    ProgressLabel.Top:= 4
    ProgressLabel.Left:= 200
    ProgressLabel.Caption:= '0%'
    ProgressLabel.AutoSize:= True
    ProgressLabel.Font.Color:= clBlue
    ProgressLabel.Font.Style:= [fsBold]
    ProgressLabel.Transparent:= True
    ProgressLabel.Parent:= WizardForm.ProgressGauge
end;

А у него просто нолик с процентами моргает и всё.
Не понятно почему проценты не крутятся, а только "0 %" и всё.

Может есть у Вас получше или рабочее решение.

[DA-Bro]

надо всего одну строчку добавить без всяких begin и end. »

Vanadiy777 когда строчку эту вписал, с файлами RTF всё нормально, где кнопки на первой странице.

А сейчас проверил на другой перепаковке. У меня там страница "Информация" есть и там тоже файл InfoBefore.rtf.
Те файлы цветные нормальные, а этот черно-белый.

Может ещё что куда надо вписать, чтобы он на странице "Информация" тоже нормально в цвете отображался.

Подскажите пожалуйста!

[Vanadiy777]

А сейчас проверил на другой перепаковке. У меня там страница "Информация" есть и там тоже файл InfoBefore.rtf. Те файлы цветные нормальные, а этот черно-белый. »

DA-Bro,

Это у Вас все в одном проекте реализовано, или в разных?

Давайте скрипт полностью, который не работает... Так будет быстрее и проще, а то я с Вами запутался совсем...

[DA-Bro]

Vanadiy777, отправил Вам в личку.

Да скрипт в данный момент на всё.

Просто в некоторые перепаковки добавляю InfoBeforeFile. Появляется страница "Информация", и там этот RTF черно-белый.
А где кнопки на первой странице, там нормально.

Код:

InfoBeforeFile = "{tmp}\InfoBefore.rtf"

[Vanadiy777]

DA-Bro,
отправил в личку...
Там готовый вариант и пример для тестов.

Про проценты в прогресс-баре пока не разобрался.

[nik1967]

А у него просто нолик с процентами моргает и всё. Не понятно почему проценты не крутятся, а только "0 %" и всё. »

Потому, что не вижу, где инициируется procedure ExtLog();