Sobre Max Calendar...

[The_Avatar]

Me he instalado el componente 'Max Calendar'. Lo he estado trasteando un poco y no veo por ningun lado que de opcion de poner los dias que yo quiera de un color. Tiene ese componente esa opcion?
Si alguno lo ha manejado y sabe orientarme se lo agradeceria.
Si no se pudiese alguno sabria decirme algun componente gratuito en el que si se pueda cambiar el fondo o el color de un numero de dia.
Muchas gracias de antemano. ^^

[[Lepe]]

Usa el evento OnGetItemStyleEvent

Allí tienes la fecha que se va a pintar, la fuente y el color, como esos 2 últimos son por referencia, puedes modificarlos a voluntad.

Código Delphi [-]
if (AStyleType = stDay) then
begin
  Acolor := clRed;
  AFont.Color := clYellow;
end;

Saludos

[The_Avatar]

MUCHISIMAS GRACIAS X RESPONDER!! ^^
Oye, una pregunta, que narices es 'StDay' ?? que tipo de dato es?
Eso de que el componente no traiga ayuda es un coñazo... ^^´
GRACIAS!!^^

[The_Avatar]

Veamos, he probado tu codigo, y lo que hace es cambiar el color de TODOS los dias laborables ( lunes a viernes ).
He probado con:

Código Delphi [-]
     if (astyletype=stday)and(Adate=20/03/2007) then begin
           Acolor:=clred;
     end;

pero no me resalta el dia 20...
Sabes como logra señalar dias concretos??
Gracias de nuevo!! ^^

[[Lepe]]

Tienes que usar un tipo TDateTime... por ejemplo:

Quiero resaltar el dia 20 de cada mes:

Código Delphi [-]

uses DateUtils:

var Resalta:TDateTime:
begin
Resalta := RecodeDay(ADate, 20);

if Adate = Resalta then
  color := clRed
else
  color := clBlack;

"ADate" es el parámetro de ese evento. Si te fijas lo que hago es comparar si la fecha que se va a pintar coincide con el día 20 de ese mes.

No trae ayuda, pero trae el código fuente, así que manteniendo control pulsado mientras haces click sobre la palabra "stDay" te llevará más o menos a esto:

Código Delphi [-]
  TmxStyleType = (stSelected, stToday, stDay, stWeekEnd, stIndirect );

Intuyo que:
- StSelected es la fecha seleccionada en el calendario
- StToday si se trata de la fecha actual de windows.
- StDay (de lunes a viernes)
- stWeekEnd (si es un fin de semana, según el código fuente, usa sábado y domingo.
- stIndirect.... no lo he mirado a fondo, creo que es para los días de otro mes... me explico: Si el día 1 de abril empieza en miercoles, entonces puede pintar los días 30 y 31 de Marzo en el Primer Lunes y Martes del mes abril. (hay que retocar otras propiedades para que eso funcione.

Ten en cuenta que solo puedes pintar los colores del mes que se está mostrando, no de otros meses.

Si quieres pintar un conjunto de fechas, podrías usar algo así:

Código Delphi [-]
var  Resalta:  array of Tdate;
begin
  SetLength(Resalta, 10) ; // creamos un array de 11 posiciones, empieza en cero.
  Resalta[0] : = EncodeDate(2007,3, 20);
  etc.
end;

//ahora en ese evento de pintado:
color := clText
if AStyleType = stDay then
  for i:= low(Resalta) to high(Resalta) do
    if ADate = Resalta[i] then
    begin
      color := clRed
      break;
    end;

El hecho de preguntar por if AStyleType = stDay, es porque solo quiero que entre en ese bucle en los días laborables, así impedimos que entre preguntando en fines de semana... es decir, nos estamos ahorrando 8 bucles del for en cada mes (todos los fines de semana de ese mes). Como es un evento que se aplica por cada día a pintar del mes, tenemos que hacerlo eficiente.

En fin, técnicas hay muchas, solo tienes que guardar las fechas que quieres resaltar y después comparar.

Saludos.

[The_Avatar]

CACHIS!! ^^´
Ahora me he fijado que en este componente al pasar de mes los dias se vuelven locos... Es esto normal? Me lo hace con un componente recien puesto y sin modificar en absoluto...