[Ivan_009]

Возможно ли вот сюда загнать картинку которая в фоне самого инсталла...

[Gnom_aka_Lexander]

Ivan_009, возможно. в расширенной версии есть для этого несколько функций. в папке с инно есть папка примеров, называется Examples, тебе нужен пример с названием Example_NewCheckListBox, там несколько разных фишек, тебе нужна только функция LoadBGBmpFromFile. Только вместо кастомного CheckListBox вписываешь свой - компонентлист или тасклист - чего там хочешь картинкой занавесить.

[Nordek]

Ivan_009,

Код:

[Components]
Name: a; Description: A

[Files]
Source: "BGImage.bmp"; Flags: dontcopy solidbreak

[Code]
var
  btnImgFile, BGImgFile: String;

procedure InitializeWizard();
begin
  ExtractTemporaryFile('BGImage.bmp');
  BGImgFile := ExpandConstant('{tmp}\BGImage.bmp');
  WizardForm.ComponentsList.LoadBGBmpFromFile(BGImgFile, WizardForm.ComponentsList.Left, WizardForm.ComponentsList.Top);
end;

Дальше Gnom_aka_Lexander если что поправит.

[nik1967]

Парни, хорош сраться! Пардонте за оффтоп.

[Nordek]

nik1967, Да всё нормально.
А это

Дальше Gnom_aka_Lexander если что поправит. »

из вежливости написал. Может я где ошибку допустил.

[Ivan_009]

Nordek, Да и кстати как убрать замыленность текста потом...

[Gnom_aka_Lexander]

Ivan_009,

Код:

WizardForm.ComponentsList.Font.Name := 'MS Sans Serif';

ты будешь смеяться, но так. Ну или отключить сглаживание ClearTipe для шрифта компонент-листа, чтоб не менять шрифт:

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

Код:

type
  HFONT = LongWord;

function CreateFont(nHeight, nWidth, nEscapement, nOrientaion, fnWeight: Integer;
  fdwItalic, fdwUnderline, fdwStrikeOut, fdwCharSet, fdwOutputPrecision,
  fdwClipPrecision, fdwQuality, fdwPitchAndFamily: DWORD; lpszFace: PAnsiChar): HFONT;  external 'CreateFontA@gdi32.dll stdcall delayload';

procedure NewFont(Font : TFont);
begin
  Font.Handle := CreateFont(Font.Height, 0, 0, 0, 400, 0, 0, 0,0, 0, 0,0, 3, Font.Name); // предпоследний параметр поиграться от 0 до 4-х, не помню, чего там нужно ставить
end;

procedure InitializeWizard();
begin
  ExtractTemporaryFile('BGImage.bmp');
  BGImgFile := ExpandConstant('{tmp}\BGImage.bmp');
  with WizardForm.ComponentsList do
  begin
    LoadBGBmpFromFile(BGImgFile, WizardForm.ComponentsList.Left, WizardForm.ComponentsList.Top);
    NewFont(font);
  end;
end;

[Ivan_009]

Gnom_aka_Lexander, А если я хочу картинку не на ComponentsList а на всю форму чтобы было типа так.
То мне надо ее на BitmapImage ложить или на WizardForm...

[Gnom_aka_Lexander]

Ivan_009, не так. тебе нужно положить BitmapImage на WizardForm и все, что лежит между WizardForm и ComponentsList
Я делал так вставку картинки на все страницы, мож кому пригодится.

[Ivan_009]

Gnom_aka_Lexander, Так:

Код:

BGBitmapImage := TBitmapImage.Create(WizardForm);
BGBitmapImage.Parent := WizardForm;
BGBitmapImage.Align := alClient;
BGBitmapImage.SendToBack;
BGBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\BGImage.bmp'))