Skip to content

Commit

Permalink
Remove unneeded ParentBackground assignment.
Browse files Browse the repository at this point in the history 
It already defaults to False, and the cast was invalid (but not harmful).
  • Loading branch information
@jordanrussell
jordanrussell authored Nov 7, 2024
1 parent b908dbe commit e325715
Showing 1 changed file with 1 addition and 5 deletions.
6 changes: 1 addition & 5 deletions Projects/Src/IDE.Wizard.WizardForm.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -244,9 +244,6 @@ procedure TWizardForm.SetWizardName(const WizardName: String);

{ --- }

type
TNotebookAccess = class(TNotebook);

procedure TWizardForm.FormCreate(Sender: TObject);

procedure AddLanguages(const Extension: String);
Expand Down Expand Up @@ -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
Expand All @@ -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);
Expand Down

2 comments on commit e325715

@martijnlaan
Copy link
Member

@martijnlaan martijnlaan commented on e325715 Nov 7, 2024 •
edited
Loading

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

ParentBackground's default used to not work, requiring manual assignment to False. I suppose this is fixed?

@jordanrussell
Copy link
Member Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

The line is left over from when a TNotebook was used. On TNewNotebook it's already False.

Please sign in to comment.