preenchendo o vetor;
Tipo:
for i:=1 to 31 do
begin
Dias[i]:= 0;
end;
for i:=1 to ADOQueryDiasFeriados.RecordCount do
begin
Dias[i]:= ADOQueryDiasFeriadosDia.Value;
ADOQueryDiasFeriados.Next;
end;
ADOQueryDiasFeriados.Close;
Em 22/05/06, stclara <[EMAIL PROTECTED]> escreveu:
>
> Ola, pessoal. Tenho a rotina abaixo para colocar em negrito algumas
> datas. Só que gostaria de pegar as datas de uma base de dados. Alguém
> pode me ajudar como ficaria?
>
> 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;
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por: | |
|
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.