[Ivan_009]

две формы. одна на переднем плане с вырезанием цвета, другая взади »

Примерчик можешь дать пожалуйста...

[sergey3695]

Ivan_009, Вот (это лишь пример как бы прозр эдита)

[Stealthmax]

Нужно именно в отдельное окно. Чтобы только в этом окне появлялся текст. Не могли бы вы скинуть образец? »

Дополни свой скрипт на основе этого

примера

Код:

[Files]
Source: "pict1.bmp"; Flags: dontcopy; Attribs: hidden system
Source: "pict2.bmp"; Flags: dontcopy; Attribs: hidden system

[Components]
Name: "g0"; Description: "P-MOD Пакет с пряниками"; Types: full
Name: "g0\c1"; Description: "Командирская камера"; Types: full; Flags: dontinheritcheck
Name: "g0\c2"; Description: "Отключение озеленения в снайперском прицеле"; Types: full; Flags: dontinheritcheck
Name: "g0\c3"; Description: "Блокировать смену прицелов (NoScroll)"; Types: full; Flags: dontinheritcheck
Name: "g0\c4"; Description: "Динамическая камера"; Types: full; Flags: dontinheritcheck
Name: "g0\c4\c5"; Description: "Покачивание отключено полностью"; Flags: exclusive
Name: "g0\c4\c6"; Description: "Отключено только покачивание прицела"; Flags: exclusive
Name: "g0\c7"; Description: "Увеличить время работы Лампочки"; Types: full; Flags: dontinheritcheck
Name: "g0\c7\c8"; Description: "2 секунды"; Flags: exclusive
Name: "g0\c7\c9"; Description: "5 секунд"; Flags: exclusive
Name: "g0\c7\c10"; Description: "10 секунд"; Flags: exclusive
Name: "g0\c11"; Description: "Информация об вашем респауне на экране загрузки"; Types: full; Flags: dontinheritcheck
Name: "g0\c12"; Description: "Эффекты камеры во время боя"; Types: full; Flags: dontinheritcheck
Name: "g0\c12\c13"; Description: "Инерция камеры"; Flags: exclusive
Name: "g0\c12\c14"; Description: "Красная вспышка когда враг попадает по вам"; Flags: exclusive
Name: "g0\c12\c15"; Description: "Тряска камеры когда враг попадает по вам"; Flags: exclusive
Name: "g0\c12\c16"; Description: "Включить все 3 функции"; Flags: exclusive
Name: "g0\c17"; Description: "Стандартная кратность прицела"; Types: full; Flags: dontinheritcheck
Name: "g0\c18"; Description: "Быстрая смена оборудования"; Types: full; Flags: dontinheritcheck
Name: "g0\c19"; Description: "Горизонтальная стабилизация"; Types: full; Flags: dontinheritcheck
Name: "g0\c19\c20"; Description: "На всех технике"; Flags: exclusive
Name: "g0\c19\c21"; Description: "На всей технике кроме ПТ"; Flags: exclusive
Name: "g0\c22"; Description: "Окно входа в игру"; Types: full; Flags: dontinheritcheck
Name: "g0\c22\c23"; Description: "Отключение автовыбора сервера"; Flags: exclusive
Name: "g0\c22\c24"; Description: "Отключение проигрывания стартового ролика"; Flags: exclusive
Name: "g0\c22\c25"; Description: "Включить обе функции"; Flags: exclusive
Name: "g0\c26"; Description: "Отдаление камеры при старте боя и после уничтожения танка"; Types: full; Flags: dontinheritcheck
Name: "g0\c27"; Description: "Ручной тормоз на ПТ-САУ"; Types: full; Flags: dontinheritcheck
Name: "g0\c27\c28"; Description: "Полное отключение тормоза"; Flags: exclusive
Name: "g0\c27\c29"; Description: "Только открепление камеры"; Flags: exclusive
Name: "g0\c30"; Description: "Свободная камера в реплеях"; Types: full; Flags: dontinheritcheck

[Languages]
Name: "English"; MessagesFile: "compiler:Default.isl"
Name: "Russian"; MessagesFile: "compiler:Languages\Russian.isl"

[CustomMessages]
Russian.Component1=Описание компонента 1 и изображение выше
Russian.Component2=Описание компонента 2 и изображение выше

[_Code]
var
  ComponentBitmapImage: TBitmapImage;
  DescritionText: TNewStaticText;

procedure RedesignWizardForm;
begin
  { ComponentBitmapImage }
  ComponentBitmapImage := TBitmapImage.Create(WizardForm);
  with ComponentBitmapImage do
  begin
    Name := 'ComponentBitmapImage';
    Parent := WizardForm.SelectComponentsPage;
    Left := ScaleX(200);
    Top := ScaleY(50);
    Width := ScaleX(210);
    Height := ScaleY(89);
  end;

  with WizardForm.ComponentsList do
  begin
    Width := ScaleX(193);
  end;

  with WizardForm.TypesCombo do
  begin
    Width := ScaleX(193);
  end;

  { DescritionText }
  DescritionText := TNewStaticText.Create(WizardForm);
  with DescritionText do
  begin
    Name := 'DescritionText';
    Parent := WizardForm.SelectComponentsPage;
    AutoSize := False;
    WordWrap := True;
    Caption := '';
    Left := ScaleX(200);
    Top := ScaleY(144);
    Width := ScaleX(210);
    Height := ScaleY(61);
  end;

  DescritionText.TabOrder := 4;
