Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Gnom_aka_Lexander

Ветеран


Сообщения: 978
Благодарности: 564

Профиль | Сайт | Отправить PM | Цитировать


Vamp1re,
Тогда проще (тот код редизайнер выдал
читать дальше »
Код: Выделить весь код
[Files]
Source: "LOGO.bmp"; Flags: dontcopy solidbreak

var
  BitmapImage1: TBitmapImage;

procedure InitializeWizard();
begin
  { BitmapImage1 }
  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Name := 'BitmapImage1';
    Parent := WizardForm;
    Left := ScaleX(0);
    Top := ScaleY(313);
    Width := ScaleX(241);
    Height := ScaleY(48);
    ExtractTemporaryFile('LOGO.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\LOGO.bmp'));
  end;
end;

Если не получится - значит руки кривые - работают оба кода на 100%.

-------
Я люблю помогать. Но не путайте: "Помогите мне" и "Сделайте за меня" - это совершенно разные понятия.


Последний раз редактировалось Gnom_aka_Lexander, 02-03-2011 в 19:56.

Это сообщение посчитали полезным следующие участники:

Отправлено: 19:44, 02-03-2011 | #955