Форум: "Основная";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];
ВнизРисование карандашом на канве! Найти похожие ветки
← →
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]Ну и в каком месте этого кода рисуется линия?
← →
Думкин (2003-09-14 17:23) [8]А теперь подумай, как работает это событие и почему точки, а не линии.
Если понятно - идем -
> [2] Fenik © (13.09.03 19:28).
Но....это не всегда приведет к желаемому. При быстром движении по дуге - будут получаться хорды.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c