Gamattinol
Мимокрокодил
Вместо TNewGroupBox; использую TBevel так как в официальной версии Inno-Setup нету того компонента!
Помогите пожалуйста доделать рамку (TNewGroupBox) как у NSIS
Мне осталось подогнать по размерам и сделать "caption"
Красным цветом выделено то что я пытаюсь сделать
Помогите пожалуйста доделать рамку (TNewGroupBox) как у NSIS
Мне осталось подогнать по размерам и сделать "caption"
Красным цветом выделено то что я пытаюсь сделать
Код:
; 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={{11852012-EB17-4CF3-A873-BB154995AD34}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
[Icons]
Name: "{commonprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
[Code]
var
Bevel2: TBevel;
procedure RedesignWizardForm;
begin
{ Bevel2 }
Bevel2 := TBevel.Create(WizardForm);
with Bevel2 do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(0);
Top := ScaleY(135);
Width := ScaleX(418);
Height := ScaleY(50);
Shape := bsFrame;
end;
with WizardForm.DirBrowseButton do
begin
Top := ScaleY(150);
Width := ScaleX(65);
end;
with WizardForm.DirEdit do
begin
Left := ScaleX(15);
Top := ScaleY(150);
Width := ScaleX(315);
end;
end;
procedure InitializeWizard();
begin
RedesignWizardForm;
end;
Вложения
-
23.3 KB Просмотры: 61
-
23.3 KB Просмотры: 64