Установщик похожий на NSIS (TNewGroupBox)

Gamattinol

Мимокрокодил
Вместо TNewGroupBox; использую TBevel так как в официальной версии Inno-Setup нету того компонента!

Помогите пожалуйста доделать рамку (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;
 

Вложения

Сверху