Как очистить Canvas?

[Pro_BerSerK]

Проблема состоит в том что мне необходимо при нажатии на кнопку мыши нарисовать на изображении одну точку при повторном нажатии эту точку стереть и поставить новую! Единственное что у меня получиломь это либо натыкать множество точек, либо одну но со стиранием самого изображения! Пожалуйста помогите мне это реализовать.

[B_N]

А зачем Вам стирать точку? Ставьте новую и всё.

[BOBAH13]

Вообщем не понятно что Вы хотитет ? Или канву отчистить, или на картинке какие то точки ставить и причем непонятным мне образом, почему интересно при выводе точек на канву она стераеться.... Вообщем точней скажите что вы хоитет ?!

[Pro_BerSerK]

Допустим у меня загружена картинка не важно какая! С помощью этого кода я рисую на ней точку.
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
image1.Canvas.MoveTo(x,y);
image1.Canvas.LineTo(x,y);
end;
При повторном нажатии на ктопку вырисовывается еще одна точка, а мне кокрас этого и не надо мне необходимо чтоб там была всего одна точка!

[B_N]

Вы как-то очень загадочно точку рисуете. SetPixel разве не то, что Вам надо?

[Pro_BerSerK]

С этим огромное спасибо, как то сам не догадался! От сюда следует еще вопрос. Имеет ли SetPicsel значение (Width) тоесть мне нужно увеличить размер пикселя!

[Pro_BerSerK]

Но мой прежний вопрос остается в силе как все же мне при нажатии на мышь поставить всего один пиксель на изображение, а не великое множество!

[B_N]

"SetPixel со значением Width" - это Rectangle, Ellipse, FillRect, Polygon и т.д. Я что касается первого вопроса, то пока непонятно, что Вы всё-таки делаете-то

при нажатии на кнопку мыши нарисовать на изображении одну точку при повторном нажатии эту точку стереть и поставить новую

[AlDelta]

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

При повторном нажатии на ктопку вырисовывается еще одна точка, а мне кокрас этого и не надо мне необходимо чтоб там была всего одна точка!

Можно наложить на Image PaintBox и обрабатывать для него нажатие мыши, рисовать соответственно тоже по PaintBox'y. Перед каждым рисование обновлять: PaintBox1.Refresh;

SetPixel описание:
function SetPixel(DC: HDC; X, Y: Integer; Color: TColorRef): Longint;

Рисует элемент изобpажения в указанной точке.

Паpаметpы:
DC: Идентификатоp контекста устpойства.
X, Y: кооpдинаты точки.
Color: Стpуктуpа TColorRef, опpеделяющая цвет pаскpаски точки.

P.S.:

Но мой прежний вопрос остается в силе как все же мне при нажатии на мышь поставить всего один пиксель на изображение, а не великое множество!

procedure TForm1.PaintBox1Click(Sender: TObject);
begin
PaintBox1.Refresh;
PaintBox1.Canvas.Rectangle(dx-1,dy-1,dx+1,dy+1);
end;

[Pro_BerSerK]

AlDelta огромное спасибо я наконец то добился того чего хотел!!! Да и всем остальным тоже спасибо за помощь!!!