RES: [delphi-br] Ajuda com calendário

Mon, 22 May 2006 20:10:12 -0700

Estimado,

Boa noite. Não seria algo do tipo:

procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject; Month:
Cardinal; var MonthBoldInfo: Cardinal);
var
  Feriados: array[1..12] of array of cardinal;
  iMes, iAno, iReg : Integer;
begin
  // feriados - ou datas agendadas - data tabela (percorre pra ver que meses
tem cadastrado e adiciona)
  for iMes := 1 to 12 do begin
      iReg := 0;

      with SUAQUERY do begin
          Close;
          SQL.Clear;
          SQL.Add('SELECT dias_dificeis_deaceitar FROM suatabela WHERE mes =
' + IntToStr(iMes));
          SQL.Add('AND ano = ' + IntToStr(iAno));
          Open;
         
          SetLength(Feriados[i],iReg + 1);
          if(Eof) then begin
              Feriados[i, iReg] := 0;
              Exit;
          end;

          while (not Eof) do begin
              Feriados[i, iReg] :=
SUAQUERY.FieldByName('dias_dificeis_deaceitar').AsInteger;
              Inc(iReg);
              SetLength(Feriados[i], iReg + 1);
              Next;
          end;
      end;
      Close;
  end;

  // "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
    Raise 'não sei mais o que fazer';
  end;

end;

Teste e 'feedback-nos';

Saudações.

---

[]'s

Alexandre

Frase da semana: "De todos os meios que conduzem o homem à riqueza, os dois
mais certos são ser perseverante e ser trabalhador." (Reyband)

Frase de la semana: "De todos los medios que llevan un hombre a la riqueza,
los dos más ciertos y saludable és estar perseverando y ser trabajador."
(Reyband)


-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de stclara
Enviada em: segunda-feira, 22 de maio de 2006 16:05
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajuda com calendário

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









__________ NOD32 1.1552 (20060522) Information __________

This message was checked by NOD32 antivirus system.
http://www.eset.com




--
<<<<< 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:
PUBLICIDADE

Links do Yahoo! Grupos

Responder a