Como negritar alguns dias do TMonthCalendar?
15/12/2005
0
como faço para colocar em negrito alguns dias do meu MonthCalendar?
Orlando Frade
Posts
15/12/2005
Edilcimar
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
15/12/2005
Orlando Frade
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.
15/12/2005
Emerson Nascimento
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;
Clique aqui para fazer login e interagir na Comunidade :)