diff --git a/Source/VCL/ClassBrowsing/CodeCompletion.pas b/Source/VCL/ClassBrowsing/CodeCompletion.pas
index ccb88b4e..294fbac7 100644
--- a/Source/VCL/ClassBrowsing/CodeCompletion.pas
+++ b/Source/VCL/ClassBrowsing/CodeCompletion.pas
@@ -118,7 +118,7 @@ constructor TCodeCompletion.Create(AOwner: TComponent);
 
   fWidth := 320;
   fHeight := 240;
-  fColor := clWindow;
+  fColor := clWhite;
   fEnabled := True;
   fOnlyGlobals := False;
   fShowCount := 100; // keep things fast
@@ -425,3 +425,4 @@ function TCodeCompletion.IsVisible: boolean;
 
 end.
 
+