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

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

Пользователь


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

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


Цитата localhost:
Значит сам инсталятор не подогнать под размеры картинки, только обрезать через графические редакторы. »
Саму форму можно подогнать, но ИМХО будет не красиво, и не стоит затраченных усилий.

Хотя, вот пример того, что получится если картику делать 500х500
Код: Выделить весь код
[Setup]
AppName=test
AppVerName=test
DefaultDirName={pf}\test
outputdir=userdocs:.
WizardSmallImageFile=new.bmp

код:

function GetSystemMetrics(nIndex:Integer):Integer;
 external 'GetSystemMetrics@user32.dll stdcall';

procedure InitializeWizard();
begin
  WizardForm.PageNameLabel.Hide;
  WizardForm.PageDescriptionLabel.Hide;
  WizardForm.Height := WizardForm.Height + ScaleY(442);
  WizardForm.OuterNotebook.Height := WizardForm.OuterNotebook.Height + ScaleY(442);
  WizardForm.Bevel1.Top := WizardForm.Bevel1.Top + ScaleY(442);
  WizardForm.InnerNotebook.Top := WizardForm.InnerNotebook.Top + ScaleY(442);
  WizardForm.MainPanel.Height := ScaleY(500);
  WizardForm.Bevel.Top := WizardForm.Bevel.Top + ScaleY(442);
  WizardForm.CancelButton.Top := WizardForm.CancelButton.Top + ScaleY(442);
  WizardForm.NextButton.Top := WizardForm.NextButton.Top + ScaleY(442);
  WizardForm.BackButton.Top := WizardForm.BackButton.Top + ScaleY(442);
  WizardForm.WizardBitmapImage.Height := WizardForm.WizardBitmapImage.Height + ScaleY(442);
  WizardForm.WizardSmallBitmapImage.SetBounds(0, 0, WizardForm.MainPanel.Width, WizardForm.MainPanel.Height - ScaleY(1));
  WizardForm.WizardBitmapImage2.Height := WizardForm.WizardBitmapImage2.Height + ScaleY(442);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  WizardForm.Top := GetSystemMetrics(1) / 2 - WizardForm.Height / 2;
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 21:09, 13-07-2009 | #1130