Foros Club Delphi - manejo de fecha con calendario

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - manejo de fecha con calendario (https://www.clubdelphi.com/foros/showthread.php?t=9774)

manejo de fecha con calendario

manejo de fecha con calendario

:confused:
Hola a todos, Estoy empezando en esto de la programacion y como tarea he elegido un programa.

Ya tengo un grid donde se llena la informacion y con la fecha de llegada y fecha de termino calculo el adelanto el atraso y la duracio. Hasta aqui todo bien, pero ahora quisiera mejorar el aspecto visual de la siguiente forma, colocar un calendario donde con distintos colores se indiquen cada una de estas fechas, lo quise hacer con tCalendar pero no me funciona, no se como colocar colores en cada celda, alguna sugerencia al respecto:( :(

no de si conoceras los componentes RX denominados las rusas; miralas por encima, re ofrecen bastantes posibilidades en cuanto a posibilidades de componentes, con efectos, calendarios y demas; en el club debesde tener los link a ellas.

en cuanto a cambiar el color de una celda determinada, prueba con este evento y este codigo:

Cita:

procedure TfGestionAlbaranes.dbGrigAlbaranDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
const
clPaleGreen = TColor($CCFFCC);
clPaleRed = TColor($CCCCFF);
begin
if Column.Field.Dataset.FieldbyName('IMPORTE').AsFloat = 0
then
if (gdFocused in State)
then
begin
dbGrigAlbaran.canvas.brush.color := clBlack;

end
else
begin
dbGrigAlbaran.canvas.brush.color := clPaleGreen;
dbGrigAlbaran.canvas.Font.Color := clRed;
end;
dbGrigAlbaran.DefaultDrawColumnCell(rect,DataCol,Column,State)
end;

si te fijas dependiendo del valor del campo IMPORTE, toma un color u otro;

espero que te sirva