Fórum Destacar datas em um TMonthCalendar! #326753
03/08/2006
0
Paullsoftware
Curtir tópico
+ 0Posts
03/08/2006
Adriano Santos
Ae mano, peguei isso de uma camarda outro dia aqui no fórum. Não me lembro o link, então guardei o exemplo pegai:
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
03/08/2006
Paullsoftware
Gostei + 0
03/08/2006
Motta
Gostei + 0
03/08/2006
Paullsoftware
certo motta, mas como está a sua instrução SQL dentro da query, eu fiz assim:
fiz assim também e nada
uma forcinha ai :wink:
Gostei + 0
03/08/2006
Motta
A minha ideia ali era sinalizar feriados , vc pode querer sinalizar (com negrito) outro dia pro outro critério, só tentei mostar como se faz.
Gostei + 0
03/08/2006
Paullsoftware
certo mais eu tenho uma tabela com os campos Codigo, Data, faço exatamente como vc mostrou mais não retorna nada...
eu gostaria de saber como está o parametro da linha
Params[0].AsDate := Data;
não tá retornando nada na tabela, fico no aguardo!
Gostei + 0
03/08/2006
Paullsoftware
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)