Array
(
)

Como negritar alguns dias do TMonthCalendar?

Orlando Frade
   - 15 dez 2005

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


Edilcimar
   - 15 dez 2005

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


Orlando Frade
   - 15 dez 2005

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.


Emerson
   - 15 dez 2005

tente assim, no evento OnGetMonthInfo:

#Código

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

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

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



Orlando Frade
   - 16 dez 2005

deu certo!!!
obrigado