Ver Mensaje Individual
  #4  
Antiguo 28-01-2008
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.142
Reputación: 36
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

No he utilizado el componente de que hablamos, pero, según Lepe dice en el hilo que enlacé más arriba se ve que el componente ejecuta cierto evento cuando va a "dibujar" un día en el calendario. De este modo, el asunto quedaría más o menos así:

Código Delphi [-]
uses DateUtils;

procedure mxcalendar1.OnGetItemStyle(Sender:TmxCustomCalendar;
  AstyleType:TmxStyleType; ADate:TDate;
   var AFont:Tfont; var AColor:TColor)

var MiFecha :Tdate;
begin
  // colorear según la fecha que yo quiera:
  MiFecha := encodeDate(2007, 03, 25);
  if ADate = MiFecha then
  begin
    AFont.Style := AFont.Style + [fsBold] // poner en negrita la letra de ese día
    Acolor := clRed; // color de esa fecha en rojo
  end;

  // colorear todos los fines de semana:
  if AStyleType = stWeekend then AColor := clgreen

  //colorear la fecha que hace click
  else if AStyleType = stSelected then AColor := clYellow;
  ....
  // mira en mxCalendar.pas para ver el StyleType
end;

El código anterior es el que copia Lepe en el hilo enlazado. Ahora bien, se entiende que el componente ejecutará ese evento cuando va a dibujar cada uno de los días del calendario. Tú podrías aprovechar el evento para averiguar si el día que se va a dibujar "tiene tareas", y, si las tiene, colorear el día como mejor te parezca.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita