Negritar items em um MonthCalendar

Delphi

03/04/2006

Oi pessoal, blz?

Tenho a seguinte rotina, pela qual consigo ´negritar´ items em um MonthCalendar, de acordo com os dias que eu informar.

Mas eu preciso fazer isso com datas de um banco de dados.

Alguém já fez isso alguma vez?

Segue a rotina, caso alguém consiga adaptar pra mim ficarei grato.

procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
  Month: Cardinal; var MonthBoldInfo: Cardinal);
var
  aDias : Array of cardinal;
begin
  SetLength(aDias,3);
  aDias[0] := 1;
  aDias[1] := 15;
  aDias[2] := 25;
  if month = 3 then
    TMonthCalendar(Self).BoldDays(aDias,MonthBoldInfo);
end;


Abraços,

Fernando


Robotpost

Robotpost

Curtidas 0

Respostas

Motta

Motta

03/04/2006

http://forum.devmedia.com.br/viewtopic.php?t=42603&highlight=monthcalendar&sid=dd299f1400f45142c007688b809b2789


GOSTEI 0
POSTAR