Переприсваивание значений

@yesofcourse · Регистрация: 14.03.2017

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

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

C++
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::ImageMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
draw(Image, X, Y, X, Y );
}

@САлександр · 21.05.2018, 13:28

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::ImageMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
[B]static [/B] a;
if(!a) { X1=X; Y1=Y;} else{ X2=X; Y2=Y;}
a=a^1;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
draw(Image, X1, Y1, X2, Y2 );
}

@yesofcourse · 21.05.2018, 18:40 **[ТС]**

САлександр, а если еще будут X3,Y3 ?

@САлександр · 21.05.2018, 19:20

Когда Вы первый раз вызвали MouseUp(...)
первый раз получили X1,Y1; //X2,Y2 - начальные значения или некий мусор
второй - X2,Y2; // 2 точки #1(x1,y1), #2(x2,y2)
третий - X1,Y1; // 2 точки: новая - #3(x1,y1), старая - #2(x2,y2)
4-ый X2.Y2; // 2 точки: старая - #3(x1,y1), новая - #4(x2,y2)
и т.д.
Если надо полностью новые точки-щелкайте мышкой по 2 раза.
Или Вам надо сохранить много точек, а потом строить кривую по любой паре?

@yesofcourse · 21.05.2018, 19:26 **[ТС]**

САлександр, мышкой я задам три точки, соответственно 6 координат, и по ним по всем начну построение
вообще хотел данный http://algolist.manual.ru/grap... besier.php пример редактировать, там правда точки задаются по типу

C++
1
DrawBezier(Image, 10, 10, 550, 50, 800, 600, 1000);

я же захотел их сам отмечать на канве

@САлександр · 21.05.2018, 19:47

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::ImageMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
static  a;
if(!a) { X1=X; Y1=Y;}
  else if (a==1) { X2=X; Y2=Y;}
    else if (a==2) { X3=X; Y3=Y; a=-1;}
a++;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
draw(Image, X1, Y1, X2, Y2, X3,Y3 );
}

@yesofcourse · 21.05.2018, 20:24 **[ТС]**

САлександр, спасибо, заработало, осталось остальное менять под себя

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
int X1,Y1,X2,Y2,X3,Y3;
void __fastcall TForm1::ImageMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
static a;
if(!a) { X1=X; Y1=Y;}
else if (a==1) { X2=X; Y2=Y;}
else if (a==2) { X3=X; Y3=Y; a=-1;}
a++;
Image->Canvas->Pen->Color = clBlue;
Form1->Image->Canvas->Pixels[X][Y];
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
DrawBezier(Image, X1, Y1, X2, Y2, X3, Y3, 1000);
}

@volvo · 21.05.2018, 22:08

Ужас какой...

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const int sz = 3;
int X[sz], Y[sz];
 
void __fastcall TForm1::ImageMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    static int a = 0;
    X[a] = X; Y[a] = Y;
    a = (a + 1) % sz;
 
    Image->Canvas->Pen->Color = clBlue;
    Form1->Image->Canvas->Pixels[X][Y];
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    DrawBezier(Image, X[0], Y[0], X[1], Y[1], X[2], Y[2], 1000);
}

@TrollHammer · 22.05.2018, 14:41

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

a = (a + 1) % sz;

Очень интересное решение!!!

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого 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

@yesofcourse 1 / 1 / 1 Регистрация: 14.03.2017 Сообщений: 59
	21.05.2018, 18:40 [ТС]
	САлександр, а если еще будут X3,Y3 ? 0

@САлександр 483 / 275 / 57 Регистрация: 08.10.2015 Сообщений: 1,189
	21.05.2018, 19:20
	Когда Вы первый раз вызвали MouseUp(...) первый раз получили X1,Y1; //X2,Y2 - начальные значения или некий мусор второй - X2,Y2; // 2 точки #1(x1,y1), #2(x2,y2) третий - X1,Y1; // 2 точки: новая - #3(x1,y1), старая - #2(x2,y2) 4-ый X2.Y2; // 2 точки: старая - #3(x1,y1), новая - #4(x2,y2) и т.д. Если надо полностью новые точки-щелкайте мышкой по 2 раза. Или Вам надо сохранить много точек, а потом строить кривую по любой паре? 0

Переприсваивание значений

Решение