Fórum Pintar dia no MonthCalendar #357127

procedure TForm1.CALENDARIOGetMonthInfo(Sender: TObject; Month: Cardinal; 
  var MonthBoldInfo: Cardinal); 
var dias :array of cardinal; 
   DATA,DATENOW  :TDATETIME; 
begin 
  Q2.CLOSE; 
  Q2.SQL.CLEAR; 
  Q2.SQL.TEXT:=´ SELECT DISTINCT DATA_LEITURA FROM AMCWU ´ 
  +´ ORDER BY DATA_LEITURA DESC´; 
  Q2.OPEN; 
  Q2.FIRST; 


 WHILE NOT Q2.EOF DO 
  BEGIN 
   DATA:=Q2.FIELDBYNAME(´DATA_LEITURA´).AsDateTime; 



   SetLength(dias,Q2.RECORDCOUNT); 

   DATENOW:= STRTOINT(FORMATDATETIME(´MM´,DATA)); 

   if month = DATENOW THEN 
     BEGIN 
      MonthBoldInfo:=0; 
      dias[Q2.RECNO-1]:= STRTOINT(FORMATDATETIME(´DD´,DATA)); 
      CALENDARIO.BoldDays(dias,MonthBoldInfo); 
     END; 

   Q2.Next; 
  end; 
end;