[Gnom_aka_Lexander]

Как его переделать под картинку? »

Никак. Переделать можно, когда и вправду знаешь, как сделать. А использование сторонней библиотеки, которая делает за тебя не относится к ситуации

это я знаю как сделать »

держи простейший пример.

читать дальше »

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Components]
Name: a; Description: 1; Flags: exclusive disablenouninstallwarning; 
Name: b; Description: 2; Flags: exclusive disablenouninstallwarning; 
Name: c; Description: 3; Flags: exclusive disablenouninstallwarning; 
Name: d; Description: 5; Flags: exclusive disablenouninstallwarning; 

[Files]
Source: "compiler:WizModernImage.bmp"; Flags: dontcopy solidbreak
Source: "compiler:WizModernSmallImage.bmp"; Flags: dontcopy solidbreak
Source: "compiler:WizModernImage-IS.bmp"; Flags: dontcopy solidbreak
Source: "compiler:WizModernSmallImage-IS.bmp"; Flags: dontcopy solidbreak

[*Code]
var
  InfoBMP: TBitmapImage;
  I_BMP : Array [0..3] of TBitmap;

function InitializeSetup(): Boolean;
begin
  ExtractTemporaryFile('WizModernImage.bmp');
  ExtractTemporaryFile('WizModernSmallImage.bmp');
  ExtractTemporaryFile('WizModernImage-IS.bmp');
  ExtractTemporaryFile('WizModernSmallImage-IS.bmp');
  Result := True;
end;

procedure ComponentsListItemMouseMove(Sender: TObject; X: Integer; Y: Integer; Index: Integer; Area: TItemArea);
begin
  InfoBMP.Bitmap.FreeImage;
  if ((Index >-1) and (Index<4))then InfoBMP.Bitmap := I_BMP[Index];
end;

procedure InitializeWizard();
var
  i : Integer;
begin
  with WizardForm do
  begin
    TypesCombo.Width := ScaleX(217);
    with ComponentsList do
    begin
      Width := ScaleX(217);
      OnItemMouseMove := @ComponentsListItemMouseMove;
    end;
  end;

  InfoBMP := TBitmapImage.Create(WizardForm);
  with InfoBMP do
  begin
    Parent := WizardForm.SelectComponentsPage;
    SetBounds(ScaleX(224), ScaleY(50), ScaleX(193), ScaleY(155));
    Stretch := true;
  end;
  for i := 0 to 3 do
  begin
    I_BMP[i] := TBitmap.Create;
    with I_BMP[i] do
    begin
      case i of
        0 : LoadFromFile(ExpandConstant('{tmp}\WizModernImage.bmp'));
        1 : LoadFromFile(ExpandConstant('{tmp}\WizModernSmallImage.bmp'));
        2 : LoadFromFile(ExpandConstant('{tmp}\WizModernImage-IS.bmp'));
        3 : LoadFromFile(ExpandConstant('{tmp}\WizModernSmallImage-IS.bmp'));
      end;
    end;
  end;
end;