Em 22/05/06, stclara <[EMAIL PROTECTED]> escreveu:
>
> Certo, amigo, mas eu preciso montar o array com o mês e os dias de cada
> mês, pois não sei de antemão quais os meses e as datas cadastradas ...
>
> Gabriel Filho escreveu:
> > Basta vc abrir a tabela ou Query contendo os dados que vc quer e
> > correr ela
> > 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!.