[planod]

Доброго времени суток всем. Необходимо по нажатию кнопки в Image получить координаты и отрисовать окружность с

центром в точке нажатия. Координаты нажатия у меня получается получить так:

Код:

var
foo: TPoint;
x,y: integer;
begin
   GetCursorPos(foo);
 x:=foo.X;
 y:=foo.Y;

Далее пытаюсь нарисовать окружность с помощью

Код:

Image1.Canvas.Rectangle(foo.X,foo.Y,foo.X+10,foo.Y+10);

Но вместо нарисованной окружности получаю белый фон Image :cry:
Подскажите, как сделать так, чтобы окружность нарисовалась в необходимом месте компонента.

[Aristarh Dark]

GetCursorPos возвращает экранные координаты, а тебе нужны координаты имиджа.

[Janom]

Да и еще:

Код:

Image1.Canvas.Rectangle(foo.X,foo.Y,foo.X+10,foo.Y+10){ - ЭТО КВАДРАТ или ПРЯМОУГОЛЬНИК}

А Вам надо:

Код:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Image1.Canvas.Ellipse(X,Y,X+10,Y+10)
end;

GetCursorPos - не надо, в событиях OnMouseDown,OnMouseMove,OnMouseUp и так есть положения курсора на объекте...

[HunteRus]

Можно с помощью битмапа:

Код:

...
  var BM: TBitMap; // глобальная
...
  BM := TBitMap.Create; //где-то в коде но перед выполнением нажатий
  BM.Width := Image1.Width;
  BM.Height := Image1.Height;
  BM.Canvas.Rectangle(0, 0, Image1.Width, Image1.Height)
...

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  BM.Canvas.Ellipse(X - 5, y - 5, x + 5, y + 5);
  Image1.Picture.Assign(BM);
end;

Так и мерцать не будет

[angvelem]

Подытожив всё вышесказанное, можно добавить: рисовать на TImage - изврат, можно, но это не лучший вариант. В данном случае, лучше использовать TPaintBox.

[Pilot_Red]

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

Подытожив всё вышесказанное, можно добавить: рисовать на TImage - изврат, можно, но это не лучший вариант. В данном случае, лучше использовать TPaintBox.

интересно на основании чего ты сделал такие выводы??

[angvelem]

Выводы сделаны уже давно и не мной (не только мной). TImage позволяет рисовать, так как имеет холст, но это его второстепенная задача, TPaintBox - ориентирован только для этого.

[planod]

Всем спасибо за решение проблемы)