Index: JvResources.pas
===================================================================
--- JvResources.pas	(revision 13287)
+++ JvResources.pas	(working copy)
@@ -2204,6 +2204,9 @@
   RsMenuBar ='Menu Bar';
   RsMenuHighlight ='Menu Highlight';
 
+  // clNone and clDefault
+  RsClNone = 'None';
+  RsClDefault = 'Default';
 
 //=== JvUrlGrabbers.pas ======================================================
 resourcestring
Index: JvOfficeColorPanel.pas
===================================================================
--- JvOfficeColorPanel.pas	(revision 13287)
+++ JvOfficeColorPanel.pas	(working copy)
@@ -1337,7 +1337,7 @@
     Tag := FButtonCustomColor.Tag + 1;
     Flat := True;
     DrawColor := clDefault;
-    Hint := ColorToString(DrawColor);
+    Hint := ColorToPrettyName(DrawColor);
     CanDrawColorQuad := True;
     CanDrawGlyph := False;
     CanDrawInnerFrame := False;
Index: JvJCLUtils.pas
===================================================================
--- JvJCLUtils.pas	(revision 13287)
+++ JvJCLUtils.pas	(working copy)
@@ -8543,6 +8543,12 @@
       Result := SysColorValues[Index].Description;
       Exit;
     end;
+  for Index := Low(MiscColorValues) to High(MiscColorValues) do
+    if Value = MiscColorValues[Index].Value then
+    begin
+      Result := MiscColorValues[Index].Description;
+      Exit;
+    end;
   Result := ColorToString(Value);
 end;
 
Index: JvTypes.pas
===================================================================
--- JvTypes.pas	(revision 13287)
+++ JvTypes.pas	(working copy)
@@ -485,6 +485,11 @@
     (Value: clMenuHighlight;           Constant: 'clMenuHighlight';          Description: RsMenuHighlight)
   );
 
+  MiscColorValues: array [0 .. 1] of TDefColorItem = (
+    (Value: clNone;                Constant: 'clNone';                Description: RsClNone),
+    (Value: clDefault;             Constant: 'clDefault';             Description: RsClDefault)
+  );
+
 type
   TJvCustomThread = class(TThread)
   private