15/12/2005

Como negritar alguns dias do TMonthCalendar?

Amigos,
como faço para colocar em negrito alguns dias do meu MonthCalendar?


Orlando Frade

Respostas

15/12/2005

Edilcimar

coloque multiselect := true
coloque maxselectrange para um numero entre os quais vc aceita a seleção
coloque date para a data inicial
coloque enddate para a data final


Responder Citar

15/12/2005

Orlando Frade

deixa eu explicar melhor.
eu tenho o meu calendario q está no mês de dezembro aí eu preciso q os dias 12, 15 e 20 fiquem em negrito. quando eu mudar para o mês de janeiro preciso q os dias 10, 13, 15, 22, 20 e 25 fiquem em negrito.


Responder Citar

15/12/2005

Emerson

tente assim, no evento OnGetMonthInfo:

procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
  Month: Cardinal; var MonthBoldInfo: Cardinal);
var
  Feriados: array[1..12&93; of array of cardinal;
begin
  // feriados - ou datas agendadas - do mês de janeiro
  SetLength(Feriados&91;1&93;,3);
  Feriados&91;1,0&93; := 1;
  Feriados&91;1,1&93; := 12;
  Feriados&91;1,2&93; := 22;

  // feriados - ou datas agendadas - do mês de dezembro
  SetLength(Feriados&91;12&93;,1);
  Feriados&91;12,0&93; := 25;

  // "month" é o mês posicionado no calendário (é um parâmetro do evento)
  // "monthboldinfo" também é um parâmetro
  try
    MonthCalendar1.BoldDays(Feriados&91;Month&93;,MonthBoldInfo);
  except
  end;
end;



Responder Citar

16/12/2005

Orlando Frade

deu certo!!!
obrigado


Responder Citar