Вопрос по Морскому бою

[Stwl3]

Я делаю морской бой, и я новичок)))
Поле противника состоит из 10*10 квадратиков в paintbox'e.
Подскажите каким образом сделать так чтобы, при выстреле (нажатии на paintbox) квадратик выстрела появлялся не там где курсор мыши, а четко по середине квадратика поля?
Здесь нужно вогнать квадратик в двумерный массив? Каким макаром?

[phomm]

напиши код, как сделал, точнее будут советы...
у тебя, по идее, клетки рисуются линиями или типа того, так вот у каждой клетки есть ширина и высота (по идее они ещё и равны , клетки квадратные), с учетом которых чертились лини, поэтому можно сделать примерно так:

tform1.pantbox1mousedown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer)
var cell_x, cell_y : word;
begin
cell_x := x div cellwidth ; // получим координату Х клетки по курсору и ширине клетки
cell_y := y div cellheight ; // аналогично У
рисуем кружок по центру клетки
paintbox1.canvas.ellipse(round((1/3+cell_x)*cellwidth), round((1/3+cell_y)*cellheight), round((2/3+cell_x)*cellwidth), round((2/3+cell_y)*cellheight)
end;

код не проверял, но, думаю, смысл понятен

[Stwl3]

cellwidth и cellheight - что это? Это не из таблицы ли?
У меня квадратики нарисованы тупо canvas

[Stwl3]

Вот часть кода рисующая одно поле

procedure TForm2.Button1Click(Sender: TObject);
begin
x0:=0;
y0:=0;
with Paintbox1.Canvas do
begin
  for i := 1 to 10 do
    begin
    x0:=2;
    for j := 1 to 10 do
      begin
         Brush.Color:=clSkyBlue;
          rectangle(x0,y0,x0+25,y0+25);
           x0:=x0+25;
      end;
          y0:=y0+25;
end;

end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[phomm]

ну вот у Вас cellwidth и cellheight(это просто я так эти переменные назвал) и будут 25, единственно, что по Х Вы рисуете правее на 2 пикселя

тогда вам нужно весь код вписать, только заменить

cell_x := x div cellwidth ; // получим координату Х клетки по курсору и ширине клетки
cell_y := y div cellheight ; // аналогично У

на

cell_x := (x - 2) div 25 ; // получим координату Х клетки по курсору и ширине клетки
cell_y := y div 25 ; // аналогично У

Но ! я настоятельно рекомендую завести константу и назвать её как-то вроде SIZE и присвоить ей 25, т.е. const size = 25; и везде в коде вместо 25 писать size / тогда если захотите поменять размер клетки(допустим риснки корабликов влазить не будут) то Вы легко их подгоните меняя лишь число в 1 месте а не в 10, привыкайте программировать яснее и дальновиднее )