[nik1967]

Vista-w,
На сколько я знаю (может и не прав), дефолтный SelectDirPage: TNewNotebookPage не изменить, не передвинуть нельзя. Только если скрыть, и нарисовать новый.

[Vista-w]

my-94,
Вот бери http://rghost.ru/4473090

nik1967,
Вот это попа(((

[my-94]

Vista-w


Спасибо

[Vista-w]

my-94,
н.з)

[serg aka lain]

решить проблему? »

ну, так можно передвинуть

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=userdocs:InnoSetupTest.

[code]
procedure InitializeWizard();
begin
with WizardForm do
begin
ClientWidth := ClientWidth + ScaleX(100);
OuterNotebook.Width := ClientWidth;
InnerNotebook.Left := ClientWidth div 2 - InnerNotebook.Width div 2;
end;
end;

[Gnom_aka_Lexander]

nik1967,
Ты прав, но есть выход
Vista-w,

Код:

 procedure InitializeWizard();
begin
 with WizardForm.InnerPage do
  begin
    Enabled := False;
  end;
end;

Проверено, помогает
serg aka lain, Там как раз этим InnerPage перекрывает, а нотебуки уже увеличины до нужных размеров.

[Gnom_aka_Lexander]

Enabled := False; »

Оказалось слишком круто достаточно

Код:

Visible := False;

На полном отключении перестают работать обзоры и чекбоксы

[nik1967]

Vista-w,
Руководствуясь данными serg aka lain, получилось что то типа

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

Код:

[Setup]
AppName=Name
AppVerName=Name
DefaultDirName={pf}\Name

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl
 
[_Code]
procedure InitializeWizard();
var
  L: Integer;
begin
with WizardForm do begin
    L:=ScaleX(50); // На сколько надо увеличить длину инсталла
    ClientWidth := ClientWidth + L;
    OuterNotebook.Width := ClientWidth;
    InnerNotebook.Left := ClientWidth div 2 - InnerNotebook.Width div 2;
    Bevel.Width:= ClientWidth;
    Bevel1.Width:= ClientWidth;
    MainPanel.Width:= ClientWidth;
with WelcomeLabel1 do
    Left:= WelcomeLabel1.Left + L;
with WelcomeLabel2 do
    Left:= WelcomeLabel2.Left + L;
with FinishedLabel do
    Left:= FinishedLabel.Left + L;
with FinishedHeadingLabel do
    Left:= FinishedHeadingLabel.Left + L;
with WizardSmallBitmapImage do
    Left:= WizardSmallBitmapImage.Left + L;
  end;
end;

procedure InitializeUninstallProgressForm;
var
  L: Integer;
begin
with UninstallProgressForm do begin
    L:=ScaleX(50); // На сколько надо увеличить длину инсталла
    ClientWidth := ClientWidth + L;
    OuterNotebook.Width := ClientWidth;
    InnerNotebook.Left := ClientWidth div 2 - InnerNotebook.Width div 2;
    Bevel.Width:= ClientWidth;
    Bevel1.Width:= ClientWidth;
    MainPanel.Width:= ClientWidth;
with WizardSmallBitmapImage do
    Left:= WizardSmallBitmapImage.Left + L;
  end;
end;

[Gnom_aka_Lexander]

nik1967, С этим разобрались код скрытия иннерпейджа отлично помог, сейчас другая заморочка, может поможеш, а то у меня мозг кипит? Сейчас сам объяснит, чего у нас не получается.
Вот, может пригодится, увеличение окна инсталлятора, без дополнительных модулей и перерисовки компонентов страницы, заодно объединил пару страниц

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
;// отключение ненужных страниц
DisableProgramGroupPage=true
[_Code]
procedure InitializeWizard();
begin
  with WizardForm do
  begin
    AutoScroll := False;
    ClientHeight := ScaleY(380);
    ClientWidth := ScaleX(600);
  end;

  with WizardForm.Bevel do
  begin
    Left := ScaleX(1);
    Top := ScaleY(334);
    Width := ScaleX(600);
  end;

  with WizardForm.CancelButton do
  begin
    Left := ScaleX(508);
    Top := ScaleY(343);
  end;

  with WizardForm.NextButton do
  begin
    Left := ScaleX(423);
    Top := ScaleY(343);
  end;

  with WizardForm.BackButton do
  begin
    Left := ScaleX(348);
    Top := ScaleY(343);
  end;

  with WizardForm.OuterNotebook do
  begin
    Width := ScaleX(601);
    Height := ScaleY(336);
  end;

  with WizardForm.WizardBitmapImage do
  begin
    Width := ScaleX(200);
    Height := ScaleY(340);
  end;

  with WizardForm.WelcomeLabel2 do
  begin
    Left := ScaleX(256);
  end;

  with WizardForm.WelcomeLabel1 do
  begin
    Left := ScaleX(256);
  end;

  with WizardForm.Bevel1 do
  begin
    Width := ScaleX(603);
    Height := ScaleY(0);
  end;

  with WizardForm.InnerNotebook do
  begin
    Top := ScaleY(70);
    Width := ScaleX(520);
    Height := ScaleY(260);
  end;

  with WizardForm.LicenseNotAcceptedRadio do
  begin
    Left := ScaleX(16);
    Top := ScaleY(240);
  end;

  with WizardForm.LicenseAcceptedRadio do
  begin
    Left := ScaleX(16);
    Top := ScaleY(220);
  end;

  with WizardForm.LicenseMemo do
  begin
    Width := ScaleX(521);
    Height := ScaleY(180);
  end;

  with WizardForm.PasswordEdit do
  begin
    Left := ScaleX(56);
  end;

  with WizardForm.PasswordEditLabel do
  begin
    Left := ScaleX(56);
  end;

  with WizardForm.PasswordLabel do
  begin
    Left := ScaleX(56);
  end;

  with WizardForm.InfoBeforeMemo do
  begin
    Width := ScaleX(521);
    Height := ScaleY(221);
  end;

  with WizardForm.UserInfoSerialEdit do
  begin
    Left := ScaleX(56);
    Top := ScaleY(224);
    Parent := WizardForm.PasswordPage;
  end;

  with WizardForm.UserInfoSerialLabel do
  begin
    Parent := WizardForm.PasswordPage;
    Left := ScaleX(56);
    Top := ScaleY(208);
  end;

  with WizardForm.UserInfoOrgEdit do
  begin
    Left := ScaleX(56);
    Top := ScaleY(172);
    Parent := WizardForm.PasswordPage;
  end;

  with WizardForm.UserInfoOrgLabel do
  begin
    Parent := WizardForm.PasswordPage;
    Left := ScaleX(56);
    Top := ScaleY(156);
  end;

  with WizardForm.UserInfoNameEdit do
  begin
    Left := ScaleX(56);
    Top := ScaleY(120);
    Parent := WizardForm.PasswordPage;
  end;

  with WizardForm.UserInfoNameLabel do
  begin
    Parent := WizardForm.PasswordPage;
    Left := ScaleX(56);
    Top := ScaleY(104);
  end;

  WizardForm.UserInfoSerialEdit.TabOrder := 0;
  WizardForm.UserInfoSerialLabel.TabOrder := 1;
  WizardForm.UserInfoOrgEdit.TabOrder := 2;
  WizardForm.UserInfoOrgLabel.TabOrder := 3;
  WizardForm.UserInfoNameEdit.TabOrder := 4;
  WizardForm.UserInfoNameLabel.TabOrder := 5;

  with WizardForm.SelectDirBitmapImage do
  begin
    Left := ScaleX(48);
  end;

  with WizardForm.DiskSpaceLabel do
  begin
    Left := ScaleX(48);
    Top := ScaleY(112);
  end;

  with WizardForm.DirBrowseButton do
  begin
    Left := ScaleX(390);
    Top := ScaleY(76);
  end;

  with WizardForm.DirEdit do
  begin
    Left := ScaleX(48);
    Top := ScaleY(76);
  end;

  with WizardForm.SelectDirBrowseLabel do
  begin
    Left := ScaleX(48);
  end;

  with WizardForm.SelectDirLabel do
  begin
    Left := ScaleX(92);
  end;

  with WizardForm.ComponentsDiskSpaceLabel do
  begin
    Left := ScaleX(8);
    Top := ScaleY(232);
  end;

  with WizardForm.ComponentsList do
  begin
    Width := ScaleX(521);
    Height := ScaleY(168);
  end;

  with WizardForm.TypesCombo do
  begin
    Left := ScaleX(48);
  end;

  with WizardForm.SelectComponentsLabel do
  begin
    Left := ScaleX(48);
  end;

  with WizardForm.SelectGroupBitmapImage do
  begin
    Left := ScaleX(48);
    Top := ScaleY(135);
    Parent := WizardForm.SelectDirPage;
  end;

  with WizardForm.NoIconsCheck do
  begin
    Left := ScaleX(48);
    Top := ScaleY(231);
    Parent := WizardForm.SelectDirPage;
  end;

  with WizardForm.GroupBrowseButton do
  begin
    Left := ScaleX(390);
    Top := ScaleY(204);
    Parent := WizardForm.SelectDirPage;
  end;

  with WizardForm.GroupEdit do
  begin
    Left := ScaleX(48);
    Top := ScaleY(204);
    Parent := WizardForm.SelectDirPage;
  end;

  with WizardForm.SelectStartMenuFolderBrowseLabel do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(48);
    Top := ScaleY(180);
  end;

  with WizardForm.SelectStartMenuFolderLabel do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(92);
    Top := ScaleY(145);
  end;

  WizardForm.NoIconsCheck.TabOrder := 0;
  WizardForm.GroupBrowseButton.TabOrder := 1;
  WizardForm.GroupEdit.TabOrder := 2;
  WizardForm.SelectStartMenuFolderBrowseLabel.TabOrder := 3;
  WizardForm.SelectStartMenuFolderLabel.TabOrder := 4;

  with WizardForm.TasksList do
  begin
    Left := ScaleX(64);
    Height := ScaleY(224);
  end;

  with WizardForm.SelectTasksLabel do
  begin
    Left := ScaleX(56);
  end;

  with WizardForm.ReadyMemo do
  begin
    Width := ScaleX(521);
    Height := ScaleY(237);
  end;

  with WizardForm.ReadyLabel do
  begin
    Left := ScaleX(40);
  end;

  with WizardForm.PreparingErrorBitmapImage do
  begin
    Left := ScaleX(48);
    Top := ScaleY(56);
  end;

  with WizardForm.PreparingLabel do
  begin
    Left := ScaleX(72);
    Top := ScaleY(56);
  end;

  with WizardForm.PreparingYesRadio do
  begin
    Left := ScaleX(72);
    Top := ScaleY(161);
  end;

  with WizardForm.PreparingNoRadio do
  begin
    Left := ScaleX(72);
    Top := ScaleY(183);
  end;

  with WizardForm.FilenameLabel do
  begin
    Top := ScaleY(136);
  end;

  with WizardForm.StatusLabel do
  begin
    Top := ScaleY(120);
  end;

  with WizardForm.ProgressGauge do
  begin
    Top := ScaleY(162);
    Width := ScaleX(521);
    Height := ScaleY(29);
  end;

  with WizardForm.InfoAfterMemo do
  begin
    Width := ScaleX(521);
    Height := ScaleY(237);
  end;

  with WizardForm.MainPanel do
  begin
    Width := ScaleX(603);
  end;

  with WizardForm.WizardSmallBitmapImage do
  begin
    Left := ScaleX(544);
    Top := ScaleY(0);
  end;

  with WizardForm.WizardBitmapImage2 do
  begin
    Width := ScaleX(200);
    Height := ScaleY(340);
  end;

  with WizardForm.RunList do
  begin
    Left := ScaleX(264);
  end;

  with WizardForm.NoRadio do
  begin
    Left := ScaleX(264);
    Top := ScaleY(180);
  end;

  with WizardForm.YesRadio do
  begin
    Left := ScaleX(264);
    Top := ScaleY(158);
  end;

  with WizardForm.FinishedLabel do
  begin
    Left := ScaleX(264);
    Top := ScaleY(79);
  end;

  with WizardForm.FinishedHeadingLabel do
  begin
    Left := ScaleX(264);
    Top := ScaleY(24);
  end;

  with WizardForm.BeveledLabel do
  begin
    Top := ScaleY(330);
  end;
end;

Код длинноват, потому что под новые размеры все подгонял - передвигал, может есть способ его оптимизировать
Да, и еще, на расширенной версии 541 иннерпейдж ни скрывать, ни отключать не требуется, она не мешает - видимо автоматом раздвигается

[my-94]

Кто не то может помочь хочу чтобы перед установкой высвечивалась картинка

к этому скрипту надо привязать

вот это

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

[code]
procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';

procedure InitializeWizard();
begin

ExtractTemporaryFile('splash.png');
ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\splash.png',1000,3000,1000,0,255,False, $FFFFFF,10);
end;

[Files]


Source: isgsg.dll; DestDir: {tmp}; Flags: dontcopy nocompression
Source: splash.png; DestDir: {tmp}; Flags: dontcopy nocompression

с помощью библиотеки isgsg.dll
и картинки splash.png которая будет отображаться
всё файлы в архиве