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

@B00blegum · Регистрация: 24.10.2015

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

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

C++
1
2
3
4
5
6
7
8
void __fastcall TForm2::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
 
if (!Shift.Contains(ssLeft))
    Form2->Canvas->MoveTo (X,Y);
    Form2->Canvas-> LineTo (X,Y);
}

@lifeforce · 25.05.2018, 00:46

B00blegum,
довольно просто!

C++
1
2
3
4
5
6
7
8
9
TPoint pt;// нажата кнопка мыши
 
событие для левой кнопки мыши
Form2->Canvas->MoveTo (pt.x, pt.y);
 
а для правой 
Form2->Canvas-> LineTo (pt.x, pt.y);
 
delete pt;

@B00blegum · 25.05.2018, 07:36 **[ТС]**

можно увидеть полный код?

@TrollHammer · 25.05.2018, 08:02

Можно и так:

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

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
TPoint pp[1000];
int i;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
     i=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
      if(i<1000){
       pp[i].x=X;
       pp[i].y=Y;
       i++;
      }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    fRedraw(); //функцию объявляем членом класса Form1 в .h
}
//---------------------------------------------------------------------------
 
void TForm1::fRedraw(void)
{
   if(i>1)
    Image1->Canvas->Polyline(pp, i-1);
 
}

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

C++
1
2
3
4
5
6
7
8
void __fastcall TForm2::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
   if (Shift.Contains(ssShift)) //здесь можно задать нужную кнопку мыши (if (Button==mbRight))
    Canvas->MoveTo (X,Y); //если нажат shift - установили позицию
   else
    Canvas-> LineTo (X,Y); //иначе нарисовали линию
}

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

@B00blegum 0 / 0 / 0 Регистрация: 24.10.2015 Сообщений: 9
	25.05.2018, 07:36 [ТС]
	можно увидеть полный код? 0

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

Решение