monthcalendar e deixar as datas que existem na base em negrito, só que
quando mudo para o próximo mês, sempre pega os dados do mês anterior ao
que está no monthcalendar. Como reselver isto.
procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
Month: Cardinal; var MonthBoldInfo: Cardinal);
var
ano, mes, dia: word;
i : integer;
dias: array of cardinal;
begin
inherited;
dias := nil;
try
decodedate(monthcalendar1.Date, ano, mes, dia);
i := -1;
with cds_datas do
begin
Close;
Params[0].AsInteger:= ano;
Params[1].AsInteger:= mes;
Open;
if Eof then
Exit;
SetLength(dias, RecordCount);
while not (eof) do
begin
Inc(i);
dias[i] := Fields[0].AsInteger;
Next;
end;
//Close;
end;
MonthCalendar1.BoldDays(dias, MonthBoldInfo);
except
end;
end;
--
<<<<< 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!.