Вопрос How to create a box around the progress bar?

[nizcoz]

How to create a box around the progress bar?

 

[Nemko]

See this my example:

Спойлер: Example

[Setup]
AppName=Test
AppVerName=2.0
DefaultDirName={sd}\Test
DefaultGroupName=Test
OutputDir=.

[Code]
var
  NewGroupBox1: TNewGroupBox;
  TNewProgressbar1: TNewProgressbar;

procedure InitializeWizard;
begin

with WizardForm do begin
  OuterNotebook.Hide; Bevel.Hide;
  NextButton.Width:= 0; BackButton.Width:= 0;
end;

NewGroupBox1:=TNewGroupBox.Create(WizardForm);
with NewGroupBox1 do
begin
  Parent:=WizardForm;
  SetBounds(16, 14, WizardForm.Width-37, 280);
end;

TNewProgressbar1:=TNewProgressBar.Create(NewGroupBox1);
with TNewProgressbar1 do begin
  Parent:=NewGroupBox1;
  SetBounds(20, 50, NewGroupBox1.Width-40, 25);
  Position:=Random(100);
end;

TLabel.Create(NewGroupBox1);
with  TLabel.Create(NewGroupBox1) do begin
   Parent:=NewGroupBox1;
   SetBounds(10, 10, NewGroupBox1.Width-20, 25);
   Font.Size:=10;
   Font.Style:=[fsBold];
   Caption:='Installing:';
end;

TLabel.Create(NewGroupBox1);
with  TLabel.Create(NewGroupBox1) do begin
   Parent:=NewGroupBox1;
   SetBounds(25, 80, NewGroupBox1.Width-50, 25);
   Font.Size:=10;
   Caption:=IntToStr(TNewProgressbar1.Position)+'%';
end;
end;

 

[nizcoz]

@Nemko Thanks!!!