Перемещение фигур мышкой

@Bandikuto · Регистрация: 15.02.2022

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

Здравствуйте. У меня есть программа, которая создает фигуры. Их можно перемещать при помощи кнопок, задавая параметры в SpinEdit. Как сделать так, чтобы можно было перемещать выбранную фигуру мышкой не используя SpinEdit и кнопки "Вверх", "Вниз", "Вправо", "Влево"?

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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
#include <vcl.h>
#include <fstream>
#pragma hdrstop
 
#include "Unit4.h"
using namespace std;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cspin"
#pragma resource "*.dfm"
TForm4 *Form4;
 
struct Figura {
    int x1;
    int y1;
    int x2;
    int y2;
    AnsiString CvetFig;
    AnsiString TipFig;
 
};
 
int i=0;
const int KF = 50;
Figura mas_fig[KF];
int KolFig = 0; // счетчик фигур, считанных из файла
Figura *mf;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::FormCreate(TObject *Sender)
{
    Image1->Canvas->Brush->Color = clWhite;
    Image1->Canvas->FillRect(Rect(0,0, Image1->Width, Image1->Height));
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    if (Shift.Contains(ssLeft) ) {   // && 1 < KT-1
        LabeledEdit_X1->Text = X;
        LabeledEdit_Y1->Text = Y;
    }
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button_SaveClick(TObject *Sender)
{
    if (SaveDialog1->Execute()) {
        ofstream fout(SaveDialog1->FileName.w_str());
        if (!fout) {
            Application->MessageBoxW(L"Файловая ошибка", L"Ошибка", MB_OK);
            return;
        }
        for (int j = 0; j < i; j++) {
            fout << mas_fig[j].x1 << "  " <<  mas_fig[j].y1 << "  " << mas_fig[j].x2 << "  " << mas_fig[j].y2  << "  " <<
                 mas_fig[j].CvetFig.c_str() << " " <<
                 mas_fig[j].TipFig.c_str();
            fout << endl;
        }
        fout.close();
        Application->MessageBoxW(SaveDialog1->FileName.w_str(),L"Данные сохранены", MB_OK);
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm4::Button_ClearClick(TObject *Sender)
{
    Image1->Canvas->Brush->Color = clWhite;
    Image1->Canvas->FillRect(Rect(0,0, Image1->Width, Image1->Height));
    for (int j = 0; j < i; j ++) {
        mas_fig[j].x1 = 0;
        mas_fig[j].y1 = 0;
        mas_fig[j].x2 = 0;
        mas_fig[j].y2 = 0;
        mas_fig[j].CvetFig.Delete(1, mas_fig[i].CvetFig.Length());
        mas_fig[j].TipFig = "";
    }
    i = 0;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm4::Button_LoadClick(TObject *Sender)
{
    if (OpenDialog1->Execute()) {
        Memo1->Clear();
        Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
        KolFig = (Memo1->Lines->Count);
        ifstream fin(OpenDialog1->FileName.w_str());
        mf = new Figura [KolFig];
        char cvet[256], tip_fig[64];
        for (int j = 0; j < KolFig; j++) {
            fin >> mf[j].x1 >> mf[j].y1 >> mf[j].x2 >> mf[j].y2 >> cvet >> tip_fig;
            mf[j].CvetFig = AnsiString(cvet);
            mf[j].TipFig = AnsiString(tip_fig);
 
            if (mf[j].TipFig == "Line") {
                Image1->Canvas->Pen->Color = StringToColor(mf[j].CvetFig);
                Image1->Canvas->MoveTo(mf[j].x1, mf[j].y1);
                Image1->Canvas->LineTo(mf[j].x2, mf[j].y2);
            }
            if (mf[j].TipFig == "Rectangle") {
                Image1->Canvas->Pen->Color = StringToColor(mf[j].CvetFig);
                Image1->Canvas->Rectangle(mf[j].x1 , mf[j].y1, mf[j].x2 , mf[j].y2);
            }
            if (mf[j].TipFig == "Ellipse") {
                Image1->Canvas->Pen->Color = StringToColor(mf[j].CvetFig);
                Image1->Canvas->Ellipse(mf[j].x1, mf[j].y1, mf[j].x2, mf[j].y2);
            }
        }
    }
}
//---------------------------------------------------------------------------
 
 
//---------------------------------------------------------------------------
 
void __fastcall TForm4::MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
        LabeledEdit_X2->Text = X;
        LabeledEdit_Y2->Text = Y;
        mas_fig[i].x1 = StrToInt(LabeledEdit_X1->Text);
        mas_fig[i].y1 = StrToInt(LabeledEdit_Y1->Text);
        mas_fig[i].x2 = StrToInt(LabeledEdit_X2->Text);
        mas_fig[i].y2 = StrToInt(LabeledEdit_Y2->Text);
 
        if (RadioGroup_Cvet->ItemIndex == 0) mas_fig[i].CvetFig = "clRed";
        if (RadioGroup_Cvet->ItemIndex == 1) mas_fig[i].CvetFig = "clGreen";
        if (RadioGroup_Cvet->ItemIndex == 2) mas_fig[i].CvetFig = "clBlue";
 
        Image1->Canvas->Pen->Color = StringToColor(mas_fig[i].CvetFig);
        if (RadioGroup_Tip->ItemIndex == 0) {
            mas_fig[i].TipFig = "Line";
            Image1->Canvas->MoveTo(mas_fig[i].x1, mas_fig[i].y1);
            Image1->Canvas->LineTo(mas_fig[i].x2, mas_fig[i].y2);
        }
 
        if (RadioGroup_Tip->ItemIndex == 1) {
            mas_fig[i].TipFig = "Rectangle";
            Image1->Canvas->Rectangle(mas_fig[i].x1, mas_fig[i].y1, mas_fig[i].x2, mas_fig[i].y2);
        }
 
        if (RadioGroup_Tip->ItemIndex == 2) {
            mas_fig[i].TipFig = "Ellipse";
            Image1->Canvas->Ellipse(mas_fig[i].x1, mas_fig[i].y1, mas_fig[i].x2, mas_fig[i].y2);
        }
 
        i++;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm4::Button_LeftClick(TObject *Sender)
{
    int delta_x = CSpinEdit1->Value;
 
    if (i > 0) {
        for (int j = 0; j < i; j++) {
                mas_fig[j].x1 -= delta_x;  mas_fig[j].x2 -= delta_x;
        }
        Image1->Canvas->Brush->Color = clWhite;
        Image1->Canvas->FillRect(Rect(0,0, Image1->Width, Image1->Height));
        for (int j = 0; j < i; j++) {
            if (mas_fig[j].TipFig == "Line") {
                Image1->Canvas->Pen->Color = StringToColor(mas_fig[j].CvetFig);
                Image1->Canvas->MoveTo(mas_fig[j].x1, mas_fig[j].y1);
                Image1->Canvas->LineTo(mas_fig[j].x2, mas_fig[j].y2);
            }
            if (mas_fig[j].TipFig == "Rectangle") {
                Image1->Canvas->Pen->Color = StringToColor(mas_fig[j].CvetFig);
                Image1->Canvas->Rectangle(mas_fig[j].x1, mas_fig[j].y1, mas_fig[j].x2, mas_fig[j].y2);
            }
            if (mas_fig[j].TipFig == "Ellipse") {
                Image1->Canvas->Pen->Color = StringToColor(mas_fig[j].CvetFig);
                Image1->Canvas->Ellipse(mas_fig[j].x1, mas_fig[j].y1, mas_fig[j].x2, mas_fig[j].y2);
            }
        }
 
    }
}
 
void __fastcall TForm4::Button_RightClick(TObject *Sender)
{
int delta_x = CSpinEdit1->Value;
 
    if (i > 0) {
        for (int j = 0; j < i; j++) {
                mas_fig[j].x1 += delta_x;  mas_fig[j].x2 += delta_x;
        }
        Image1->Canvas->Brush->Color = clWhite;
        Image1->Canvas->FillRect(Rect(0,0, Image1->Width, Image1->Height));
        for (int j = 0; j < i; j++) {
            if (mas_fig[j].TipFig == "Line") {
                Image1->Canvas->Pen->Color = StringToColor(mas_fig[j].CvetFig);
                Image1->Canvas->MoveTo(mas_fig[j].x1, mas_fig[j].y1);
                Image1->Canvas->LineTo(mas_fig[j].x2, mas_fig[j].y2);
            }
            if (mas_fig[j].TipFig == "Rectangle") {
                Image1->Canvas->Pen->Color = StringToColor(mas_fig[j].CvetFig);
                Image1->Canvas->Rectangle(mas_fig[j].x1, mas_fig[j].y1, mas_fig[j].x2, mas_fig[j].y2);
            }
            if (mas_fig[j].TipFig == "Ellipse") {
                Image1->Canvas->Pen->Color = StringToColor(mas_fig[j].CvetFig);
                Image1->Canvas->Ellipse(mas_fig[j].x1, mas_fig[j].y1, mas_fig[j].x2, mas_fig[j].y2);
            }
        }
 
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm4::Button_UpClick(TObject *Sender)
{
int delta_y = CSpinEdit2->Value;
 
if (i > 0) {
        for (int j = 0; j < i; j++) {
                mas_fig[j].y1 -= delta_y;  mas_fig[j].y2 -= delta_y;
        }
        Image1->Canvas->Brush->Color = clWhite;
        Image1->Canvas->FillRect(Rect(0,0, Image1->Width, Image1->Height));
        for (int j = 0; j < i; j++) {
            if (mas_fig[j].TipFig == "Line") {
                Image1->Canvas->Pen->Color = StringToColor(mas_fig[j].CvetFig);
                Image1->Canvas->MoveTo(mas_fig[j].x1, mas_fig[j].y1);
                Image1->Canvas->LineTo(mas_fig[j].x2, mas_fig[j].y2);
            }
            if (mas_fig[j].TipFig == "Rectangle") {
                Image1->Canvas->Pen->Color = StringToColor(mas_fig[j].CvetFig);
                Image1->Canvas->Rectangle(mas_fig[j].x1, mas_fig[j].y1, mas_fig[j].x2, mas_fig[j].y2);
            }
            if (mas_fig[j].TipFig == "Ellipse") {
                Image1->Canvas->Pen->Color = StringToColor(mas_fig[j].CvetFig);
                Image1->Canvas->Ellipse(mas_fig[j].x1, mas_fig[j].y1, mas_fig[j].x2, mas_fig[j].y2);
            }
        }
 
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm4::Button_DownClick(TObject *Sender)
{
int delta_y = CSpinEdit2->Value;
 
if (i > 0) {
        for (int j = 0; j < i; j++) {
                mas_fig[j].y1 += delta_y;  mas_fig[j].y2 += delta_y;
        }
        Image1->Canvas->Brush->Color = clWhite;
        Image1->Canvas->FillRect(Rect(0,0, Image1->Width, Image1->Height));
        for (int j = 0; j < i; j++) {
            if (mas_fig[j].TipFig == "Line") {
                Image1->Canvas->Pen->Color = StringToColor(mas_fig[j].CvetFig);
                Image1->Canvas->MoveTo(mas_fig[j].x1, mas_fig[j].y1);
                Image1->Canvas->LineTo(mas_fig[j].x2, mas_fig[j].y2);
            }
            if (mas_fig[j].TipFig == "Rectangle") {
                Image1->Canvas->Pen->Color = StringToColor(mas_fig[j].CvetFig);
                Image1->Canvas->Rectangle(mas_fig[j].x1, mas_fig[j].y1, mas_fig[j].x2, mas_fig[j].y2);
            }
            if (mas_fig[j].TipFig == "Ellipse") {
                Image1->Canvas->Pen->Color = StringToColor(mas_fig[j].CvetFig);
                Image1->Canvas->Ellipse(mas_fig[j].x1, mas_fig[j].y1, mas_fig[j].x2, mas_fig[j].y2);
            }
        }
 
    }
}

@VTsaregorodtsev · 24.02.2023, 18:01

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

AnsiString CvetFig;
AnsiString TipFig;

После этих строк - дальше читать не стал.

@Bandikuto · 24.02.2023, 18:53 **[ТС]**

А что, собственно, не так? Нам так говорил преподаватель

@VTsaregorodtsev · 24.02.2023, 21:44

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

А что, собственно, не так?

Тип фигуры лучше сделать перечислимым типом (enum).
Ибо у AnsiString любой оператор сравнения определён только в виде
operator ххх(const AnsiString& rhs)
- т.е. любой rhs в откомпилированном коде всегда будет конвертироваться в AnsiString (для чего будет сначала вызываться конструктор, а после выполнения сравнения - деструктор для временно созданного объекта). Ну и к этому приплюсуются тормоза от посимвольного сравнения строк. В общем, подумай об "экономичности" этих действий по сравнению с простым сравнением двух целочисленных значений (при целочисленном enum-типе).
Ну и корректность строковых литералов (тех значений, которыми ты сейчас назначаешь/проверяешь состояние объекта) никак не контролируется компилятором, т.е. привет возможным опечаткам (и, затем, неверной работе проги). А вот указания "состояний" перечислимого типа - при компиляции будут проверяться компилятором на синтаксическую корректность.

С цветом - есть стандартный для Билдера тип TColor, его и надо юзать для данных в памяти (для описания состояния объекта-фигуры). Потому, что если понадобится использовать выбираемые/назначаемые (через TColorDialog или как-то иначе) пользователем цвета - то очевидно, что никакие явно вписанные в код литералы вида "clХрень" тут полностью не помогут.
А StringToColor() и ColorToString() лучше применить только при чтении-записи файла данных (если уж так хочется иметь читаемый человеческим глазом текстовый файл данных вместо двоичного файла).

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

Нам так говорил преподаватель

Это плохой (в плане знания языка и VCL) преподаватель.

@Bandikuto · 24.02.2023, 23:17 **[ТС]**

Спасибо, конечно, но мне это объяснять бесполезно. Я в программировании, в частности на C++, полный 0

@D1973 · 25.02.2023, 05:29

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

мне это объяснять бесполезно

А кому это объяснять? Это именно Вам надо - вот и начинайте разбираться.

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

Я в программировании, в частности на C++, полный 0

Это не С++, а С++ Builder - это две большие разницы.
И Вы с такой гордостью заявляете о своем невежестве... Ну так бросайте это дело, не компостируйте мозг ни себе, ни людям.

@nick42 · 25.02.2023, 05:31

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

Здравствуйте. У меня есть программа

Программа-то может быть и есть, но, судя по приведенному коду, ее еще требуется довести до рабочего состояния. Само по себе перемещение фигур мышкой - не такая уж сложная задача. Например: для перемещения фигуры '0' при помощи правой кнопки мышки достаточно добавить следующий обработчик__

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
//---------------------------------------------------------------------------
void __fastcall TForm4::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    if(!Shift.Contains(ssRight)) return;
    Image1->Picture = NULL;
    int j=0;
    L1=mas_fig[j].x1,L2=mas_fig[j].x2, T1=mas_fig[j].y1,T2=mas_fig[j].y2;
     L1+=X-mx; L2+=X-mx; T1+=Y-my; T2+=Y-my;
    Image1->Canvas->Pen->Color = StringToColor(mas_fig[j].CvetFig);
    Image1->Canvas->Ellipse(L1,T1,L2,T2);
}
//---------------------------------------------------------------------------

(общие переменные L1,L2,T1,T2,mx,my изменяются при нажатии и отпускании кнопки мыши). Сложность в том, что программа сохраняет в файл всю кучу созданных фигур. И выборочно двигать какую-то одну - задачка не средней сложности, особенно учитывая вашу самооценку...

@Bandikuto · 25.02.2023, 13:34 **[ТС]**

У меня есть этот предмет в университете. Была бы моя воля, уже бы давно всё это бросил, поверьте. Если сначала и были попытки изучить это, то сейчас уже просто понимаю, что только потрачу время.

Добавлено через 13 минут

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

И Вы с такой гордостью заявляете о своем невежестве

Не знаю где вы там гордость в тексте разглядели, но я просто говорю честно, не строю из себя не пойми кого

@Bandikuto · 06.03.2023, 14:43 **[ТС]**

А нельзя как-то через событие MouseDown, чтобы отслеживать в границе какой фигуры падает курсор, и эту фигуру перемещать? Я не знаю как это реализовать

@nick42 · 06.03.2023, 16:07

Вообще, есть функция, определяющая по координатам - находится ли точка внутри прямоугольной площади (PtInRect()). Но в вашем случае фигуры не только прямоугольники, да и пересекаться они могут самым произвольным образом. И еще... - постановка задачи - на мой взгляд - допускает варианты, а значит не вполне корректная.

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@Bandikuto 1 / 1 / 0 Регистрация: 15.02.2022 Сообщений: 53
	24.02.2023, 18:53 [ТС]
	А что, собственно, не так? Нам так говорил преподаватель 0

@Bandikuto 1 / 1 / 0 Регистрация: 15.02.2022 Сообщений: 53
	24.02.2023, 23:17 [ТС]
	Спасибо, конечно, но мне это объяснять бесполезно. Я в программировании, в частности на C++, полный 0 0

@Bandikuto 1 / 1 / 0 Регистрация: 15.02.2022 Сообщений: 53
	06.03.2023, 14:43 [ТС]
	А нельзя как-то через событие MouseDown, чтобы отслеживать в границе какой фигуры падает курсор, и эту фигуру перемещать? Я не знаю как это реализовать 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	06.03.2023, 16:07
	Вообще, есть функция, определяющая по координатам - находится ли точка внутри прямоугольной площади (PtInRect()). Но в вашем случае фигуры не только прямоугольники, да и пересекаться они могут самым произвольным образом. И еще... - постановка задачи - на мой взгляд - допускает варианты, а значит не вполне корректная. 0