[Tonyy]

как сделать так, чтобы ячейка содержащая четную цифру подсвечивалась бы цветом - например желтым?

[Kapitoshka438]

Обрабатывай событие OnDrawCell.

[Marvel]

как-то вот так

Код:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  s: string;
  i: integer;
begin
  s := (Sender as TStringGrid).Cells[ACol, ARow];
  with (Sender as TStringGrid).Canvas do
  begin
    try // нужно, в случае если в ячейке не число, что бы не выскакивала ошибка
      i := StrToInt(s);
      if (i / 2) = (i div 2) then Font.Color := clYellow {если четное - то желтный цвет}
        else Font.Color := clBlue; {либо синий}
    except // если в ячейке не число
      Font.Color := clRed; // то пишем красным
    end;
  TextOut(Rect.Left + 2, Rect.Top + 2, s); // "отрисовуем" текст
  end;
end;

[Kapitoshka438]

Вот так, наверное, лучше. Тем более, нужно же, чтобы ячейка заливалась цветом, а не цвет текста менялся.

Код:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  X: Integer;
begin
  if TryStrToInt(StringGrid1.Cells[ACol, ARow], X) and (X mod 2 = 0) then
    with StringGrid1.Canvas do
    begin
      Brush.Color := clYellow;
      FillRect(Rect);
      TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);
    end;
end;

А такие приемчики как

Код:

(Sender as TStringGrid).Cells[ACol, ARow]

нужны, когда одна процедура является обработчиком события сразу для нескольких StringGrid'ов.

[Tonyy]

спасибо большое всем.

[Marvel]

ну дык, я человеку просто показывал самый простой и понятный способ