diff --git a/Projects/Src/IDE.Wizard.WizardForm.pas b/Projects/Src/IDE.Wizard.WizardForm.pas index 9f5c3b7e6..0145d7555 100644 --- a/Projects/Src/IDE.Wizard.WizardForm.pas +++ b/Projects/Src/IDE.Wizard.WizardForm.pas @@ -244,9 +244,6 @@ procedure TWizardForm.SetWizardName(const WizardName: String); { --- } -type - TNotebookAccess = class(TNotebook); - procedure TWizardForm.FormCreate(Sender: TObject); procedure AddLanguages(const Extension: String); @@ -302,7 +299,7 @@ procedure TWizardForm.FormCreate(Sender: TObject); InitFormFont(Self); if Font.Name = 'Segoe UI' then begin - { See Wizard.pas } + { See Setup.WizardForm.pas } for I := 0 to OuterNotebook.PageCount-1 do OuterNotebook.Pages[I].HandleNeeded; for I := 0 to InnerNotebook.PageCount-1 do @@ -312,7 +309,6 @@ procedure TWizardForm.FormCreate(Sender: TObject); if FontExists('Verdana') then WelcomeLabel1.Font.Name := 'Verdana'; - TNotebookAccess(OuterNotebook).ParentBackground := False; OuterNotebook.Color := clWindow; MakeBold(PageNameLabel);