Проблема с рисованием на канве в TPaintBox

[pro100-delphi]

я начинающий в программирование, хоть и начал увлекаться этим давно. Вот теперь решил освоить графику в delphi, начал с canvas
Я написал простенькую программу, которая рисует в paintBox по нажатию на нём.

у меня есть переменная vniz: boolean; она принимает значение true когда левая кнопка мыши нажата на paintbox'е b и значение false когда кнопка опущена. При движение мыши по paintbox'у проверяется, значение переменной vniz и если оно равно true то по место расположению курсора ставиться пиксель
это выглядит вот так:

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
vniz:= true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
vniz:= false;
end;

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
vniz:= false;
end;

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if vniz=true then paintbox1.Canvas.Pixels[x,y]:= 0;
end;

проблема в том, что если двигать мышью медленно то кривая получается нормальной, а если быстро то периодической (вернее на пройденом пути мыши остаётся куча точек)
вопрос: подскажите как этого избежать? компьютер у меня нормальный и дело не в нём (по крайней мере, в фотошопе у меня всё в порядке).
сразу говорю, что не надо говорить мне, что можно использовать LineTo мне нужна кривая а не прямая линия.
заранее спасибо

[Stilet]

Замени

paintbox1.Canvas.Pixels[x,y]:= 0;

на
paintbox1.Canvas.LineTo(x,y)

[ImmortalAlexSan]

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

[pro100-delphi]

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

Замени

на
paintbox1.Canvas.LineTo(x,y)

я же говорил мне нужна кривая линия

[russian-stalker]

lineto и только его.

[pro100-delphi]

Ладно перефразирую
При смещение курсора хотя бы на один пиксель, этот пискель должен закраситься - в результате этого выйдет КРИВАЯ ЛИНИЯ
а вы мне суёте свой LineTO блин
вопрос состоит в тот как сделать так, что бы эта кривая не была разрывистой

[ImmortalAlexSan]

Что плохого в lineto? Я же написал. Вычислите координаты курсора getcursorpos и двигайте эту вашу прямою Lineto от коордиты к координате в цикле или в таймере, у вас не получится прямая линия, вам всё правильно советуют.

[pro100-delphi]

ДА КРИВАЯ МНЕ НУЖНА!!!
О господи за что мне это!?

[ImmortalAlexSan]

Вот посмотрите пожалуйста пример. Уже забыл как делал, три года назад изучал графику, набросал быстренько. Того исходника не нашёл. Может это то что надо.
Такс... Немного доработал, думаю, что сейчас будет то, что вам нужно... файл перезалил.
Смотрите, если то, что нужно - отпишитесь об удачном результате, если нет - будем дальше думать.
Я вот сейчас даже гравическим планшетом рисовал в своей проге Все работает отлично! Прилагаю скрин шот.

[pro100-delphi]

спасибо большое
прекрасно! моя проблема решена с меня репутация