[Gnom_aka_Lexander]

GRiD555x, А ты сделай проще, чтоб голову не ломать:

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

Код:

const
 Color = clblack;      // цвет окна инстала

procedure InitializeWizard();
begin
 WizardForm.InnerPage.Visible:=False;
 WizardForm.WelcomeLabel1.Visible:=False;
 WizardForm.WelcomeLabel2.Visible:=False;
 WizardForm.WizardSmallBitmapImage.left:=0;
 WizardForm.WizardSmallBitmapImage.Width:=WizardForm.Width;
 WizardForm.PageNameLabel.Visible:=False;
 WizardForm.PageDescriptionLabel.Visible:=False;
 WizardForm.WizardBitmapImage.Width:=WizardForm.ClientWidth;
 WizardForm.WizardBitmapImage.Height:=WizardForm.ClientHeight;
 WizardForm.WizardBitmapImage2.Width:=WizardForm.ClientWidth;
 WizardForm.OuterNotebook.Height:=WizardForm.ClientHeight;
 WizardForm.InnerNotebook.Height:=WizardForm.ClientHeight;
 WizardForm.WizardBitmapImage2.Height:=WizardForm.ClientHeight;
 WizardForm.NextButton.BringToFront;
 WizardForm.CancelButton.BringToFront;
 WizardForm.BackButton.BringToFront;
 WizardForm.FinishedHeadingLabel.Visible:=False;
 WizardForm.FinishedLabel.Visible:=False;

    WizardForm.Color := Color;
    WizardForm.Font.Color := clWhite;
    WizardForm.WelcomePage.Color := Color;
    WizardForm.InnerPage.Color := Color;
    WizardForm.LicenseMemo.Color := Color;
    WizardForm.PasswordEdit.Color := Color;
    WizardForm.InfoBeforeMemo.Color := Color;
    WizardForm.UserInfoSerialEdit.Color := Color;
    WizardForm.UserInfoOrgEdit. Color := Color;
    WizardForm.UserInfoNameEdit.Color := Color;
    WizardForm.SelectDirBitmapImage.BackColor := clNone;
    WizardForm.SelectDirBitmapImage.ReplaceColor := clBtnFace;
    WizardForm.DirEdit.Color := Color;
    WizardForm.ComponentsList.Color := Color;
    WizardForm.TypesCombo.Color := Color;
    WizardForm.SelectGroupBitmapImage.BackColor := clNone;
    WizardForm.SelectGroupBitmapImage.ReplaceColor := clBtnFace;
    WizardForm.GroupEdit.Color := Color;
    WizardForm.TasksList.Color := Color;
    WizardForm.ReadyMemo.Color := Color;
    WizardForm.InfoAfterMemo.Color := Color;
    WizardForm.MainPanel.Color := Color;
    WizardForm.FinishedPage.Color := Color;
 WizardForm.Bevel.visible:=false;
 WizardForm.Bevel1.visible:=false;
end;

кстати, в коде черного инсталла много лишнего. Вот этого будет достаточно:

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

Код:

const
 Color = clblack; // цвет окна инстала
 
procedure InitializeWizard();
begin
    WizardForm.Color := Color;
    WizardForm.Font.Color := clWhite;
    WizardForm.WelcomePage.Color := Color;
    WizardForm.InnerPage.Color := Color;
    WizardForm.LicenseMemo.Color := Color;
    WizardForm.PasswordEdit.Color := Color;
    WizardForm.InfoBeforeMemo.Color := Color;
    WizardForm.UserInfoSerialEdit.Color := Color;
    WizardForm.UserInfoOrgEdit. Color := Color;
    WizardForm.UserInfoNameEdit.Color := Color;
    WizardForm.SelectDirBitmapImage.BackColor := clNone;
    WizardForm.SelectDirBitmapImage.ReplaceColor := clBtnFace;
    WizardForm.DirEdit.Color := Color;
    WizardForm.ComponentsList.Color := Color;
    WizardForm.TypesCombo.Color := Color;
    WizardForm.SelectGroupBitmapImage.BackColor := clNone;
    WizardForm.SelectGroupBitmapImage.ReplaceColor := clBtnFace;
    WizardForm.GroupEdit.Color := Color;
    WizardForm.TasksList.Color := Color;
    WizardForm.ReadyMemo.Color := Color;
    WizardForm.InfoAfterMemo.Color := Color;
    WizardForm.MainPanel.Color := Color;
    WizardForm.FinishedPage.Color := Color;
end;