Координаты расставления.

[Манжосов Денис :)]

Есть такой код:

procedure TMainForm.MapMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
bmp: TBitmap;
i: integer;
Array1: array of TPoint;
begin
bmp:=TBitmap.Create;
bmp.LoadFromFile('bmp1.bmp')
Inc(I);
SetLength(Array1, i);
Array1[i-1].X:=X;
Array1[i-1].Y:=Y;
Image1.Canvas.Draw(Array1[i-1].X, Array1[i-1].Y, bmp1);
end;

Надо сделать такую не простую проверку(простите, если не смог нормально объяснить).
В общем если пользователь нажал в промежуток X = от 0 до 25 и Y=от 0 до 25 то нарисовать рисунок в точке 0,0. Если пользоваетль нажал в X=от 25 до 50 и Y=от 25 до 50 то нарисовать рисунок в точке 25,25. И так далее, увеличивая всё на 25. Как создать эту проверку? Размер формы может быть любой.

[evg_m]

OnMouseUp/OnMouseDown

cx:=(x div 25)*25;
cy:=(y div 25)*25;

[mihali4]

Размер формы может быть любой

Но не больше размера экрана, наверное?
Ну и делайте проверку вниз:

var i: integer;
begin
for i:=1 to Round(Width/25)-1 do
if userx>Width-i*25 then
break;
xpos:=i*25;
ypos:=xpos;
end;

Или - как evg_m предложил.

[Манжосов Денис :)]

To Mihali4.
В коде непонятно куда эту проверку вставить, а переменная userx ведь должно иметь какое-то начальное значение, а его нет...

[AVer]

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

OnMouseUp/OnMouseDown

cx:=(x div 25)*25;
cy:=(y div 25)*25;

По моему вот правильное решение, или я чего то не понимаю?..

[mihali4]

Сообщение от Манжосов Денис :)

To Mihali4.
В коде непонятно куда эту проверку вставить, а переменная userx ведь должно иметь какое-то начальное значение, а его нет...

??? В вашу процедуру, где юзер тыкает мышкой в некую точку.
userx... М-да, догадаться, что это координаты "тычка" мышкой юзером, практически невозможно...