Работа с image хз как лучше сделать.

[winner13]

Приветствую всех кто эт читает, в общем проблема стоит не реализации проекта, а в том как сделать, нужно рисунок или карту разделить на 12 секторов , и по клику на определённый сектор увеличивать всё что находится в секторе.

Сейчас метаюсь с методом реализации, в общем сделал на форме 2 image объекта, на одном разместил карту, с разрисовкой по конве на 12 секторов, второй скрыл . Снизу 12 кнопок с событиями на клик загрузки из отдельной папки уже увеличенного изображения сектора, и установкой видимости в тру.

как сделать лучше??? кто что посоветует???(ХЗ опыта не хватает как сделать именно чтобы не на кнопки тыкать, а на сами секторы на картинке, или же как реально увеличивать из исходного image...)

[was3110]

TImage имеет размеры, а обработчик события Click (рассмотрите параметры) всегда передает координаты точки клика. Поэтому вы всегда в курсе - в какую точку щелкнул пользователь... можете даже смещать изображение так, чтобы точка клика помещалась в центр...

[Пепел Феникса]

а обработчик события Click (рассмотрите параметры) всегда передает координаты точки клика.

вообще то передают его координаты события OnMouseUp OnMouseDown

[SERG1980]

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var xs,ys,ws,hs,n:integer;
     bmp:TBitMap;
     r,r1:TRect;
begin
//допустим мы хотим разбить имидж с размером сектора 20*20
n:=20;
ws:=n;
hs:=n;
bmp:=TBitMap.Create;
bmp.SetSize(ws,hs);
//теперь узнаем начальные координаты выбранного сектора и отрисуем его на канве формы
xs:=trunc(X/10)*10;
ys:=trunc(Y/10)*10;
//скопируем этот сектор в вмр
r:=Bounds(xs,ys,ws,hs);
bmp.Canvas.CopyRect(bmp.Canvas.ClipRect,image1.Picture.Bitmap.Canvas,r);
r1:=bounds(0,0,ws*2,hs*2);//отрисовываем с увеличением 2
canvas.StretchDraw(r1,bmp);
bmp.Free;
end;