Hacer un planning

[scooterjgm]

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;