Pintar dia no MonthCalendar
14/04/2008
0
Pessoal tem como por exemplo eu pintar o dia num monthcalendar.
Exemplo:
Tenho um banco de dados com datas assim
01/04/2008
05/04/2008
06/04/2008
08/04/2008
13/04/2008
Ai no monthcalendar ficar com estes dias pintados, assim se eu clicar em um destes dias filtra a base no dbgrid.
OBS: O Filtro eu sei fazer, apenas preciso saber se tem como pintar is dias no monthcalendar ou outro componente parecido.
Pode ser algum da JEDILib tambem.
Grato
Adriano
Exemplo:
Tenho um banco de dados com datas assim
01/04/2008
05/04/2008
06/04/2008
08/04/2008
13/04/2008
Ai no monthcalendar ficar com estes dias pintados, assim se eu clicar em um destes dias filtra a base no dbgrid.
OBS: O Filtro eu sei fazer, apenas preciso saber se tem como pintar is dias no monthcalendar ou outro componente parecido.
Pode ser algum da JEDILib tambem.
Grato
Adriano
Adriano_servitec
Curtir tópico
+ 0
Responder
Posts
14/04/2008
Adriano_servitec
Só pra deixar postado como resolvi com o monthcalendar, se alguem precisar do código tai
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;
Responder
05/06/2009
Maickelpc
adriano, nesse caso voce esta negritando os dias desejados, certo?
voce sabe como eu poderia pintar de vermelhor(exemplo) os dias que eu quero?
voce sabe como eu poderia pintar de vermelhor(exemplo) os dias que eu quero?
Responder
Clique aqui para fazer login e interagir na Comunidade :)