TCalendar Color y sólo días mes seleccionado (Resuelto)

[Ralevi]

Buenas a todos.

Estaba buscando un calendario en el que poder colorear determinados días siguiendo unos criterios, básicamente turnos de trabajo, para visualmente saber cuales te tocan, y llegue a este hilo.

Me parece muy interesante, pero es mas de lo que necesito, y finalmente opte por una solución mas "artesanal", que comparto por si le es útil a alguien.

Creo un TGridLayout con 7 columnas y 6 filas, cuarenta y dos casillas, 31 días mas 11 vacías

Lo relleno con 42 TButton, del 1 al 31 con el numero correspondiente, y del 32 al 42 sin texto, y deshabilitados.

Con DaysInMonth(fecha dia 1 del mes) calculo la posición del primer día del mes

Con DayOfTheWeek calculo los días que tiene ese mes, y oculto los que no corresponden (28 o 29 en febrero, 31 en los meses que no deben)

Modificas el mes y año a consultar con el control que quieras, en mi caso un TLabel y dos TSpeedButton, y dibuja el mes.

Y funciona, luego modificas el botón del día concreto con las propiedades de color de texto y/o color de fondo.

Puede que no sea una manera muy elegante, pero funciona.

Saludos