Программа рисования полигонов

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <math.h>
//#include <dialogs.hpp>
#pragma hdrstop
 
#include "Poligon1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
    int i,z;     //счетчик точек
    AnsiString path,aFileName;
    TPoint *za;
    za = new TPoint[n];
    TPoint ttPoints[1];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    TSearchRec aSearchRec;
    aFileName = "";
    PaintMes(); //вывод сообщ.в центре Image
 
    path=GetCurrentDir()+"\\polygonDB\\";
 
    if (FindFirst(path + "*.db" ,faAnyFile,aSearchRec)==0)
    {
        ListBox1->Items->Add(aSearchRec.Name);
        while ( FindNext(aSearchRec) == 0)
        {
            ListBox1->Items->Add(aSearchRec.Name);
        }
    FindClose(aSearchRec);
    }
 
    //======всплывающие подсказки, оформленные в несколько строк.
    Application->HintHidePause=50000;         //всплывающая подсказка на 50сек.
    RadioGroup1->Hint="Режим \"рисование полигона\"\r\nНажатие левой кнопки мыши в области рисования полигона - устанавливает соответствующую точку полигона\r\nНажатие правой кнопки мыши в области рисования полигона - рисует полигон по заданным точкам\r\n\r\nРежим \"Редактирование полигона\"\r\nВыберите необходимое действие в \"редакторе полигона\"(по умолчанию \'переместить выделенную точку\') " ;
    RadioGroup2->Hint="Режим \"Переместить выделенную точку\"\r\nВыделите в области\'Координаты точек полигона\'номер точки для перемещения\r\nи нажатием любой кнопки мыши в области рисования полигона установите новое положение точки\r\n\r\nРежим \"Удалить выделенную точку\"\r\nВыделите в области\'Координаты точек полигона\'номер точки для удаления\r\nи нажатием на кнопку \"Удалить\"подтвердите удаление выделенной точки\r\n\r\nРежим \"Рассечь ребро новой точкой\"\r\nВыделите в области\'Координаты точек полигона\'номер конечной точки рассекаемого ребра\r\nи нажатием любой кнопки мыши в области рисования полигона рассеките ребро полигона новой точкой\r\nПРИМЕР:если необходимо рассечь ребро с номерами точек 3 и 4 выделите точку 4\r\nи нажатием любой кнопки мыши в области рисования полигона рассеките ребро полигона 3-4 новой точкой\r\nТочка с номером 4 станет точкой - 5.Новая точка получит номер 4.\r\nЕсли необходимо рассечь ребро с первой и последней точкой полигона - необходимо выделить первую точку полигона";
    ListBox1->Hint="База данных полигонов\r\n\r\nПРИМЕЧАНИЕ:\r\nЕсли имя полигона не отображается полностью- \r\nвыделите данный полигон нажатием левой кнопки мыши\r\nи дождитесь всплывающей подсказки,в которой будет содержаться полное имя полигона\r\nВНИМАНИЕ!При выборе/смене полигона работа с текущем полигонам прекращается.\r\nБудет предложено сохранить текущей(измененный) полигон";
    TrackBar1->Hint="Вращение полигона вокруг его центра\r\n\r\n\ПРИМЕЧАНИЕ:\r\nМаксимальный поворот 360 градусов\r\nОдна метка шкалы равна 45 градусам";
    TrackBar2->Hint="Выбор толщины ребер полигона\r\n\r\nПРИМЕЧАНИЕ:\r\nМаксимальная толщина ребра полигона равна 30\r\nОдна метка шкалы равна 1";
    Splitter1->Hint="Разделитель\r\n\r\nПутем перетаскивания выберите удобное для Вас соотношение \r\nразмеров окон базы данных полигонов и их координат соответственно";
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintMes(void)  // ф-ия вывода по центру Image сообщения mes
{
    String mes="Область рисования полигона";
    Image1->Canvas->TextOutA((Image1->ClientWidth/2-Canvas->TextWidth(mes)/2),  //вывод по центру Image сообщения mes
                              Image1->ClientHeight/2,
                               mes);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Primen(void)//функция для рисования полигона с номерами всех вершин,вызывается каждый раз для рисования
{
 
    if (StringGrid1->RowCount == 1 )   //если 1 или нет точек - ничего не дел.
        return;
    Image1->Picture = 0;                                   //обнулили картинку и установили выбранне параметры рисования полигона, а именно
    Image1->Canvas->Brush->Color = ColorDialog1->Color;    //задали цвет заливки полигона (цвет выбран SpeedButton1)
    Image1->Canvas->Pen->Color = ColorDialog2->Color;      //задали цвет ребер полигона (цвет выбран SpeedButton2)
    Image1->Canvas->Pen->Width = TrackBar2->Position;      //задали толщину ребер полигона выбранным положением ползунка TrackBar1
 
 
    for (int i=0; i<StringGrid1->RowCount; i++)
    {
        tPoints[i].x=StrToInt(StringGrid1->Cells[1][i]);     //записываем координаты всех имеющихся точек из StringGrid1 в tPoints для рисования
        tPoints[i].y=StrToInt(StringGrid1->Cells[2][i]);
        StringGrid1->Cells[0][i]=i+1;
    }
    Image1->Canvas->Polygon(tPoints,StringGrid1->RowCount-1);// непосредственно рисование полигона по точкам tPoints
 
    Image1->Canvas->Brush->Color = clWhite ;                 //перед выводом номеров точек определили цвет фона как белый
    for (int i=0; i<StringGrid1->RowCount; i++)
    {
        Image1->Canvas->TextOutA(StrToInt(StringGrid1->Cells[1][i]),    //вывод номера точки возле своей вершины
                                 StrToInt(StringGrid1->Cells[2][i]),
                                 StrToInt(i+1));
    }
}
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
    if (ColorDialog1->Execute())            //вызвали окно диалога выбора цвета заливки полиона
       Primen();                            //и перерисовали полигон с новым выбранным цветом заливки полигона
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::SpeedButton2Click(TObject *Sender)
{
    if (ColorDialog2->Execute())                 //вызвали окно диалога выбора цвета ребер полиона
    Primen();                                    //и перерисовали полигон с новым выбранным цветом ребер
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::TrackBar2Change(TObject *Sender)
{
    Primen();   //перерисовали полигон с новой измененной толщиной ребра
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioGroup1Click(TObject *Sender)   //"Выбор режима"
{
    if ( RadioGroup1->ItemIndex == 1)      //если выбран режим - "редактирование полигона"
        RadioGroup2->Enabled = true;       //становится активным "редактор полигона"
    else                                   //если выбран режим - "рисование полигона"
    {
        RadioGroup2->Enabled = false;      //"редактор полигона"  не активен
        RadioGroup2->ItemIndex = 0;        //и установлен в положение "переместить выделенную точку"
        Button2->Enabled = false;          //кнопка "удалить" не активна
    }
}
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioGroup2Click(TObject *Sender)   //"редактор полигона"
{
    if ( RadioGroup2->ItemIndex == 1)   //если  "редактор полигона" установлен в "удалить выделенную точку"
        Button2->Enabled = true;        //кнопка "удалить выделенную точку" активна
    else
        Button2->Enabled = false;       //иначе не активна
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)  //кнопка "Удалить" текущую точку полигона
{
    if (StringGrid1->RowCount == 1)                //если нажать на кнопку "удалить" когда 1 или нет точек в StringGrid1
    {
        StringGrid1->Rows[0]->Clear();             //удалить текущую 1 точку из StringGrid1
        i=0;                                       //сбросить счетчик рисования точек
        Image1->Picture = 0;                       //стереть все нарисованное
        PaintMes();                                //вывести по центру Image сообщение mes
        return;
    }
 
    for (int i=StringGrid1->Row; i < StringGrid1->RowCount; i++)       //удаляем текущую точку из StringGrid1
    {
        for (int j=0; j < StringGrid1->ColCount; j++)                 //для этого
            StringGrid1->Cells[j][i]=StringGrid1->Cells[j][i+1];
    StringGrid1->Rows[i+1]->Clear();
    }
 
    StringGrid1->RowCount--;      //кол-во точек -1
    i=StringGrid1->RowCount;      //счетчик рисования точек = кол-во строк в StringGrid1
    Primen();                     //перерисовали полигон
 
}
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::TrackBar1Change(TObject *Sender)   //вращение полигона
{
    if (StringGrid1->RowCount == 1 )     //если 1 или нет точек - ничего не дел.
    return;
 
    Panel1->Enabled=false;               //если вращаем полигон,то любые другие действия запрещены
    Panel2->Enabled=false;
    BitBtn1->Visible = true;             //кроме кнопок сохранения вращения полигина: "да "  "нет"  и текста "сохранить изменения?"
    BitBtn2->Visible = true;
    Label1->Visible=true;
    Image1->Enabled=false;
 
    //центр вращения полигона-это центр тяжести многоугольника.Масса находится только в вершинах, каждая вершина "весит" одинаково
    //координаты центра тяжести вычисляются как Xc=(X1 + ... + XN)/N    Yc = (Y1 + ... + YN)/N
    int summ=0;
    for (int i=0; i<StringGrid1->RowCount; i++)
        summ+=StrToInt(StringGrid1->Cells[1][i]);    // числитель вышепреведенной формулы Xc
    float x0=summ/StringGrid1->RowCount;               //Xc
 
    summ=0;                                           //обнулили переменную числителя Xc, для подсчета Yc
    for (int i=0; i<StringGrid1->RowCount; i++)
        summ+=StrToInt(StringGrid1->Cells[2][i]);    // числитель вышепреведенной формулы Yc
    float y0=summ/StringGrid1->RowCount;               //Yc
 
 
 
    for (int k=0; k<StringGrid1->RowCount; k++)
    {
        float X=StrToInt(StringGrid1->Cells[1][k]);     //читаем координаты точки из StringGrid1
        float Y=StrToInt(StringGrid1->Cells[2][k]);
 
        float alfa= TrackBar1->Position*(M_PI/180);        //угол поворота "альфа" многоугольника определяется положением ползунка TrackBar1 в градусах(переведен из радиан в градусы)
 
        float X1=x0+(X-x0)*cos(alfa)+(Y-y0)*sin(alfa);        //пересчитываем координаты каждой точки после вращения на угол "alfa"
        float Y1=y0-(X-x0)*sin(alfa)+(Y-y0)*cos(alfa);
 
        ttPoints[k].x=X1;                               //записываем новые координаты в ttPoints
        ttPoints[k].y=Y1;
    }
 
    Image1->Picture = 0;                                //очистили картинку
 
    Image1->Canvas->Brush->Color = ColorDialog1->Color; //и нарисовали новый полигон после вращения с учетом заданных цвета заливки,цвета и толщины ребер полигона
    Image1->Canvas->Pen->Color = ColorDialog2->Color;
    Image1->Canvas->Pen->Width = TrackBar2->Position;
    Image1->Canvas->Polygon(ttPoints,StringGrid1->RowCount-1);
 
    Image1->Canvas->Brush->Color = clBlack;
    Image1->Canvas->Ellipse(x0-5,y0-5,x0+5,y0+5);
    Image1->Canvas->Pixels[x0][y0] = clBlue;
 
    Image1->Canvas->Brush->Color = clWhite ;                 //задали фон=белый для вывода номера каждой вершины полигона после вращения
    for (int i=0; i<StringGrid1->RowCount; i++)
    {
        Image1->Canvas->TextOutA(ttPoints[i].x,              //вывели номер вершины соответственно возле каждой вершины нового полигона
                                 ttPoints[i].y,
                                 StrToInt(i+1));
    }
 
 
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)   //кнопка "да"   сохранить изменения? после вращения
{
    if (StringGrid1->RowCount == 1 )      //если 1 или нет точек - ничего не дел.
        return;
 
    for (int k=0; k<StringGrid1->RowCount; k++)         //переписали  StringGrid1 с новыми координатами(после вращения многоугольника)
    {
        StringGrid1->Cells[1][k]=ttPoints[k].x;
        StringGrid1->Cells[2][k]=ttPoints[k].y;
    }
 
    Panel1->Enabled=true;
    Panel1->Enabled=true;
    TrackBar1->Position = 0;           //сделали не активными кнопки  да,нет сохранить изменения
    BitBtn1->Visible = false;          //и установили выбор режима -рисование полигона
    BitBtn2->Visible = false;
    RadioGroup1->ItemIndex = 0;
    Label1->Visible=false;
    Image1->Enabled=true;
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn2Click(TObject *Sender)//кнопка "нет" "сохранить изменения?" после вращения
{
    Panel1->Enabled=true;
    Panel1->Enabled=true;
    TrackBar1->Position = 0;
    BitBtn1->Visible = false;
    BitBtn2->Visible = false;
    RadioGroup1->ItemIndex=0;
    Label1->Visible=false;
    Image1->Enabled=true;
}
//---------------------------------------------------------------------------
 
 
 
int GetLine(int f,AnsiString *st)
{
    unsigned char buff[256];
    unsigned char *p = buff;
 
    int n;
    int len=0;
 
    n=FileRead(f,p,1);
    while (n != 0)
    {
        if (*p == '\r')
        {
            n= FileRead(f,p,1);
            break;
        }
        len++;
        p++;
        n=FileRead(f,p,1);
    }
 
    *p= '\0';
    if (len != 0)
        st->printf("%s",buff);
 
    return len;
 
}
 
 
 
 
 
 
 
 
void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
ListBox1->Hint = ListBox1->Items->Strings[ ListBox1->ItemIndex ];  //вывод выделенной строки в hint
 
 
     if (i != z)
     {
         int buttonSelected = MessageDlg("Вы выбрали другой полигон\r\nСохранить изменения в полигоне" + aFileName,mtConfirmation, mbOKCancel, 0);
            if ( buttonSelected == 1)
               Button4->Perform(WM_LBUTTONDOWN, 0, 0);
               Button4->Perform(WM_LBUTTONUP, 0, 0);
     }
 
 
    int n = ListBox1->ItemIndex; //номер выбранного элемента списка ListBox1(т.е. выбранного полигона)
 
 
 
    aFileName=path+ ListBox1->Items->Strings[n] ;
 
    for (int i=0; i < StringGrid1->ColCount; i++)     //очистили все точки
    StringGrid1->Cols[i]->Clear();
    StringGrid1->RowCount=1;
 
 
    int f;//дескриптор файла
    AnsiString st=0;//прочитанная строка
    bool fl = true;//true чтение первой строки
 
    if ((f = FileOpen(aFileName, fmOpenRead)) == -1)
        return;
 
    while( GetLine(f, &st) != 0)
    {
        if (fl)
        {
            StringGrid1->Rows[StringGrid1->Row]->DelimitedText = st;
            fl = false;
        }
        else
        {
            StringGrid1->RowCount++;
            StringGrid1->Row = StringGrid1->RowCount-1;
            StringGrid1->Rows[StringGrid1->Row]->DelimitedText = st;
 
        }
    }
 
    i=StringGrid1->RowCount;
    z=i;
    FileClose(f);
 
 
 
    try           // обработка исключительной ситуации EConvertError
    {
        for (int i=0; i<StringGrid1->RowCount; i++)
        {
        tPoints[i].x=StrToInt(StringGrid1->Cells[1][i]);     //записываем координаты всех имеющихся точек из StringGrid1 в tPoints для рисования
        tPoints[i].y=StrToInt(StringGrid1->Cells[2][i]);
 
        }
 
    }
     catch(EConvertError&)
     {
     ShowMessage("Ошибка открытия полигона.\n\rПожалуйста, выберите другой полигон");
     for (int i=0; i < StringGrid1->ColCount; i++)
        StringGrid1->Cols[i]->Clear();
     StringGrid1->RowCount=1;
 
     return;
     }
 
     for (int i=0; i<StringGrid1->RowCount; i++)
     {
         if ((tPoints[i].x > Image1->ClientWidth ) || ( tPoints[i].y > Image1->ClientHeight))
         {
             ShowMessage("Точка полигона не принадлежит области рисования картинки.\r\n         Пожалуста,разверните приложение на весь экран.");
             Primen();
             return;
         }
     }
 
     Primen();
 
 
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    if (ListBox1->ItemIndex != -1 )
    {
        int n = ListBox1->ItemIndex;
        int buttonSelected = MessageDlg("Вы действительно желаете удалить полигон",mtConfirmation, mbOKCancel, 0);
 
        if ( buttonSelected == 1)
        {
            FileSetAttr(path+ListBox1->Items->Strings[n], 0);// сброс всяких read-only
            DeleteFile(path+ListBox1->Items->Strings[n]);
            ListBox1->Items->Delete(n);
 
            for (int i=0; i < StringGrid1->ColCount; i++)     //очистили все точки
                StringGrid1->Cols[i]->Clear();
            StringGrid1->RowCount=1;
            i=StringGrid1->RowCount-1;//обнулили  счетчик точек полигона
            aFileName="";
            Image1->Picture = 0;
            String mes="Область рисования полигона";   //и вывести по центру Image сообщение mes
            Image1->Canvas->TextOutA((Image1->ClientWidth/2-Canvas->TextWidth(mes)/2),Image1->ClientHeight/2,mes);
 
        }
     }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
    if (StringGrid1->RowCount == 1 )   //если 1 или нет точек - ничего не дел.
        return;
 
 
    if (aFileName == "")          //если нов.файл и еще нет имени
    {
metka: if (InputQuery("Сохранение полигона...", "Пожалуйста, введите имя полигона", aFileName) )
       {
            for (int i=0;i<=ListBox1->Count-1;i++  )
            {
                if ((aFileName+".db") ==  ListBox1->Items->Strings[i])
                {
                    int buttonSelected = MessageDlg("файл уже существует\r\nВы действительно хотите заменить файл",mtConfirmation, mbOKCancel, 0);
                    if ( buttonSelected == 2)
                        goto metka;
                    else
                    {
                        ListBox1->ItemIndex=i;
                        goto metka2;
                    }
                }
            }
            ListBox1->Items->Add(aFileName+".db");
            ListBox1->ItemIndex=ListBox1->Count-1;
metka2:     aFileName=path+aFileName+".db";
 
       }
       else
       {
        aFileName = "";
       }
    }
 
    int f = FileCreate(aFileName);
    if (f!=-1)
    {
        for (int i=0; i<StringGrid1->RowCount;i++)
        {
            AnsiString st = StringGrid1->Rows[i]->DelimitedText + "\r\n";
            FileWrite(f,st.c_str(),st.Length());
        }
        FileClose(f);
    }
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N2Click(TObject *Sender)
{
     if (i != z)
     {
         int buttonSelected = MessageDlg("Сохранить изменения в полигоне" + aFileName,mtConfirmation, mbOKCancel, 0);
            if ( buttonSelected == 1)
            {
               Button4->Perform(WM_LBUTTONDOWN, 0, 0);
               Button4->Perform(WM_LBUTTONUP, 0, 0);
            }
     }
 
 
 
     aFileName = "";
     ListBox1->ItemIndex=-1;
     Image1->Picture = 0;
     String mes="Область рисования полигона";   //и вывести по центру Image сообщение mes
     Image1->Canvas->TextOutA((Image1->ClientWidth/2-Canvas->TextWidth(mes)/2),Image1->ClientHeight/2,mes);
     i=0;
     for (int i=0; i < StringGrid1->ColCount; i++)     //очистили все точки
           StringGrid1->Cols[i]->Clear();
     StringGrid1->RowCount=1;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
     if (StringGrid1->RowCount != 1)
     {
         int buttonSelected = MessageDlg("Закрытие приложения.\r\nСохранить изменения в полигоне" + aFileName,mtConfirmation, mbYesNoCancel, 0);
            if ( buttonSelected == 6)
            {
               Button4->Perform(WM_LBUTTONDOWN, 0, 0);
               Button4->Perform(WM_LBUTTONUP, 0, 0);
            }
            if ( buttonSelected == 2)
            {
                CanClose = false;
            }
     }
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N6Click(TObject *Sender)
{
    Form1->Close();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 
StatusBar1->Panels->Items[0]->Text="Координаты точки:";
StatusBar1->Panels->Items[1]->Text="X="+IntToStr(X);
StatusBar1->Panels->Items[2]->Text="Y="+IntToStr(Y);
 
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 
 
    //====если выбран режим - рисование полигона (установлен по умолчанию)
    if ( RadioGroup1->ItemIndex == 0)
    {
        if (Button==0)
        {
 
            Image1->Canvas->TextOutA(X,Y,IntToStr(i+1));        //выводим номер i точки, то есть при нажатии л.к.м. в текущую позицию курсора выводится номер вершины будущего полигона
 
            StringGrid1->RowCount=i+1;                          //увеличиваем кол-во строк на 1 для след.точки
 
            StringGrid1->Cells[0][i]=StringGrid1->RowCount;     //запись положения выведенной точки на экран в StringGrid1
            StringGrid1->Cells[1][i]=X;
            StringGrid1->Cells[2][i]=Y;
 
     //       if (i>1) Button1->Enabled = true;// когда ввели 3 точки кнопка "построить полигон" активна
 
            i++;
        }
        if (Button==1)
        {
        //Primen();
 
             if (StringGrid1->RowCount == 1 )   //если 1 или нет точек - ничего не дел.
        return;
    Image1->Picture = 0;                                   //обнулили картинку и установили выбранне параметры рисования полигона, а именно
    Image1->Canvas->Brush->Color = ColorDialog1->Color;    //задали цвет заливки полигона (цвет выбран SpeedButton1)
    Image1->Canvas->Pen->Color = ColorDialog2->Color;      //задали цвет ребер полигона (цвет выбран SpeedButton2)
    Image1->Canvas->Pen->Width = TrackBar2->Position;      //задали толщину ребер полигона выбранным положением ползунка TrackBar1
 
 
    for (int i=0; i<StringGrid1->RowCount; i++)
    {
        tPoints[i].x=StrToInt(StringGrid1->Cells[1][i]);     //записываем координаты всех имеющихся точек из StringGrid1 в tPoints для рисования
        tPoints[i].y=StrToInt(StringGrid1->Cells[2][i]);
        StringGrid1->Cells[0][i]=i+1;
    }
    Image1->Canvas->Polygon(tPoints,StringGrid1->RowCount-1);// непосредственно рисование полигона по точкам tPoints
 
    Image1->Canvas->Brush->Color = clWhite ;                 //перед выводом номеров точек определили цвет фона как белый
    for (int i=0; i<StringGrid1->RowCount; i++)
    {
        Image1->Canvas->TextOutA(StrToInt(StringGrid1->Cells[1][i]),    //вывод номера точки возле своей вершины
                                 StrToInt(StringGrid1->Cells[2][i]),
                                 StrToInt(i+1));
    }
 
 
        }
    }
 
 
 
    //====если выбран режим - редактирование полигона
    if ( RadioGroup1->ItemIndex == 1 )
    {
        //====и если редактирование полигона - переместить точку
        if  ( RadioGroup2->ItemIndex == 0 )
        {
            if (i == 0 )                              //если нет точек - ничего не дел.
                return;
 
            StringGrid1->Cells[2][StringGrid1->Row]=Y;     //при нажатии л.к.м. выделенной точк.из StrigGrid1 присваиваем текущую позицию курсора
            StringGrid1->Cells[1][StringGrid1->Row]=X;
 
            Primen();                                      //перерисуем полигон с новой(передвинутой) точкой
        }
 
 
 
 
 
        //====и если редактирование полигона - вставить нов. точку
        if  ( RadioGroup2->ItemIndex == 2 )
        {
 
            if (StringGrid1->RowCount == 1 )       //если 1 или нет точек - ничего не дел.
                return;
 
            StringGrid1->RowCount++;               //увеличиваем кол-во строк на 1 для новой точки
 
            for (int i=StringGrid1->RowCount;i>StringGrid1->Row;i-- )      //сдвигаем все точки на одну позицию относительно текущей(т.е.разорвали ребро и освоодили )
            {
                 StringGrid1->Cells[1][i]=StringGrid1->Cells[1][i-1];
                 StringGrid1->Cells[2][i]=StringGrid1->Cells[2][i-1];
            }
 
            //=======переписываем текущ.
            StringGrid1->Cells[1][StringGrid1->Row]=X;               //записываем в StringGrid1 положение новой точки(новая точка на ребре полигона)
            StringGrid1->Cells[2][StringGrid1->Row]=Y;
            StringGrid1->Cells[0][StringGrid1->Row]=i;
            //======
 
            Primen();                           //перерисовали полигон
 
        }
 
        //====и если редактирование полигона - удалить точку
        if  ( RadioGroup2->ItemIndex == 1 )
            Button2->Enabled = true;                  //сделали активной кнопку "удалить"
    }
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormResize(TObject *Sender)
{
    if (Form1->Height < 440)
        Form1->Height = 440;
    if (Form1->Width < 750)
        Form1->Width = 750;
}
//---------------------------------------------------------------------------

private:    // User declarations
// или в
public:     // User declarations

Canvas->Polygon(OP,6) ???