Ver la Versión Completa : Disponibilidad de Fechas
Necesito crear un Calendario, en el cual deben aparecer tachadas (o con otro formato) las fechas que están cargadas en una tabla de Base de Datos.
Desde ya Muchas Gracias.
moni
tcp_ip_es
15-06-2004, 16:16:25
Un estilo muy raro no :D si puedes mirate la Guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php) de los foros. En cuanto a lo que preguntas miraté el componente TMonthCalendar, no tiene conexión con un datasource pero si que puedes controlar lo días marcados o no, la cuestión estaría en leer en tu base de datos cuando actualices el componente.
eduarcol
15-06-2004, 16:17:04
Y tu duda es...???? :confused: :confused:
Sin mas informacion lo que te podriamos es desear suerte :D
Un estilo muy raro no :D si puedes mirate la Guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php)de los foros. En cuanto a lo que preguntas miraté el componente TMonthCalendar, no tiene conexión con un datasource pero si que puedes controlar lo días marcados o no, la cuestión estaría en leer en tu base de datos cuando actualices el componente.
En el componete TMonthCalendar, intente cambiar las propiedades para ver si podia logar lo que necesito pero no encontre ninguna. No puedo cambiar las propiedades del calendario (por ejemplo: color o tipo de letra )para identificar las fechas que estan disponibles y las que no.
moni.
delphi.com.ar
15-06-2004, 16:53:40
Puedes usar el evento OnGetMonthInfo para poner algunas fechas en negrita:
procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
Month: Cardinal; var MonthBoldInfo: Cardinal);
begin
if Month = 3 then //Si Es marzo
MonthCalendar1.BoldDays([7, 21, 25], MonthBoldInfo); // El 7, 21 y 25 se mostrarán en negrita
end;
Puedes usar el evento OnGetMonthInfo para poner algunas fechas en negrita:
procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
Month: Cardinal; var MonthBoldInfo: Cardinal);
begin
if Month = 3 then //Si Es marzo
MonthCalendar1.BoldDays([7, 21, 25], MonthBoldInfo); // El 7, 21 y 25 se mostrarán en negrita
end;
Muchas Gracias lo probe y funciona, es lo que necesitaba.
moni
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.