Marcar una fecha en un TMonthCalendar

[[egostar]]

Empezado por Tom

Que tal gente
mi pregunta es la siguiente, como podria llenar en un TMonthCalendar fechas apartir de una base de datos, la parte de base de datos no hay problema, solo quisiera saber como puedo recorrer el objeto e ir marcando las fechas.

muchas gracias de antemano

saludos

Hola Bienvenido al Club, tu problema se resuelve usando el evento AfterScroll de la tabla.

Código Delphi [-]
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
  MonthCalendar1.Date := Table1Fecha.Value;
end;

Salud OS

PD, Te invito a leer nuestra guia de estilo.

[spyfenix]

Gracias por sus respuestas, mas que nada lo que quiero es marcar varias fechas en un mismo mes, y de esta forma me marca la ultima fecha

Código Delphi [-]
Calendario.Date:= StrToDate('22/02/2008');
Calendario.Date:= StrToDate('23/02/2008');
Calendario.Date:= StrToDate('24/02/2008');

Si pongo este codigo, solo aparecera marcado el dia 24, mi pregunta es como marcar varias fechas en un mismo mes.

muchas gracias

[[egostar]]

Empezado por spyfenix

Gracias por sus respuestas, mas que nada lo que quiero es marcar varias fechas en un mismo mes, y de esta forma me marca la ultima fecha

Código Delphi [-]
Calendario.Date:= StrToDate('22/02/2008');
Calendario.Date:= StrToDate('23/02/2008');
Calendario.Date:= StrToDate('24/02/2008');

Si pongo este codigo, solo aparecera marcado el dia 24, mi pregunta es como marcar varias fechas en un mismo mes.

muchas gracias

Hola spyfenix o quizas Tom

Si cambias la propiedad Multiselect del MonthCalendar a True podrás ver las fechas seleccionadas pero solo si éstas son continuas, por ejemplo 23, 24, 25, 26, pero si seleccionas fechas "saltadas" no creo que sea posible.

Salud OS

[Tom]

SpyderFenix ?????
bueno, ya estuve checando esta forma de agregar las fechas pero las maneja por rango, y creo que no me servira.
lo que quiero hacer es tipo un calendario de actividades, alguien me podria dar el tipo de algun componente que hayan usado para mostrar diferentes fechas en un mismo mes ???

Muchas gracias por la ayuda
SALUDOS

[[egostar]]

Tal vez esto que nuestro amigo Neftali proporcionó te ayude...

Salud OS

[*Caro*]

Hola Tom, creo que lo mas que puedes hacer en el MonthCalendar es resaltar las fechas poniendolas en negrilla.

Código Delphi [-]
procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
  Month: Cardinal; var MonthBoldInfo: Cardinal);
begin
 MonthCalendar1.BoldDays([1,6,10,13],MonthBoldInfo);
end;

eso te marca los dias 1,6,10 y 13 del mes que se esta viendo.

Saluditos

[[Lepe]]

Y si quieres colorear más, usa el MaxCalendar, gratuito y con fuentes.

La negrilla tienen poco de resaltado, la verdad.

Saludos