diff --git a/lcl/checklst.pas b/lcl/checklst.pas
index 85cbad0d95..2c104000ce 100644
--- a/lcl/checklst.pas
+++ b/lcl/checklst.pas
@@ -65,7 +65,6 @@ type
     procedure ItemClick(const AIndex: Integer); virtual;
     procedure KeyDown(var Key: Word; Shift: TShiftState); override;
     procedure FontChanged(Sender: TObject); override;
-    procedure ParentFontChanged; override;
   public
     constructor Create(AOwner: TComponent); override;
     procedure MeasureItem(Index: Integer; var TheHeight: Integer); override;
@@ -330,13 +329,6 @@ begin
     ItemHeight := CalculateStandardItemHeight;
 end;
 
-procedure TCustomCheckListBox.ParentFontChanged;
-begin
-  inherited ParentFontChanged;
-  if ([csLoading, csDestroying] * ComponentState = []) and (Style = lbStandard) then
-    ItemHeight := CalculateStandardItemHeight;
-end;
-
 procedure TCustomCheckListBox.DefineProperties(Filer: TFiler);
 begin
   inherited DefineProperties(Filer);
diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index 9a10e00c2f..d5ca2be25e 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -1709,7 +1709,6 @@ type
     procedure ControlsAligned; override;
     function FindButtonFromAccel(Accel: Word): TToolButton;
     procedure FontChanged(Sender: TObject); override;
-    procedure ParentFontChanged; override;
     procedure Loaded; override;
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     procedure RepositionButton(Index: Integer);
diff --git a/lcl/include/toolbar.inc b/lcl/include/toolbar.inc
index 155e2de486..b9ff34e524 100644
--- a/lcl/include/toolbar.inc
+++ b/lcl/include/toolbar.inc
@@ -725,12 +725,6 @@ begin
   ApplyFontForButtons;
 end;
 
-procedure TToolBar.ParentFontChanged;
-begin
-  inherited ParentFontChanged;
-  ApplyFontForButtons;
-end;
-
 function TToolBar.CheckMenuDropdown(Button: TToolButton): Boolean;
 var
   APoint: TPoint;