[audiofeel]

поменял координаты почти всего в procedure InitializeWizard
добавил стекло ISWIN7, окно черное, только кнопки на стекле, подскажите что добавить или указать правильно
вот пример мой небольшой

Скрытый текст

Код:

procedure InitializeWizard;
begin
  with WizardForm do begin
  ClientWidth := ScaleX(529);
  ClientHeight := ScaleY(350);
  InnerNotebook.Hide;
  OuterNotebook.Hide;
  Bevel.Hide;
  Position := poDesktopCenter;
  WizardBitMapImage.Parent := WizardForm;
  WizardBitMapImage.SetBounds(ScaleX(6), ScaleY(6), ScaleX(518), ScaleY(191));
  NextButton.SetBounds(ScaleX(349), ScaleY(316), ScaleX(80), ScaleY(23));
  BackButton.SetBounds(ScaleX(269), ScaleY(316), ScaleX(80), ScaleY(23));
  CancelButton.SetBounds(ScaleX(438), ScaleY(316), ScaleX(80), ScaleY(23));
  DirBrowseButton.Parent := WizardForm;
  DirBrowseButton.SetBounds(ScaleX(428), ScaleY(244), ScaleX(80), ScaleY(23));
  DirEdit.Parent := WizardForm;
  DirEdit.SetBounds(ScaleX(22), ScaleY(245), ScaleX(390), ScaleY(21));
  DiskSpaceLabel.Parent := WizardForm;
  DiskSpaceLabel.SetBounds(ScaleX(20), ScaleY(279), ScaleX(450), ScaleY(16));
  GroupBrowseButton.Parent := WizardForm;
  GroupBrowseButton.SetBounds(ScaleX(428), ScaleY(244), ScaleX(80), ScaleY(23));
  GroupEdit.Parent := WizardForm;
  GroupEdit.SetBounds(ScaleX(22), ScaleY(245), ScaleX(390), ScaleY(21));
  NoIconsCheck.Parent := WizardForm
  NoIconsCheck.SetBounds(ScaleX(23), ScaleY(276), ScaleX(417), ScaleY(17));
  TasksList.Parent := WizardForm;
  TasksList.SetBounds(ScaleX(19), ScaleY(207), ScaleX(504), ScaleY(90));
  ReadyMemo.Parent := WizardForm;
  ReadyMemo.SetBounds(ScaleX(23), ScaleY(220), ScaleX(484), ScaleY(82));
  FilenameLabel.Parent := WizardForm;
  FilenameLabel.SetBounds(ScaleX(20), ScaleY(225), ScaleX(485), ScaleY(17));
  StatusLabel.Parent := WizardForm;
  StatusLabel.SetBounds(ScaleX(20), ScaleY(211), ScaleX(485), ScaleY(17));
  end;
  CreateControls;
end;