diff --git a/lcl/controls.pp b/lcl/controls.pp
index f544817683..80f3e9c8f3 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -1092,8 +1092,8 @@ type
     property DragKind: TDragKind read FDragKind write FDragKind default dkDrag;
     property DragMode: TDragMode read fDragMode write SetDragMode default dmManual;
     property MouseCapture: Boolean read GetMouseCapture write SetMouseCapture;
-    property ParentColor: Boolean read FParentColor write SetParentColor default true;
-    property ParentFont: Boolean  read FParentFont write SetParentFont;
+    property ParentColor: Boolean read FParentColor write SetParentColor default True;
+    property ParentFont: Boolean  read FParentFont write SetParentFont default True;
     property ParentShowHint: Boolean read FParentShowHint write SetParentShowHint default True;
     property SessionProperties: string read FSessionProperties write FSessionProperties;
     property Text: TCaption read GetText write SetText;
diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 3e2e9f7015..e489f87828 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -843,9 +843,9 @@ end;
 ------------------------------------------------------------------------------}
 function TControl.ColorIsStored: boolean;
 begin
-  Result:=(Color<>clWindow);
-  if Result and ParentColor and (Parent<>nil) then
-    Result:=false;
+  Result := (Color <> clWindow);
+  if Result and ParentColor and (Parent <> nil) then
+    Result := False;
 end;
 
 {------------------------------------------------------------------------------
@@ -3845,8 +3845,9 @@ begin
   FCaptureMouseButtons := [mbLeft];
   FColor := clWindow;
   FVisible := true;
-  FParentShowHint := True;
   FParentColor := True;
+  FParentFont := True;
+  FParentShowHint := True;
   FWindowProc := @WndProc;
   FCursor := crDefault;
   FFont := TFont.Create;