Hola ramonibk.
Este código debería pintarte las celdas que son acordes con el dia y mes de las fechas cargadas en LstFechas:
Código Delphi
[-]
...
implementation
uses DateUtils;
var
LstFechas : TStrings;
MesActual : Integer;
...
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
i: Integer;
begin
for i:= 0 to LstFechas.Count-1 do
with StringGrid1 do
begin
if (MonthOf(StrToDate(LstFechas[i])) = MesActual) and
(StrToInt(Cells[ACol,ARow])= DayOf(StrToDate(LstFechas[i]))) then
begin
Canvas.Brush.Color:= clRed;
Canvas.Font.Color:= clWhite;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left,Rect.Top,Cells[ACol,ARow]);
end;
end;
end;
Saludos.