Pintar Calendário

[Marcos Santana]

Colegas quero criar um form de cadastro de feriados para uma escola.

Más gostaria que ao cadastrar o dito feriado, o mesmo ficasse pintado num componente estilo Month Calendar, alguém já fez algo assim pois não encontrei uma maneira de pintar a célula do componente com a cor cadastrada ex: dia 7 de setembro no Calendar ficaria azul.

Tem como fazer algo assim no Delphi 7?

:huh:

[Jhonas]

Colega se voce usar o componente TMonthCalendar, no máximo , vai conseguir deixar em negrito os dias que voce quiser, mas se quiser colorir a celula do dia vai ter que usar outro componente .... qual a versão do delphi que voce usa ?

OBS: o codigo abaixo é para deixar em negrito os dias 1, 9, e 18

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls;

type
  TForm1 = class(TForm)
    MonthCalendar1: TMonthCalendar;
    procedure MonthCalendar1GetMonthInfo(Sender: TObject; Month: Cardinal;
      var MonthBoldInfo: Cardinal);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
  Month: Cardinal; var MonthBoldInfo: Cardinal);
begin
  MonthCalendar1.BoldDays([1,9,18], MonthBoldInfo); // deixar os dias em negrito
end;

end.

[Marcos Santana]

Estou usando Delphi 7, poderia de dar mais informações sobre esse outro componente.

Obrigado pela força. :lol:

[Jhonas]

Componente calendario para pintar as celulas

http://www.tmssoftware.com/download/plannercal.zip

Caso queira mudar o visual de sua aplicação, neste endereço vai encontrar componentes visuais bem legais

http://www.tmssoftware.com/

Editado Outubro 29, 2007 por Jhonas