Как его переделать под картинку?
Скрипты Inno Setup. Помощь и советы [часть 6]
Никак. Переделать можно, когда и вправду знаешь, как сделать. А использование сторонней библиотеки, которая делает за тебя не относится к ситуации
Цитата Mat_y:
это я знаю как сделать
Скрипты Inno Setup. Помощь и советы [часть 6]
держи простейший пример.
читать дальше »
Код: Выделить всё
[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;