Joint-точки в TImage

@DCamer · Регистрация: 02.05.2010

Как можно вклеить такие точки в TImage?

P.S. Как в Pivot Stickfigure Animator

@Roma_F · 02.05.2010, 23:21

зачем такие сложности, не пугайте человека
это же простая фигара из окружностей и прямоугольников

@Grey · 02.05.2010, 23:33

это же простая фигура из окружностей и прямоугольников

Согласен. Как нарисовать прямоугольник под углом?

@Roma_F · 02.05.2010, 23:43

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

Как нарисовать прямоугольник под углом?

C++
1
2
3
    Canvas->Pen->Width = 20;
    Canvas->MoveTo(10,10);
    Canvas->LineTo(100,150);

@MikeSoft · 03.05.2010, 01:33

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

это же простая фигура из окружностей и прямоугольников

простой фигурой изображение станет только тогда, когда будет обрисовано примитивами.
В остальных случаях - это картинка без прав на "простые управления".
И судя из обсуждений в теме, это далеко не обработка конкретного случая.

Если же автор желает ограничиться только тем, что в приложении можно будет обрабатывать только одну картинку - то я вообще не понимаю, в чём проблема.
При создании этой модели человека заносите координаты составляющих фигур в массив.
А при добавлении точек проверяйте на какую часть указывает данная точка.
Таким образом сможете получить и указатель на фигуру. Её и поворачивайте.

@Roma_F · 03.05.2010, 08:53

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

простой фигурой изображение станет только тогда, когда будет обрисовано примитивами.
В остальных случаях - это картинка без прав на "простые управления".
И судя из обсуждений в теме, это далеко не обработка конкретного случая.

Управлять нужно не картинкой а "скелетом" (с "простым управлением") - Pivot Stickfigure Animator. Не нужны даже упомянутые мной прямоугольники - что упрощает задачу.

@mirso · 03.05.2010, 14:13

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

вклеить

C++
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
#include "math.h"
TPoint t[2];
 
