Нарисовать на DrawGrid маленький круг в центре ячейки - Delphi - Ответ 7789241

procedure TForm1.DrawGrid1Click(Sender: TObject);
var d:TRect;
begin
d:=DrawGrid1.CellRect(1,1);//выбираем ячейку для рисования
with DrawGrid1.Canvas do
 begin
  Pen.Color :=clRed;
  with d do
  Ellipse(Left+(Right-Left) div 2-10,Top+(Bottom-Top) div 2-10,
          Left+(Right-Left) div 2+10,Top+(Bottom-Top) div 2+10)
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
    d:TRect;
begin
with DrawGrid1 do
 begin
  for i:=0 to rowcount-1 do
  for j:=0 to colcount-1 do
   begin
    d:=CellRect(j,i);//выбираем ячейку для рисования
    with Canvas do
     begin
      Pen.Color :=clRed;
      with d do
      Ellipse(Left+(Right-Left) div 2-10,Top+(Bottom-Top) div 2-10,
              Left+(Right-Left) div 2+10,Top+(Bottom-Top) div 2+10)
     end;
   end;
 end;
end;