Рисование карандашом на канве!

← →
MIKL (2003-09-13 18:15) [0]

Подскажите пожалуйста: как рисовать карандашом на канве, на подобие Paint-а и т.д. Лично я использовал закраску пикселов и они... вощем плохо закрашивались! С какой-то задержкой...

← →
MIKL (2003-09-13 19:10) [1]

Та-ак, очень жаль...

← →
Fenik © (2003-09-13 19:28) [2]

MoveTo
LineTo

← →
pasha_golub © (2003-09-13 20:01) [3]

TCanvas+F1

← →
MIKL (2003-09-14 14:37) [4]

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

← →
Думкин © (2003-09-14 16:03) [5]

Дык, ясно почему. Ты как эти точки ставишь? Где и как? Приведи код.

← →
MIKL (2003-09-14 16:39) [6]

Вот он, труд моего гения :)
procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
StatusBar1.Panels[0].Text:=" X: "+IntToStr(X);
StatusBar1.Panels[1].Text:=" Y: "+IntToStr(Y);
Image3.Canvas.Pixels[X,Y]:=Image1.Canvas.Brush.Color;
Image3.Canvas.Pixels[X,Y]:=Image1.Canvas.Brush.Color;
end;

← →
Плохиш_ (2003-09-14 17:22) [7]

Ну и в каком месте этого кода рисуется линия?

А теперь подумай, как работает это событие и почему точки, а не линии.
Если понятно - идем -
> [2] Fenik © (13.09.03 19:28).
Но....это не всегда приведет к желаемому. При быстром движении по дуге - будут получаться хорды.

Рисование карандашом на канве! Найти похожие ветки