Закраска соседних ячеек StringGrid

[Jekasea]

И всего-то, к StringGrid-у нужно было дописать 1 "НЕ ЗАМЕТИЛ"
СПАСИБО ВСЕМ !

[Jekasea]

Спасибо всем, все получилось.

[Jekasea]

Достаточно даже было написать:

if ((Acol>0) and (Cells[Acol-1,Arow]='âîñêðåñåíüå'))  then begin
           Canvas.font.Color :=clBlack;
           Canvas.Brush.Color :=clRed;
           Canvas.FillRect( Rect );
           Canvas.TextOut(Rect.Left+5, Rect.Top+2, Cells[ACol, ARow]);   end;

и все работает.