[Sotonisto]

Dodakaedr, большое спасибо. Всё прекрасно работает.

[Dodakaedr]

Мне еще нужно когда не наводишь на компонент то останется главная картинка »

Скрытый текст

Код:

[Setup]
AppName=Моя программа
AppVersion=1.5
DefaultDirName={pf}\Моя программа

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

[CustomMessages]
RU.CompName1=Компонент 1
RU.CompName2=Компонент 2
RU.ComponentsInfo=Наведите курсор мыши на компонент, чтобы прочитать его описание.
RU.ComponentsImgInfo=Наведите курсор мыши на компонент, чтобы посмотреть его превью.
RU.CompDesc1=Описание первого компонента
RU.CompDesc2=Описание второго компонента

[Files]
Source: "compiler:WizModernImage.bmp"; DestName: "CompDescImg1.bmp"; Flags: dontcopy
Source: "compiler:WizModernImage-IS.bmp"; DestName: "CompDescImg2.bmp"; Flags: dontcopy
Source: "compiler:WizModernImage-IS.bmp"; DestName: "MainPic.bmp"; Flags: dontcopy

[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: comp1; Description: "{cm:CompName1}"; Types: full
Name: comp2; Description: "{cm:CompName2}"; Types: full

[Code]
type
  TComponentDesc = record
    ImageName: String;
    Index: Integer;
  end;

var
  CompDescs: array of TComponentDesc;
  CompDescImgPanel: TPanel;
  CompIndex, LastIndex: Integer;
  CompDescImg: TBitmapImage;

procedure ShowCompDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea);
var
  i: Integer;
begin
  if Index = LastIndex then Exit;
  CompIndex := -1;
  for i := 0 to GetArrayLength(CompDescs) -1 do
  begin
    if (CompDescs[i].Index = Index) then
    begin
      CompIndex := i;
      Break;
    end;
  end;
  if (CompIndex >= 0) and (Area = iaItem) then
  begin
    if not FileExists(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName) then
      ExtractTemporaryFile(CompDescs[CompIndex].ImageName);
    CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName);
    end;
  LastIndex := Index;
end;

procedure CompListMouseLeave(Sender: TObject);
begin
  LastIndex := -1;
  ExtractTemporaryFile('MainPic.bmp');
 CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\MainPic.bmp'));
end;

procedure AddCompDescription(AIndex: Integer; AImageName: String);
var
  i: Integer;
begin
  i := GetArrayLength(CompDescs);
  SetArrayLength(CompDescs, i + 1);
  CompDescs[i].ImageName := AImageName;
  CompDescs[i].Index := AIndex - 1
end;

procedure InitializeWizard();
begin
  WizardForm.SelectComponentsLabel.Hide;
  WizardForm.TypesCombo.Hide;
  WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(0), ScaleX(184), ScaleY(45));
  WizardForm.ComponentsList.OnItemMouseMove:= @ShowCompDescription;
  WizardForm.ComponentsList.OnMouseLeave := @CompListMouseLeave;

  CompDescImgPanel := TPanel.Create(WizardForm);
  with CompDescImgPanel do
  begin
    Parent := WizardForm.SelectComponentsPage;
    SetBounds(ScaleX(192), ScaleY(0), ScaleX(225), ScaleY(120));
    BevelInner := bvLowered;
  end;

  CompDescImg := TBitmapImage.Create(WizardForm);
  with CompDescImg do
  begin
    Parent := CompDescImgPanel;
    SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));
    Stretch := True;
    ExtractTemporaryFile('MainPic.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\MainPic.bmp'));
  end;

  AddCompDescription(1, 'CompDescImg1.bmp');
  AddCompDescription(2, 'CompDescImg2.bmp');
end;

[ShadeUa]

его сделать, помогите пожайлуста » прочтите еще раз полностью обсуждение вашего вопроса, в основном это помогает вернуть свое понимание)) ну а если все же нет то вот вам пример »

Спасибо ваш пример помог , но у меня возник такой вопрос, я с Messages убрал натпись на кнопке , но она осталась , я подумал что ето может сама картинка с натписью , но нет , неподскажете что ето может быть? https://yadi.sk/i/CK0NoXnDfBH6E

[Dodakaedr]

неподскажете что ето может быть? »

Это кнопка! Если хотите убрать то нужно её скрыть

Код:

[Setup]
AppName=test
AppVersion=1.0
DefaultDirName={pf}\test

[code]
procedure CurPageChanged(CurPageID: Integer);
begin
  WizardForm.BackButton.Hide;
end;

секция Messages служить для изменения надписей, если она отсутствует то используется текст по умолчанию с языкового файла

Код:

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

[ekspoint]

»

спасибо

[Sotonisto]

Доброго времени суток.
Подскажите, как реализовать отображение жирного текста одновременно с обычным. Т.е.:

Код:

Caption:= ExpandConstant('Случайная надпись в скрипте');

отображается как "Случайная надпись в скрипте", мне же необходимо "Случайная надпись в скрипте".

[kotyarko@fb]

Подскажите, как реализовать отображение жирного текста одновременно с обычным. »

http://krinkels.org/threads/redrawtext.818/

[ShadeUa]

Здраствуйте , не подскажите как сделать абзац в строке в Inno

[Dodakaedr]

Здраствуйте , не подскажите как сделать абзац в строке в Inno »

Скрытый текст

Код:

[Setup]
AppName=test
AppVersion=1.0
DefaultDirName={pf}\test

[Code]
var
  Label1: TLabel;

procedure RedesignWizardForm;
begin
  { Label1 }
  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Parent := WizardForm.WelcomePage;
    Caption := 'Label1' + #13#10 +
         '' + #13#10 +
         'абзац....';
    Left := ScaleX(192);
    Top := ScaleY(216);
    Width := ScaleX(45);
    Height := ScaleY(39);
  end;

  with WizardForm.WelcomeLabel2 do
  begin
    Height := ScaleY(103);
  end;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

[ShadeUa]

од: Выделить весь код [Setup] AppName=test AppVersion=1.0 DefaultDirName={pf}\test [code] var Label1: TLabel; procedure RedesignWizardForm; begin { Label1 } Label1 := TLabel.Create(WizardForm); with Label1 do begin Parent := WizardForm.WelcomePage; Caption := 'Label1' + #13#10 + '' + #13#10 + 'абзац....'; Left := ScaleX(192); Top := ScaleY(216); Width := ScaleX(45); Height := ScaleY(39); end; with WizardForm.WelcomeLabel2 do begin Height := ScaleY(103); end; end; procedure InitializeWizard(); begin RedesignWizardForm; end; »

спибо большое , вы очередной раз меня выручили