Como negritar alguns dias do TMonthCalendar?
Amigos,
como faço para colocar em negrito alguns dias do meu MonthCalendar?
como faço para colocar em negrito alguns dias do meu MonthCalendar?
Orlando Frade
Curtidas 0
Respostas
Edilcimar
15/12/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
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
GOSTEI 0
Orlando Frade
15/12/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.
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.
GOSTEI 0
Emerson Nascimento
15/12/2005
tente assim, no evento OnGetMonthInfo:
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;
GOSTEI 0
Orlando Frade
15/12/2005
deu certo!!!
obrigado
obrigado
GOSTEI 0