diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index d5ed1736a1..f134321118 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -1266,8 +1266,8 @@ end;
 function TControl.GetDefaultColor(const DefaultColorType: TDefaultColorType): TColor;
 const
   DefColors: array[TDefaultColorType] of TColor = (
- { dctBrush } clWindow,
- { dctFont  } clWindowText
+  { dctBrush } clForm,
+  { dctFont  } clBtnText
   );
 begin
   Result := TWSControlClass(WidgetSetClass).GetDefaultColor(Self, DefaultColorType);