pienso q los tiros irian un poco por aki... pruebalo pq no se si funcionara, no creo...
procedure Tform.GridCustomDrawCell(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
var AText: String; var AColor: TColor; AFont: TFont;
var AAlignment: TAlignment; var ADone: Boolean);
begin
//Haz las comprobaciones con el contenido de la celda
if (dia = 'sabado') or (dia = 'domingo') then
begin
//si kieres q te ponga otro color cuando esta seleccionado
if ASelected then
AColor := clRed
else
AColor := clBlue;
end
else
begin
if ASelected then
AColor := clLime
else
AColor := clInfoBk;
end;