Рисование эллипса на канве и последующее его стирание - Помощь студентам

Vohakisa · 21.05.2010, 10:30

В общем такая проблема, есть объект типа TImage, при выполнении его события MapMouseDown на нём рисуется эллипс, как сделать так, чтобы при следующем событии MapMouseDown, предыдущий эллипс удалялся и рисовался новый? Возможно я использую не то событие? Кстате MapMouseDown использую для чтения координат куда была нажата мышка.

Ol'ga_new · 21.05.2010, 10:55

Попробуй завести переменную типа boolean и проверять её состояние.

vovk · 21.05.2010, 11:50

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

Код:

Image1.Canvas.Brush.Color:=clBtnFace;
Image1.Canvas.FillRect(Image1.ClientRect);
Image1.Canvas.Ellipse(x1,y1,x2,y2);

Vohakisa · 21.05.2010, 14:11

Цитата:

Попробуй завести переменную типа boolean и проверять её состояние.

Если честно, не понял как её использовать

Цитата:

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

Эта команда просто заливает весь TImage в стандартный цвет формы.

В общем решил проблему загрузкой файла в TImage, при каждом клике на самом TImage

21.05.2010, 10:30	#1
Vohakisa Пользователь Регистрация: 11.05.2009 Сообщений: 47	Рисование эллипса на канве и последующее его стирание В общем такая проблема, есть объект типа TImage, при выполнении его события MapMouseDown на нём рисуется эллипс, как сделать так, чтобы при следующем событии MapMouseDown, предыдущий эллипс удалялся и рисовался новый? Возможно я использую не то событие? Кстате MapMouseDown использую для чтения координат куда была нажата мышка.

21.05.2010, 11:50	#3
vovk != Участник клуба Регистрация: 08.09.2008 Сообщений: 1,751	можно просто перед тем как нарисовать элипс залить канву Код: `Image1.Canvas.Brush.Color:=clBtnFace; Image1.Canvas.FillRect(Image1.ClientRect); Image1.Canvas.Ellipse(x1,y1,x2,y2);`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Рисование пирамиды на канве	Eugene	Общие вопросы Delphi	4	17.10.2013 17:27
Двойное рисование линии на канве	gs199	C++ Builder	1	17.05.2010 01:34
Рисование Эллипса	Macwin	Общие вопросы C/C++	1	18.03.2010 14:38
РИсование на КАНВЕ- в Delfi	melloun	Помощь студентам	5	10.01.2010 13:32
рисование на канве и сообщения windows	olchick	Мультимедиа в Delphi	8	23.06.2009 14:52

21.05.2010, 10:55	#2
Ol'ga_new Форумчанин Регистрация: 12.05.2010 Сообщений: 125	Попробуй завести переменную типа boolean и проверять её состояние.