[saurn]

Nightwishh, audiofeel,

Код:

Label1.Caption := WizardForm.ComponentsDiskSpaceLabel.Caption;

Здравствуйте. Не видно надпись снизу. Один квадратик остался. Что изменить надо? »

читать дальше »

Код:

const
Color = clblack;

procedure InitializeWizard();
begin
  WizardForm.Font.Color:=clLime;
  WizardForm.Color:=Color;
  WizardForm.WelcomePage.Color:=Color;
  WizardForm.InnerPage.Color:=Color;
  WizardForm.FinishedPage.Color:=Color;
  WizardForm.LicensePage.Color:=Color;
  WizardForm.PasswordPage.Color:=Color;
  WizardForm.InfoBeforePage.Color:=Color;
  WizardForm.UserInfoPage.Color:=Color;
  WizardForm.SelectDirPage.Color:=Color;
  WizardForm.SelectComponentsPage.Color:=Color;
  WizardForm.SelectProgramGroupPage.Color:=Color;
  WizardForm.SelectTasksPage.Color:=Color;
  WizardForm.ReadyPage.Color:=Color;
  WizardForm.PreparingPage.Color:=Color;
  WizardForm.InstallingPage.Color:=clblack;
  WizardForm.InfoAfterPage.Color:=Color;
  WizardForm.DirEdit.Color:=Color;
  WizardForm.DiskSpaceLabel.Color:=Color;
  WizardForm.DirEdit.Color:=Color;
  WizardForm.GroupEdit.Color:=Color;
  WizardForm.PasswordLabel.Color:=Color;
  WizardForm.PasswordEdit.Color:=Color;
  WizardForm.PasswordEditLabel.Color:=Color;
  WizardForm.ReadyMemo.Color:=Color;
  WizardForm.TypesCombo.Color:=Color;
  WizardForm.WelcomeLabel1.Color:=Color;
  WizardForm.WelcomeLabel1.Font.Color:=clLime;
  WizardForm.InfoBeforeClickLabel.Color:=Color;
  WizardForm.MainPanel.Color:=Color;
  WizardForm.PageNameLabel.Color:=Color;
  WizardForm.PageDescriptionLabel.Color:=Color;
  WizardForm.ReadyLabel.Color:=Color;
  WizardForm.FinishedLabel.Color:=Color;
  WizardForm.YesRadio.Color:=Color;
  WizardForm.NoRadio.Color:=Color;
  WizardForm.WelcomeLabel2.Color:=Color;
  WizardForm.LicenseLabel1.Color:=Color;
  WizardForm.InfoAfterClickLabel.Color:=Color;
  WizardForm.ComponentsList.Color:=Color;
  WizardForm.ComponentsDiskSpaceLabel.Color:=Color;
  WizardForm.BeveledLabel.Color:=Color;
  WizardForm.StatusLabel.Color:=Color;
  WizardForm.FilenameLabel.Color:=Color;
  WizardForm.SelectDirLabel.Color:=Color;
  WizardForm.SelectStartMenuFolderLabel.Color:=Color;
  WizardForm.SelectComponentsLabel.Color:=Color;
  WizardForm.SelectTasksLabel.Color:=Color;
  WizardForm.LicenseAcceptedRadio.Color:=Color;
  WizardForm.LicenseNotAcceptedRadio.Color:=Color;
  WizardForm.UserInfoNameLabel.Color:=Color;
  WizardForm.UserInfoNameEdit.Color:=Color;
  WizardForm.UserInfoOrgLabel.Color:=Color;
  WizardForm.UserInfoOrgEdit.Color:=Color;
  WizardForm.PreparingLabel.Color:=Color;
  WizardForm.FinishedHeadingLabel.Color:=Color;
  WizardForm.FinishedHeadingLabel.Font.Color:=clLime;
  WizardForm.UserInfoSerialLabel.Color:=Color;
  WizardForm.UserInfoSerialEdit.Color:=Color;
  WizardForm.TasksList.Color:=Color;
  WizardForm.RunList.Color:=Color;
  WizardForm.SelectDirBrowseLabel.Color:=Color;
  WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;
  WizardForm.PageNameLabel.Font.Color:=clLime;
  WizardForm.Bevel.Hide;
  WizardForm.BeveledLabel.Hide;
  WizardForm.Bevel1.Hide;

  WizardForm.NoIconsCheck.Width := ScaleY(16)

  with TLabel.Create(nil) do
  begin
    Parent:= WizardForm.SelectProgramGroupPage;
    SetBounds(WizardForm.NoIconsCheck.Left + 18, WizardForm.NoIconsCheck.Top + 2, 0, 0)
    AutoSize:= True;
    Transparent := True;
    Font.Color := clLime;
    Caption := SetupMessage(msgNoProgramGroupCheck2);
  end;
end;