Как сделать как на скриншоте, помогите пожалуйста!

[Александр85]

Здравствуйте!
Нужно убрать стандартные картинки WizardImageFile и WizarsSmallFile , изменить размер окна и текст подогнать под окно!
В общем мне нужно вот такое примитивное и маленькое окошко, при запуске EXE-шника, размером там 350x155, примерно, где кроме текста, названия и значка:



Использую версию 6x и устал уже подгонять Страницу приветствия (( с помощью Wizard.Form.Height, и Wizard.Form.Weight а на 5x не работает, есть менее колхозных вариант? Помогите, пожалуйста!

 

[Хамик]

Звучит как приказ

 

[Александр85]

Звучит как приказ

Написано же: Помогите, пожалуйста!

 

[tihiy_don]

DisableWelcomePage=yes
WizardForm.WizardSmallBitmapImage.Hide;
остальное по аналогии.

 

[Хамик]

НИКАКИХ ДРУГИХ ОКОН, ЧТОБЫ НЕ БЫЛО!

Еще и капслуком

 

[Александр85]

DisableWelcomePage=yes
WizardForm.WizardSmallBitmapImage.Hide;
остальное по аналогии.

Так мне наоборот, надо окно приветствия "модифицировать" и подогнать текст, чтобы не было "пустоты" на месте спрятанной картинки.

 

[Александр85]

Еще и капслуком

Убрал! Помогите, пожалуйста сделать как на скриншоте, примерно - "превратить" страницу приветствия

 

[tihiy_don]

Так мне наоборот, надо окно приветствия "модифицировать" и подогнать текст, чтобы не было "пустоты" на месте спрятанной картинки.

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

 

[Александр85]

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

Убрать и растянуть текст и сделать как на скриншоте, примерно!А Страница приветствия - потому что она "белая" и без явной "полоски" над кнопками, (в отличие от страницы Все готово к установке) - со стилями не придется возиться

 

[JEKE24]

А почему просто не взять MsgBox, или у вас там есть еще что то ?

Спойлер: _

function InitializeSetup(): Boolean;
begin
  Result := True;
  if  MsgBox('Установить доп компоненты?', mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = IDNO then
  begin
   Result := False;
  end;
end;

 

[Александр85]

А почему просто не взять MsgBox, или у вас там есть еще что то ?

Спойлер: _

function InitializeSetup(): Boolean;
begin
  Result := True;
  if  MsgBox('Установить доп компоненты?', mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = IDNO then
  begin
   Result := False;
  end;
end;

Мне просто Страницу приветствия нужно изменить, как на скриншоте, сделать его маленьким и без стандартной картинки. И Финишную страницу тоже - такого же маленького размера. Установка успешно завешена и кнопка Закрыть. Всё.
P.S. Этот вариант работает - но не скрывается Страница приветствия или Страница все готово к установке даже если стоит DisableWelcomePage и/или DisableReadyPage - как их убрать? Мне это "окошко" - нужно только для информирования пользователя - после чего начнётся установка, если он нажмёт Да. Поэтому и спросил как модифицировать Страницу приветствия?

 

[JEKE24]

Мне просто Страницу приветствия нужно изменить, как на скриншоте, сделать его маленьким и без стандартной картинки. И Финишную страницу тоже - такого же маленького размера. Установка успешно завешена и кнопка Закрыть. Всё.
P.S. Этот вариант работает - но не скрывается Страница приветствия или Страница все готово к установке даже если стоит DisableWelcomePage и/или DisableReadyPage - как их убрать? Мне это "окошко" - нужно только для информирования пользователя - после чего начнётся установка, если он нажмёт Да. Поэтому и спросил как модифицировать Страницу приветствия?

Спойлер: +_+

[Setup]
AppName=gawr gura
AppVersion=1.0
WizardStyle=modern
DefaultDirName={localappdata}\gawr gura
DefaultGroupName=gawr gura
Compression=lzma2
SolidCompression=yes
OutputBaseFilename=Example
PrivilegesRequired=lowest
OutputDir=Output
DisableWelcomePage=yes
DisableReadyPage=yes

[Code]
function InitializeSetup(): Boolean;
begin
  Result := True;
  if  MsgBox('Установить доп компоненты?', mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = IDNO then
  begin
   Result := False;
  end;
end;


function ShouldSkipPage(PageID: Integer): Boolean;
begin

  if (PageID = wpFinished ) then
  begin
    Result := True;
    WizardForm.Hide;
    MsgBox('Завершено нажмите ок.', mbInformation, MB_OK);
    end
  else
    Result := False;
end;

Если мне не изменяет память где то такой код уже был на форуме

 

[Александр85]

Спасибо!