Рисование линий

@Vladant · Регистрация: 26.03.2010

Студворк — интернет-сервис помощи студентам

Дорогие друзья! Я создаю что-то типа редактора изображений. Но вдруг у меня из памяти вылетело. Как можно мышкой рисовать по форме! Я использовал Canvas->LineTo и Canvas->MovieTo! Но рисуются только точки! Я помню был другой способ, но я его забыл, а той книги где я его читал под рукой нет! Помогите кому не трудно!

@DanUnited · 19.07.2010, 15:39

LineTo используй в событие OnKeyDown а
MoveTo используй в событии OnKeyUp

@NiTan · 19.07.2010, 19:38

Как нарисовать линию

@Vladant · 19.07.2010, 21:53 **[ТС]**

DanUnited, Способ хороший, но при перемещении мыши на другое место и если нажать клавишу то линий соединяется с прошлой линией!

Nitan, Спасибо! Но это моя тема! И я имею ввиду карандаш

@DanUnited · 19.07.2010, 22:04

DanUnited, Способ хороший, но при перемещении мыши на другое место и если нажать клавишу то линий соединяется с прошлой линией!

делай запоминание еще в одну переменную, а лучше в массив переменных и обрабатывай через таймер.

@NiTan · 19.07.2010, 22:09

Vladant, можеть быть так:

C++
1
2
3
4
5
6
void __fastcall TForm1::ImageMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
Image1->Canvas->Pixels[X][Y]=clBlack;
}
//---------------------------------------------------------------------------

Только этот способ очень плохой.

@Vladant · 19.07.2010, 22:15 **[ТС]**

Кажется этот! Спасибо! Только чем он очень плохой!

@NiTan · 19.07.2010, 22:30

Vladant, быстро мышкой поводите и ответите себе на вопрос сами. К тому же, закрашиваться будет только один пиксель, так что он подойдет только в качестве карандаша....

@Grey · 19.07.2010, 22:59

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Shift.Contains(ssLeft))//åñëè íàæàòà ëåâàÿ
{
Image1->Canvas->MoveTo(X,Y);//íà÷àëî ëèíèè
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (Shift.Contains(ssLeft))
{
Image1->Canvas->LineTo(X,Y);//ðèñóåì
}
}

@NiTan · 19.07.2010, 23:05

Grey, вот это отличный способ.

Новые блоги и статьи Все статьи Все блоги /
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK сделайте это, JDK, то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Перейдите по ссылке:. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .

@Vladant 8 / 9 / 0 Регистрация: 26.03.2010 Сообщений: 108

	Рисование линий 19.07.2010, 14:14. Показов 5575. Ответов 9 Метки нет (Все метки) Дорогие друзья! Я создаю что-то типа редактора изображений. Но вдруг у меня из памяти вылетело. Как можно мышкой рисовать по форме! Я использовал Canvas->LineTo и Canvas->MovieTo! Но рисуются только точки! Я помню был другой способ, но я его забыл, а той книги где я его читал под рукой нет! Помогите кому не трудно! 0

@DanUnited Программист TH 292 / 147 / 12 Регистрация: 06.01.2009 Сообщений: 537
	19.07.2010, 15:39
	LineTo используй в событие OnKeyDown а MoveTo используй в событии OnKeyUp 1

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	19.07.2010, 19:38
	Как нарисовать линию 0

@Vladant 8 / 9 / 0 Регистрация: 26.03.2010 Сообщений: 108
	19.07.2010, 21:53 [ТС]
	DanUnited, Способ хороший, но при перемещении мыши на другое место и если нажать клавишу то линий соединяется с прошлой линией! Nitan, Спасибо! Но это моя тема! И я имею ввиду карандаш 0

@Vladant 8 / 9 / 0 Регистрация: 26.03.2010 Сообщений: 108
	19.07.2010, 22:15 [ТС]
	Кажется этот! Спасибо! Только чем он очень плохой! 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	19.07.2010, 22:30
	Vladant, быстро мышкой поводите и ответите себе на вопрос сами. К тому же, закрашиваться будет только один пиксель, так что он подойдет только в качестве карандаша.... 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	19.07.2010, 23:05
	Grey, вот это отличный способ. 0

Рисование линий

Решение