8 respuestas en este tema

[tiquinho]

Hola a todos

 

Alguien sabe como delimitar un TCalendarView.

 

Lo que deseo es que cuando se cargue el calendario, este tenga deshabilitado los días posteriores a la fecha actual. Y también se puede delimitar por ejemplo 3 meses antes. 

 

 

Agradezco su colaboración

[egostar]

Hola a todos

 

Alguien sabe como delimitar un TCalendarView.

 

Lo que deseo es que cuando se cargue el calendario, este tenga deshabilitado los días posteriores a la fecha actual. Y también se puede delimitar por ejemplo 3 meses antes. 

 

 

Agradezco su colaboración

 

Hola

 

No tiene las propiedades MinDate y MaxDate?

 

Saludos

[tiquinho]

Hola

 

No tiene las propiedades MinDate y MaxDate?

 

Saludos

 Hola

 

No, no los tiene

[egostar]

 Hola

 

No, no los tiene

 

Ah vaya, pues tocará agregar las propiedades, No se.... podría ser a través de un CAST del componente padre o agregar la funcionalidad a través de la creación de un nuevo componente o a través de algún helper, habría que ver que es más fácil. ¿Qué versión de Delphi estás utilizando? 

 

Saludos 

[escafandra]

No reconozco ese componente como de delphi. TMonthCalendar si dispone de MinDate y MaxDate. Si estamos hablando un componente de terceros en de entrono Windows, la API nos permite manejar intervalos de fechas válidos con MonthCal_SetRange que usa el mensaje MCM_SETRANGE.

 

Saludos.

[egostar]

No reconozco ese componente como de delphi. TMonthCalendar si dispone de MinDate y MaxDate. Si estamos hablando un componente de terceros en de entrono Windows, la API nos permite manejar intervalos de fechas válidos con MonthCal_SetRange que usa el mensaje MCM_SETRANGE.

 

Saludos.

 

Hola

 

Las ultimas versiones de Delphi agregaron éste componente, lo raro es que el CalendarView de la RTL de Windows si tiene estas propiedades  MINDATE, MAXDATE  pero no están en el componente, tocará, como había comentado, agregarlas de algún modo.

 

Saludos

Archivos adjuntos

•  CalView.PNG   269,76KB   0 descargas

[escafandra]

Hola
 
Las ultimas versiones de Delphi agregaron éste componente, lo raro es que el CalendarView de la RTL de Windows si tiene estas propiedades  MINDATE, MAXDATE  pero no están en el componente, tocará, como había comentado, agregarlas de algún modo.
 
Saludos

 
Lo buscaré en Berlin. Quizás se pueda solucionar sin mucho embrollo.
 
Saludos.

[escafandra]

En Berlin ese componente no aparece. Muestro la forma de controlar el calendario entre dos días dados. Como no he encontrado TCalendarView, el ejemplo lo pongo para un TMonthCalendar.
 
En el ejemplo confino el calendario entre el 1-1-2020 y el 31-1 2020 usando la API, en concreto el mensaje MCM_SETRANGE.
 
 

delphi

var
  ST: array [0..1] of SYSTEMTIME;
begin
  ZeroMemory(@ST, 2*sizeof(SYSTEMTIME));
  ST[0].wYear:= 2020;
  ST[0].wMonth:= 1;
  ST[0].wDay:= 1;
  ST[1].wYear:= 2020;
  ST[1].wMonth:= 12;
  ST[1].wDay:= 31;
  SendMessage(MonthCalendar1.Handle, $1012 {MCM_SETRANGE}, 1 {GDTR_MIN} or 2 {GDTR_MAX}, integer(@ST));
end;

Saludos.

[egostar]

En Berlin ese componente no aparece. Muestro la forma de controlar el calendario entre dos días dados. Como no he encontrado TCalendarView, el ejemplo lo pongo para un TMonthCalendar.
 
En el ejemplo confino el calendario entre el 1-1-2020 y el 31-1 2020 usando la API, en concreto el mensaje MCM_SETRANGE.
 
 

delphi

var
  ST: array [0..1] of SYSTEMTIME;
begin
  ZeroMemory(@ST, 2*sizeof(SYSTEMTIME));
  ST[0].wYear:= 2020;
  ST[0].wMonth:= 1;
  ST[0].wDay:= 1;
  ST[1].wYear:= 2020;
  ST[1].wMonth:= 12;
  ST[1].wDay:= 31;
  SendMessage(MonthCalendar1.Handle, $1012 {MCM_SETRANGE}, 1 {GDTR_MIN} or 2 {GDTR_MAX}, integer(@ST));
end;

Saludos.

 

Hola amigo,

 

Ya hice la prueba y no toma la configuración como lo hace con el MonthCalendar, es probable que no funcione así ese objeto, le he puesto un rango del 1 de Julio de 2020 al 10 de Noviembre de 2020.

 

Saludos

Archivos adjuntos

•  CalView1.png   182,19KB   1 descargas