F�rum TCalendar Delphi #608485

06/03/2020

Ol�, estou come�ando em Delphi e tentando fazer um calend�rio com TCalendar, a ideia era quando eu fornecesse uma data, ela ficasse em vermelho (no componete) j� tentei de tudo e n�o encontro nada que resolva, se alguem puder me instruir, eu agradeceria muito. (� meu primeiro post aqui, se eu fizer algo errado me desculpem)

Gabriel Gonzaga

Curtir t�pico

+ 0

Responder

Post mais votado

06/03/2020

N�o sei qual vers�o do Delphi voc� est� usando. Eu uso a vers�o XE10 e nela h� o componente TCalendarView. Nele � bem f�cil fazer o que voc� quer, a partir do evento OnDrawDayItem. Por exemplo:

procedure TForm3.CalendarView1DrawDayItem(Sender: TObject;
  DrawParams: TDrawViewInfoParams; CalendarViewViewInfo: TCellItemViewInfo);
begin
  if (CalendarViewViewInfo.Date = (Date - 2)) or (CalendarViewViewInfo.Date = (Date + 2)) then
    DrawParams.BkColor := clRed;
end;

No exemplo acima, o calend�rio ir� pintar de vermelho o dia correspondente ao dia atual -2 dias, e tamb�m o dia correspondente ao dia atual +2 dias.

Emerson Nascimento

Responder

Gostei + 1

Mais Posts

06/03/2020

Gabriel Gonzaga

procedure TForm3.CalendarView1DrawDayItem(Sender: TObject;
  DrawParams: TDrawViewInfoParams; CalendarViewViewInfo: TCellItemViewInfo);
begin
  if (CalendarViewViewInfo.Date = (Date - 2)) or (CalendarViewViewInfo.Date = (Date + 2)) then
    DrawParams.BkColor := clRed;
end;

No exemplo acima, o calend�rio ir� pintar de vermelho o dia correspondente ao dia atual -2 dias, e tamb�m o dia correspondente ao dia atual +2 dias.

Atualmente uso o Delphi 10 Seattle no Windows 7, ser� que esse componente aparece pra mim se eu abrir no Win 10? se n�o, ser� que consigo colocar esse componente no Delphi 10? em todos os casos eu instalo a vers�o XE10

Responder

Gostei + 0

06/03/2020

Emerson Nascimento

a minha � a Delphi 10.3 Rio (Community Edition)
acredito que na Delphi 10 Seattle exista o componente

Responder

Gostei + 0