Contrary to what I stated this night late, I've now taken a better look at the DatePick source code.
To fix the NormalCellColor problem, go in the DatePick.pas, procedure PaintCells, you find:
...
begin
Brush.Color := NormalCellColor; //clWhite;
if IsDifferentMonth( CellDate, FDate ) then
Font.Color := DifMonthFontColor //clDkGray
else
Font.Color := NormalCellFontColor;
end;

that must be:
...
begin
Brush.Color := NormalCellColor; //clWhite;
if IsDifferentMonth( CellDate, FDate ) then
Font.Color := DifMonthFontColor //clDkGray
else
Font.Color := NormalCellFontColor;
if NormalCellColor <> clWhite then
FillRect(rCell);
end;

This solves the problem.
Regards
Marco Menardi

>
> But more important to me is the problme with NormalCellColor. Do have an idea, what I have to do to get it work ?
>
>
> Guido