bool P1 = false, P2 = false;
int x1(200), x2(200), y1(200), y2(100);
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDblClick(TObject *Sender)
{
    t[0] = Point ( x1, y1 );
    t[1] = Point ( x2, y2 );
    Canvas->Polygon ( t, 1 );
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
      if ( abs(X - x1) < 5 && abs(Y - y1) < 5 )  P1 = true;
      if ( abs(X - x2) < 5 && abs(Y - y2) < 5 )  P2 = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    if ( P1 ) t[0] = Point ( x1 = X, y1 = Y );
    if ( P2 ) t[1] = Point ( x2 = X, y2 = Y );
 
    if( P1 != P2)
    {
        PatBlt(Canvas->Handle, 0, 0, ClientWidth, ClientHeight, PATCOPY );
        Canvas->Polygon ( t, 1 );
    }
    Canvas->Pen->Width = 2;                  Canvas->Pen->Color  = clYellow;
     Canvas->Ellipse(x1-2, y1-2, x1+3, y1+3); Canvas->Pen->Color  = clLime;
      Canvas->Ellipse(x2-2, y2-2, x2+3, y2+3); Canvas->Pen->Color  = clTeal;
    Canvas->Pen->Width = 8;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{     P1 = P2 = false;               }
//---------------------------------------------------------------------------

@Grey · 03.05.2010, 20:55

mirso, а если точек больше двух?

У меня имаге 2 и 3, точки перемещения, с нарисованными красными кругами.

C++
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
int x=300,y=300,x1,y1,x2,y2,a,b;
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->Image2->Top=395;
Form1->Image2->Left=295;
Form1->Image3->Top=495;
Form1->Image3->Left=295;
 
y1=Form1->Image2->Top-y+5;
x1=Form1->Image2->Left-x+5;
 
y2=Form1->Image3->Top-Form1->Image2->Top;
x2=Form1->Image3->Left-Form1->Image2->Left;
 
Form1->Image1->Canvas->Pen->Width=10;
Form1->Image1->Canvas->MoveTo(x,y);
Form1->Image1->Canvas->LineTo(x+x1,y+y1);
Form1->Image1->Canvas->MoveTo(x+x1,y+y1);
Form1->Image1->Canvas->LineTo(x+x1+x2,y+y1+y2);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image3MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
a=X;
b=Y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image3MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (Shift.Contains(ssLeft))
{
int z=X;
int c=Y;
 
Form1->Image1->Canvas->FillRect(Rect(0,0,Image1->Width,Image1->Height));
 
Form1->Image3->Left=Form1->Image3->Left-a+z;
Form1->Image3->Top=Form1->Image3->Top-b+c;
 
y2=Form1->Image3->Top-Form1->Image2->Top;
x2=Form1->Image3->Left-Form1->Image2->Left;
 
Form1->Image1->Canvas->MoveTo(x,y);
Form1->Image1->Canvas->LineTo(x+x1,y+y1);
Form1->Image1->Canvas->MoveTo(x+x1,y+y1);
Form1->Image1->Canvas->LineTo(x+x1+x2,y+y1+y2);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
a=X;
b=Y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image2MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (Shift.Contains(ssLeft))
{
int z=X;
int c=Y;
 
Form1->Image1->Canvas->FillRect(Rect(0,0,Image1->Width,Image1->Height));
 
Form1->Image2->Left=Form1->Image2->Left-a+z;
Form1->Image2->Top=Form1->Image2->Top-b+c;
 
y1=Form1->Image2->Top-y+5;
x1=Form1->Image2->Left-x+5;
 
y2=Form1->Image3->Top-Form1->Image2->Top;
x2=Form1->Image3->Left-Form1->Image2->Left;
 
Form1->Image1->Canvas->MoveTo(x,y);
Form1->Image1->Canvas->LineTo(x+x1,y+y1);
Form1->Image1->Canvas->MoveTo(x+x1,y+y1);
Form1->Image1->Canvas->LineTo(x+x1+x2,y+y1+y2);
}
}

@mirso · 03.05.2010, 23:46

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

mirso, а если точек больше двух?

Grey, всЁ поправимо!

C++
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
//---------------------------------------------------------------------------
#include <vector>
#include "math.h"
std::vector<TPoint> t;
int L = 5;
int P = -1;
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDblClick(TObject *Sender)
{
    t.push_back( TPoint(100, 200));
    t.push_back( TPoint(200, 100));
    t.push_back( TPoint(300, 200));
    Canvas->Ellipse(95, 195, 105, 205);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    for (size_t i = 0; i < t.size(); ++i)
    if ( abs(X - t[i].x) < 5 && abs(Y - t[i].y) < 5 )
    { P = i; break; }  
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    if( P >= 0 )
    {
        t[P] = TPoint ( X, Y );
        PatBlt(Canvas->Handle, 0, 0, ClientWidth, ClientHeight, PATCOPY );
        Canvas->Pen->Width = 8;  Canvas->Pen->Color  = clTeal;
        Canvas->Polygon( &t.at(0), t.size()-1 );
        Canvas->Pen->Width = 2;   Canvas->Pen->Color  = clLime;
        for(size_t i = 0; i < t.size(); ++i)
        {
            Canvas->Ellipse(t[i].x-L, t[i].y-L, t[i].x+L, t[i].y+L);
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{     P = -1; }
//---------------------------------------------------------------------------

Добавлено через 22 минуты
а если так ↓, то выйдут - кривые Безье

C++
1
2
3
    t.push_back( TPoint(200, 300));//4
    Canvas->PolyBezier( &t.at(0), t.size()-1 );
    Canvas->PolyBezierTo( &t.at(0), t.size()-1 );

@mirso · 05.05.2010, 02:41

C++
1
std::vector<TPoint> t(40, TPoint(100, 300));

@lebid · 06.05.2010, 19:34

Ребята ктото знает как можно загужать рисунки в Image1 в коду

@mirso · 06.05.2010, 22:20

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

как можно загужать рисунки в Image1

lebid, вот так

C++
1
    Image1->Picture->LoadFromFile( "ImageF_1.JPG" );

Новые блоги и статьи Все статьи Все блоги /
[golang] Конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. alhaos 10.06.2026 Задача Реализовать конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. Сигнатура func Fetch(urls string, maxConcurrent int) Result Пример urls :=. . .	[golang] Состояние гонки (race condition) alhaos 10.06.2026 Состояние гонки (race condition) Состояние гонки (Race Condition) — это ошибка, возникающая при одновременном доступе нескольких горутин к одним и тем же данным без должной синхронизации. При этом. . .	Взрослые отношения, и почему они не получаются kumehtar 09.06.2026 Когда в детстве ребёнок не получает от родителей чего-то важного, он лишается не просто приятных переживаний, а основы для формирования определённых внутренних качеств и навыков. Если ребёнок не. . .	[golang] Worker Pool alhaos 09.06.2026 Worker Pool Worker Pool — паттерн конкурентной обработки задач в Go. Суть: фиксированное количество горутин-воркеров читают задачи из общего канала и пишут результаты в общий канал результатов. . . .
[golang] Pipeline alhaos 08.06.2026 Pipeline Pipeline — паттерн конкурентной обработки данных в Go. Суть: данные проходят через цепочку независимых стадий, каждая из которых работает в своей горутине и общается с соседями через. . .	Свет внутри себя kumehtar 07.06.2026 Пусть это будет здесь lIs4oanZS9Y	Программа для com-порта Uhbif79 05.06.2026 Всем привет, давно хотел изучить Qt, начинал, бросал, потом снова начинал. И сейчас вот смог написать свою первую программу. До этого имел опыт программирования микроконтроллеров, писал прошивки на. . .	Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .

@DCamer 0 / 0 / 0 Регистрация: 02.05.2010 Сообщений: 8

	Joint-точки в TImage 02.05.2010, 17:17. Показов 3668. Ответов 30 Метки нет (Все метки) Как можно вклеить такие точки в TImage? P.S. Как в Pivot Stickfigure Animator Миниатюры 0

@Roma_F 332 / 247 / 32 Регистрация: 13.12.2009 Сообщений: 589
	02.05.2010, 23:21
	зачем такие сложности, не пугайте человека это же простая фигара из окружностей и прямоугольников 0

@lebid 4 / 4 / 1 Регистрация: 15.04.2010 Сообщений: 134
	06.05.2010, 19:34
	Ребята ктото знает как можно загужать рисунки в Image1 в коду 0