Destacar datas em um TMonthCalendar!

Delphi

03/08/2006

ae pessoal como eu faço para destacar ou até mesmo pintar de cor diferente as datas de um [b:984701a489]MonthCalendar[/b:984701a489] diacordo com as datas cadastradas em uma tabela? :lol:


Paullsoftware

Paullsoftware

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

03/08/2006

ae pessoal como eu faço para destacar ou até mesmo pintar de cor diferente as datas de um [b:6599f4db57]MonthCalendar[/b:6599f4db57] diacordo com as datas cadastradas em uma tabela? :lol:


Ae mano, peguei isso de uma camarda outro dia aqui no fórum. Não me lembro o link, então guardei o exemplo pegai:

procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
  Month: Cardinal; var MonthBoldInfo: Cardinal);
var
  Feriados: array[1..12] of array of cardinal;
begin
  // feriados - ou datas agendadas - do mês de janeiro
  SetLength(Feriados[1],3);
  Feriados[1,0] := 1;
  Feriados[1,1] := 12;
  Feriados[1,2] := 22;

  // feriados - ou datas agendadas - do mês de dezembro
  SetLength(Feriados[12],1);
  Feriados[12,0] := 25;

  // "month" é o mês posicionado no calendário (é um parâmetro do evento)
  // "monthboldinfo" também é um parâmetro
  try
    MonthCalendar1.BoldDays(Feriados[Month],MonthBoldInfo);
  except
  end;
end;



GOSTEI 0
Paullsoftware

Paullsoftware

03/08/2006

é, vou tentar implementar aqui e qualquer coisa retorno... o exemplo está usando Array, mais não há muito creio que a idéia é a mesma, vlw :wink:


GOSTEI 0
Motta

Motta

03/08/2006

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


GOSTEI 0
Paullsoftware

Paullsoftware

03/08/2006

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

certo motta, mas como está a sua instrução SQL dentro da query, eu fiz assim:
select * from FERIADOS where extract(moth from data)=:data
e não deu em nada
fiz assim também e nada
select * from FERIADOS where data=:data


uma forcinha ai :wink:


GOSTEI 0
Motta

Motta

03/08/2006

Teu sistema deve ter uma tabela de feriado.
A minha ideia ali era sinalizar feriados , vc pode querer sinalizar (com negrito) outro dia pro outro critério, só tentei mostar como se faz.


GOSTEI 0
Paullsoftware

Paullsoftware

03/08/2006

Teu sistema deve ter uma tabela de feriado. A minha ideia ali era sinalizar feriados , vc pode querer sinalizar (com negrito) outro dia pro outro critério, só tentei mostar como se faz.


certo mais eu tenho uma tabela com os campos Codigo, Data, faço exatamente como vc mostrou mais não retorna nada...
eu gostaria de saber como está o parametro da linha
Params[0].AsDate := Data;

não tá retornando nada na tabela, fico no aguardo!


GOSTEI 0
Paullsoftware

Paullsoftware

03/08/2006

ta apresentando esse erro:
conversion error from string ´2006-09-01´



GOSTEI 0
POSTAR