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

[Jekasea]

У меня в StringGrid в первой колонке выводятся дни недели, а во второй числа месяца соответствующие этим дням.
Ячейки с ВОСКРЕСЕНЬЕМ закрашиваю красным

if TStringGrid(Sender).Cells[Acol,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;

Как мне раскрасить числа в соседней колонке соответствующие ВОСКРЕСЕНИЯМ то-же красным ?
Ведь ни какого условия не поставить.

[Аватар]

Ведь ни какого условия не поставить

Прям не поставишь.

if ((Acol>0) and (Cells[Acol-1,Arow]='воскресенье')) or
   ((Acol<StringGrid.ColCount-1) and (Cells[Acol+1,Arow]='воскресенье')) then ...

[Jekasea]

Выдает ошибку на Acol<StringGrid.ColCount-1 - неизвестный идентификатор StringGrid

[Аватар]

Откуда мне знать как грид ваш называется? Или имя вашего грида или TStringGrid(Sender)

[Jekasea]

Именно так TStringGrid(Sender)

[Jekasea]

Привожу мой код по раскраске полностью

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);

 begin
  with  StringGrid1  do
 begin
  if TStringGrid(Sender).Cells[Acol,Arow]='  выходной' then begin
    Canvas.font.Color :=clRed;
    Canvas.Font.Style:=[fsBold, fsItalic];
    Canvas.FillRect( Rect );
    Canvas.TextOut(Rect.Left, Rect.Top+2, Cells[ACol, ARow]);   end;
     if ((Acol>0) and (Cells[Acol-1,Arow]='воскресенье')) or
   ((Acol<StringGrid1DrawCell.ColCount-1) and (Cells[Acol+1,Arow]='воскресенье')) then
        if TStringGrid(Sender).Cells[Acol,Arow]='суббота'  then begin
          Canvas.Brush.Color :=clRed;
          Canvas.FillRect( Rect );
          Canvas.TextOut(Rect.Left+5, Rect.Top+2, Cells[ACol, ARow]);   end;
             if TStringGrid(Sender).Cells[Acol,Arow]='Отработано'  then begin
               Canvas.Brush.Color :=clYellow;
               Canvas.FillRect( Rect );
               Canvas.TextOut(Rect.Left+5, Rect.Top+2, Cells[ACol, ARow]);   end;
         if TStringGrid(Sender).Cells[Acol,Arow]='   (ЧАСОВ)'  then begin
           Canvas.Brush.Color :=clYellow;
           Canvas.FillRect( Rect );
           Canvas.TextOut(Rect.Left+5, Rect.Top+2, Cells[ACol, ARow]);   end;

      if strtointdef(TStringGrid(Sender).Cells[Acol,Arow],0)>100  then begin
        Canvas.Brush.Color :=clYellow;
        Canvas.FillRect( Rect );
        Canvas.TextOut(Rect.Left+5, Rect.Top+2, Cells[Acol, Arow]);   end;
 end;
 end;

[northener]

Acol<StringGrid1DrawCell.ColCount-1

Неужели компилится?

[Jekasea]

в строке

(Acol<StringGrid1DrawCell.ColCount-1)

выдает ошибку Not enough actual parameters.

[Jekasea]

Какой параметр он просит???

[DpolenST]

Сообщение от Jekasea

в строке

(Acol<StringGrid1DrawCell.ColCount-1)

выдает ошибку Not enough actual parameters.

(Acol<StringGrid1.ColCount-1)