end;

procedure OnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);
begin
    if Index = 1 then // элемент списка компонентов, т.е. к примеру их 31, значит по аналогии и остальные
    begin
    ComponentBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\pict2.bmp'));//выводим изображении при наведении
    DescritionText.Caption := CustomMessage('Component2');//выводим текст при наведении
    end;
    if Index = 0 then
    begin
    ComponentBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\pict1.bmp'));
    DescritionText.Caption := CustomMessage('Component1');
    end;
end;

procedure OnMouseLeave(Sender: TObject); //убираем курсор мыши, действия
begin
  DescritionText.Caption := 'Наведите указатель мыши на компонент, чтобы увидеть его описание.';//вывод текста при потере фокуса, т.е. убрали курсор мыши
  //DescritionText.Caption := ''; //если убираем текст, то при потере фокуса получаем пустое окно описания, расскомментировать при необходимости
  ComponentBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\pict1.bmp'));//выводим изображение по умолчанию
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
  WizardForm.ComponentsList.OnItemMouseMove := @OnItemMouseMove; // инициализация процедуры при наведении курсора мыши
  WizardForm.ComponentsList.OnMouseLeave := @OnMouseLeave;// инициализация процедуры при потери фокуса мыши
  ComponentBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\pict1.bmp')); //изображение по умолчанию
  DescritionText.Caption := 'Наведите указатель мыши на компонент, чтобы увидеть его описание.';//описание по умолчанию
end;

function InitializeSetup(): Boolean;
begin
  Result := True;
  ExtractTemporaryFile('pict1.bmp');
  ExtractTemporaryFile('pict1.bmp');
end;

P.S. Skillet "Comatose" пойдет, давно их не слушал.

И упрощение для удобства за помощью sergey3695, за что отдельное спасибо:

Код:

procedure OnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);
begin
//выводим картинку и описание, процедуры детальнее указаны в примере выше, упрощение самой конструкции наведения куросора мыши
    case Index of
    0: begin ComponentBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\pict1.bmp')); DescritionText.Caption := CustomMessage('Component1'); end;
    1: begin DescritionText.Caption := CustomMessage('Component2'); ComponentBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\pict2.bmp')); end
  else
    DescritionText.Caption := 'Наведите указатель мыши на компонент, чтобы увидеть его описание.';
  end;
end;

[sergey3695]

Stealthmax,

Код:

   0: begin
DescritionText.Caption := CustomMessage('Component1'); ComponentBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\pict1.bmp'));
end;

может как-то так все таки,а не в кепшен совать,ведь это текст лейбла. (код не проверял, кусок за кусок (собирать-то влом))

[diman_21Ru]

Stealthmax, а можно ли какой то более легкий способ на описание компонента , т.к некоторые обозначения есть уже

[Stealthmax]

может как-то так все таки,а не в кепшен совать,ведь это текст лейбла. »

Молодца! Да, так пашет, сам что-то не допер такой вариант. Текст Label? А он случаем не в Caption указывается? Или может другое свойство есть? По-моему, нового там ничего не было.

можно ли какой то более легкий способ на описание компонента , т.к некоторые обозначения есть уже »

Надо подключиться к спутнику, экстрасенсов вызвать, связи с ними нет. Открываешь редактор Inno Restools и видишь там справа окно свойств элементов и делаешь то, что нужно, потом выкладываешь здесь и указываешь что хотелось бы и что не получилось. Вывести описание на странице wpSelectComponentsPage без добавления новых элементов можно в WizardForm.SelectComponentsLabel.Caption := 'бла-бла-бла', положение и размеры там же.
По поводу некоторых обозначений. Я дал пример, который не подразумевает использовать в первозданном виде, меняй названия элементов как угодно, повторюсь, это всего лишь пример.

[sergey3695]

Stealthmax, мда... я же написал текст лейбла. (поясняю как ты и написал в кепшане указывается текст, но так как я посчитал что DescritionText это лейбл,то написал текст лейбла (кепшан относится к лейблу))

[diman_21Ru]

sergey3695, мего запутано (

[Stealthmax]

(кепшан относится к лейблу)) »

C какого такого перепуга? TNewStaticText имеет параметр Caption, также как и Label, а вот в Memo, к примеру, будет уже Lines. Там вроде все прекрасно видно в начале скрипта. Можно выбрать любой элемент, на свой вкус. Я взял элементарный.

но так как я посчитал что DescritionText это лейбл »

А вот здесь я оставил метку, XXXText в конце, чтобы было понятно, что это не Label, но все равно сути это не меняет. Так что я малость не понимаю о чем ты в принципе. А если не Caption, то куда ты текст собираешься выводить? Короче, оффтоп полный пошел. Лучше в личку пиши такие моменты, чтобы не плодить тут такие посты с обсуждением параметров элементов из справки Inno.

[sergey3695]

Stealthmax, ну да забей короче...