Вынести ProgressBar за пределы страницы

MISHAWIN · 8 Авг 2023

Добрый день, такой вопрос, хочу вынести ProgressBar за пределы страницы, вниз где кнопки далее и т.д, поэтому при помощи WizardForm Designer выставляю у ProgressGauge его Parent на WizardForm, всё вроде работает, но выдает ошибку, жалуется на Parent := WizardForm.Surface;, я обычно убираю .Surface и всё начинает работать, но когда в WizardForm designer что-то меняю, то опять прописывается Parent := WizardForm.Surface;, кто знает в чем проблема и как её решить?

Код:

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{96FCB12F-CFFF-4876-BB9E-9635D0B165C7}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "D:\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030103C02000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED000000F110544E65774E6F7465626F6F6B506167650E496E7374616C6C696E67506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED0000F10F544E657750726F67726573734261720D50726F677265737347617567650D4F7267506172656E744E616D65060E496E7374616C6C696E67506167650D4E6577506172656E744E616D65060A57697A617264466F726D00000000000000

[Code]
{ RedesignWizardFormBegin } // Don't remove this line!
// Don't modify this section. It is generated automatically.
procedure RedesignWizardForm;
begin
  with WizardForm.ProgressGauge do
  begin
    Parent := WizardForm.Surface;
  end;

{ ReservationBegin }
  // This part is for you. Add your specialized code here.

{ ReservationEnd }
end;
// Don't modify this section. It is generated automatically.
{ RedesignWizardFormEnd } // Don't remove this line!

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

Andreo Fadio · 8 Авг 2023

MISHAWIN написал(а):
кто знает в чем проблема и как её решить?

в WizardForm designer. Не пользуйся им.

Andreo Fadio · 8 Авг 2023

MISHAWIN написал(а):
за пределы страницы, вниз где кнопки далее и т.д,

когда туда выносишь прогресс бар должен указать привязку к нужной странице или действию, иначе будет показывать на всех страницах что есть.

MISHAWIN · 8 Авг 2023

Andreo Fadio написал(а):
в WizardForm designer. Не пользуйся им.

Я понимаю, но хотелось бы что-то визуальное для размещения кнопочек и т.д. Получается это баг этой надстройки и его не поправить?

Crachlow · 8 Авг 2023

MISHAWIN написал(а):

Добрый день, такой вопрос, хочу вынести ProgressBar за пределы страницы, вниз где кнопки далее и т.д, поэтому при помощи WizardForm Designer выставляю у ProgressGauge его Parent на WizardForm, всё вроде работает, но выдает ошибку, жалуется на Parent := WizardForm.Surface;, я обычно убираю .Surface и всё начинает работать, но когда в WizardForm designer что-то меняю, то опять прописывается Parent := WizardForm.Surface;, кто знает в чем проблема и как её решить?

Код:

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{96FCB12F-CFFF-4876-BB9E-9635D0B165C7}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "compiler:\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030103C02000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED000000F110544E65774E6F7465626F6F6B506167650E496E7374616C6C696E67506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED0000F10F544E657750726F67726573734261720D50726F677265737347617567650D4F7267506172656E744E616D65060E496E7374616C6C696E67506167650D4E6577506172656E744E616D65060A57697A617264466F726D00000000000000

[_Code]
{ RedesignWizardFormBegin } // Don't remove this line!
// Don't modify this section. It is generated automatically.
procedure RedesignWizardForm;
begin
  with WizardForm.ProgressGauge do
  begin
    Parent := WizardForm.Surface;
  end;

{ ReservationBegin }
  // This part is for you. Add your specialized code here.

{ ReservationEnd }
end;
// Don't modify this section. It is generated automatically.
{ RedesignWizardFormEnd } // Don't remove this line!

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{96FCB12F-CFFF-4876-BB9E-9635D0B165C7}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "default"; MessagesFile: "compiler

efault.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "D:\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030103C02000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED000000F110544E65774E6F7465626F6F6B506167650E496E7374616C6C696E67506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED0000F10F544E657750726F67726573734261720D50726F677265737347617567650D4F7267506172656E744E616D65060E496E7374616C6C696E67506167650D4E6577506172656E744E616D65060A57697A617264466F726D00000000000000

[_Code]
{ RedesignWizardFormBegin } // Don't remove this line!
// Don't modify this section. It is generated automatically.
procedure RedesignWizardForm;
begin
with WizardForm.ProgressGauge do
begin
WizardForm.ProgressGauge.Parent := WizardForm;
SetBounds(ScaleX(20), ScaleY(330), ScaleX(215), ScaleY(15));
end;

{ ReservationBegin }
// This part is for you. Add your specialized code here.

{ ReservationEnd }
end;
// Don't modify this section. It is generated automatically.
{ RedesignWizardFormEnd } // Don't remove this line!

procedure InitializeWizard();
begin
RedesignWizardForm;
WizardForm.ProgressGauge.Hide;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if (CurPageID = wpInstalling) then
WizardForm.ProgressGauge.Show;
if (CurPageID = wpFinished) then
WizardForm.ProgressGauge.Hide;
end;

MISHAWIN · 8 Авг 2023

@Crachlow,Спасибо за код, но проблема там в другом была, именно в том, что WizardForm Designer всегда при изменениях прописывает WizardForm.Surface;, я думал может это не баг и возможно как-то решить.

Crachlow · 8 Авг 2023

WizardForm Designer

это что?

MISHAWIN · 8 Авг 2023

Crachlow написал(а):
это что?

Вроде от китайцев модифицированная версия с визуальным редактором.

MISHAWIN · 8 Авг 2023

В общем решил не переносить прогресс бар, а перенес кнопки далее и т.д. Забавно, что как только я перенес их InnerPage, то стала появляется WeclomePage, хотя стоит DisableWelcomePage=yes, в итоге создал просто кнопку и в OnClick записал.

procedure OnClickDaleeButton(Sender : TObject);
begin
WizardForm.NextButton.OnClick(nil); ///нажимает на кнопку далее, в момент показа окна инсталла.
end;

Crachlow · 8 Авг 2023

MISHAWIN написал(а):
Вроде от китайцев модифицированная версия с визуальным редактором.

Возьми уж лучше ISStudio

MISHAWIN · 9 Авг 2023

Crachlow написал(а):
Возьми уж лучше ISStudio

Лежит уже, но там визуального создания нету.

Вынести ProgressBar за пределы страницы

MISHAWIN

Новичок

Andreo Fadio

Старожил

Andreo Fadio

Старожил

MISHAWIN

Новичок

Crachlow

Старожил

MISHAWIN

Новичок

Crachlow

Старожил

MISHAWIN

Новичок

MISHAWIN

Новичок

Crachlow

Старожил

MISHAWIN

Новичок