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

@rocky7 · Регистрация: 16.02.2009

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

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

@DanUnited · 19.05.2009, 20:20

C++
1
2
3
4
5
6
7
8
9
TPoint points[7];
points[0]=TPoint(0,0);
points[1]=TPoint(800,30);
points[2]=TPoint(0,40);
points[3]=TPoint(550,400);
points[4]=TPoint(350,200);
points[5]=TPoint(550,400);
points[6]=TPoint(0,500);
Canvas->PolyBezier(points,6);

рисование по точкам в массиве. Держи...

@rocky7 · 19.05.2009, 20:31 **[ТС]**

Это не совсем то. По этому коду рисуется обычная кривая, а мне нужна ломаная .
И главное - её узловые точки должны перетягиваться мышкой.

@DanUnited · 19.05.2009, 20:33

Это не совсем то. По этому коду рисуется обычная кривая, а мне нужна ломаная .
И главное - её узловые точки должны перетягиваться мышкой.

нифига-се... прям CorelDraw..

@rocky7 · 19.05.2009, 20:39 **[ТС]**

Обшарил пол инета. Примера пока не нашел. Такая заготовка по идее используется в
самых примитивных редакторах.

AntonChik · 20.05.2009, 07:43

попробуй так. Кидаешь на форму Image1, Labeln, LabelDrag
в заголовочном файле объявляешь

Code
1
2
    void __fastcall drawp(int np);
    void __fastcall lineall();

далее собственно основной код (сырой, но рабочий):

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
#include <vcl.h>
#pragma hdrstop
 
#include "LivePoints_u1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
const int N=128; // макс. кол-во точек
const int W=5; // толщина точки
int n; // текущее кол-во точек
int p[N][2]; // массив координат точек
bool dragnow; // флаг перетаскивания
int dragn; // номер перетаскиваемой точки
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
int i;
n=0;
for(i=0;i<N;i++){p[i][0]=0;p[i][1]=0;}
return;
}
void __fastcall TForm1::drawp(int np)//рисуем точку
{
int xx=p[np][0],yy=p[np][1];
Image1->Canvas->Rectangle(xx-W,yy-W,xx+W,yy+W);
return;
}
 
void __fastcall TForm1::lineall()// прорисовка ломаной
{
int i;
Image1->Canvas->FillRect(Rect(0,0,Image1->Width,Image1->Height));//очищаем канву
Image1->Canvas->MoveTo(p[0][0],p[0][1]);
drawp(0);
for(i=1;i<n;i++)
 {
 Image1->Canvas->LineTo(p[i][0],p[i][1]);
 drawp(i);
 }
return;
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
int i,xx,yy;
dragnow=false;
for(i=0;i<N;i++)
{
xx=p[i][0],yy=p[i][1];
if( (X>xx-W)&&(X<xx+W)&&(Y>yy-W)&&(Y<yy+W) )
    {
    dragnow=true;dragn=i;
    Image1->Refresh();
    LabelDrag->Caption="Drag";
    break;
    }
}
return;
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
int i,xx,yy;
bool new_point=true;
for(i=0;i<N;i++)
{
xx=p[i][0],yy=p[i][1];
if( (X>xx-W)&&(X<xx+W)&&(Y>yy-W)&&(Y<yy+W) )
new_point=false;
}
if((!dragnow)&&(new_point)) // новая точка
    {
    p[n][0]=X;
    p[n][1]=Y;
    drawp(n);
    n++;
    Labeln->Caption="n = "+IntToStr(n);
    }
if(dragnow) // перетаскиваем точку
{
xx=p[dragn][0],yy=p[dragn][1];
if( (X<xx-W)||(X>xx+W)||(Y<yy-W)||(Y>yy+W) )
    {
    p[dragn][0]=X;
    p[dragn][1]=Y;
    }
}
lineall();
LabelDrag->Caption="";
dragnow=false;
return;
}

думаю оттолкнуться есть от чего.

@VorteX · 12.06.2009, 19:03

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

Обшарил пол инета. Примера пока не нашел. Такая заготовка по идее используется в
самых примитивных редакторах.

Не знаю как ты искал=) но покрайней мере пример корелдрава есть прям на этом форуме=) не помню где, но если нужен исходник то напиши мне я дам ссылку де скачать.

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@rocky7 1 / 1 / 0 Регистрация: 16.02.2009 Сообщений: 26

	Рисование ломаной 19.05.2009, 20:06. Показов 4414. Ответов 6 Метки нет (Все метки) Как можно на канве (TImage) указать, например несколько точек и соединить их отрезками. Нужно, чтобы эти точки перетягивались мышкой . Должна получиться ломаная, которую можно редактировать. 0

@rocky7 1 / 1 / 0 Регистрация: 16.02.2009 Сообщений: 26
	19.05.2009, 20:31 [ТС]
	Это не совсем то. По этому коду рисуется обычная кривая, а мне нужна ломаная . И главное - её узловые точки должны перетягиваться мышкой. 0

@rocky7 1 / 1 / 0 Регистрация: 16.02.2009 Сообщений: 26
	19.05.2009, 20:39 [ТС]
	Обшарил пол инета. Примера пока не нашел. Такая заготовка по идее используется в самых примитивных редакторах. 0