Hacer un planning
 

Hola a tod@s:

Para hacer un planning he elegido el componente TDrawGrid, he colocado en la fila(0) los días 1..31 y en la columna(0) los meses 1..12 (pero con letras).

Lo que intento hacer es lo siguiente: hacer un recorrido por todo el año y la celda que coincida el día y mes (sábado, domingo) que aparezca de otro color para diferenciar la semana del fin de semana.

En estos momentos sólo me interesa saber que funciones puedo utilizar para conseguir esto. Lo de ponerlo de otro color ú otra cosa es secundario.

Esperando una pronta respuesta reciban un cordial saludo....

:cool: :) :cool:

pienso q los tiros irian un poco por aki... pruebalo pq no se si funcionara, no creo...:o



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;

Antes de seguir échale un vistazo a éste componente de Jonathan Hosking; Es gratuíto con fuentes y muy bueno.

Year Planner v.2.71