Клетки StringGrid, в которых четные числа закрасить красным, нечетные - синим цветами. - Delphi - Ответ 4703516

procedure TForm1.FormCreate(Sender: TObject);
var
ACol, ARow:Integer;
begin
Randomize; //генерируем случайные числа
 for ARow :=0 to strngrd1.RowCount-1 do
 for ACol :=0 to strngrd1.ColCount-1 do
 begin
strngrd1.Cells[ACol,ARow] :=IntToStr(Random(99)+1); //заполняем ими StringGrid
 end;
end;
 
// закрашиваем ячейки
procedure TForm1.strngrd1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if  StrToInt(strngrd1.Cells[ACol,ARow]) mod 2=0 then //если число в ячейке
                                    //четное, то
begin
with strngrd1.Canvas do
begin
Brush.Color:= clRed; //закрашиваем прямоугольную область ячейки
 //в красный цвет
FillRect(Rect);
TextOut(Rect.Left+2, Rect.Top+2, strngrd1.Cells[ACol, ARow]);
end;
end
else // иначе (если нечетное)
with strngrd1.Canvas do
begin
Brush.Color:= clBlue; //окрашиваем в синий цвет
FillRect(Rect);
TextOut(Rect.Left+2, Rect.Top+2, strngrd1.Cells[ACol, ARow]);
end;
end;
 
end.