Графический редактор

[UnD)eaD)Snake]

Здрыствуте помогите пожалуста. Я делаю чето типа паинта и немогу сделать "рисование кистью" как в паинте.Отлавливаю кнопки так:
if HiWord(GetAsyncKeyState(VK_lBUTTON) ) > 0 then
Если пишу pixels(x,y) и быстро веду мышкой, между точками остаются промежутки. Если пишу lineto(x,y) то както тупо между полосами идет линия. Скажите пожалуцта как сделать нормальное рисование кистью как в паинте??

[mutabor]

Попробуй по таймеру сделать. Если MouseMoove ловить полюбому с пробелами будет, если точки соединять то ломаная линия, чем быстрее мышкой вести, тем больше ломаная. Делай маленький интервал таймера, и по нему вызывай CursorPos или как там ее (WinAPI). Если она будет возвращать экранные координаты преобразуй их с помощью ScreenToClient.
з.ы. Как это сделано в Паинте понятия не имею.

[Alex21]

В MouseMove добавь такой код:

       Form1.Image1.Canvas.Brush.Color:=clRed;
       Form1.Image1.Canvas.Pen.Color:=clRed;
       Form1.Image1.Canvas.Pen.Width:=5;
       Form1.Image1.Canvas.LineTo(x,y);
       Form1.Image1.Canvas.MoveTo(x,y);

Задача в том, что придаем толщину линии.(>=1)

[UnD)eaD)Snake]

спс все работает!

[UnD)eaD)Snake]

ой нет, тот дефект все еще остался. Там иногда соединяются сами проведенные линии

[Alex21]

Дара ясновидения у меня никогда не было, опиши проблему подробней.

[UnD)eaD)Snake]

ну вобщем когда я зажимаю лклик, веду, потом отпускаю лклик, рисуется линия все норм. Но бывает так:
Я зажимаю лклик, рисую, отпускаю лклик, хочу опять ченить нарисовать, зажимаю лклик, И рисуется какаято линия между этой четрой и прошлой чертой.....
Короче попробуй сам этот код компилировать, посмотришь..

[Alex21]

А у тебя в TForm1.Image1MouseDown есть такое:

Image1.Canvas.MoveTo(x,y);{Переводим маркер на новую позицию}
down:=true; {Булевская переменная, может называться подругому, 
служит для определения нажатия мыши}

[UnD)eaD)Snake]

Image1.Canvas.MoveTo(x,y); это есть
а

[UnD)eaD)Snake]

ой
а down не распознает. Это ваще четакое должно быть?