F�rum Negritar items em um MonthCalendar #318242

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

Curtir t�pico

+ 0

Responder

Posts

03/04/2006

Motta

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

Responder

Gostei + 0