circulo y linea dda

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PaintBox1MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
          Edit2->Text = x2 = X;
          Edit4->Text = y2 = Y;

          if(RadioButton1->Checked)
          {
             PaintBox1->Repaint();
             g->Linea_DDA(x1, y1, x2, y2);

          }

          if(RadioButton2->Checked)
          {
             PaintBox1->Repaint();
             g->Circulo_X_Segmento(xc, yc, x2 - x1);
          }

          if(RadioButton3->Checked)
          {

          }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBox1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    Edit1->Text = x1 = X;
    Edit3->Text = y1 = Y;

    Edit5->Text = xc = X;
    Edit6->Text = yc = Y;
    Edit7->Text = xc - x1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
                g = new Graficos(PaintBox1->Canvas);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
        if(RadioButton1->Checked)
        {
           Edit1->Enabled = true;
           Edit2->Enabled = true;
           Edit3->Enabled = true;
           Edit4->Enabled = true;
           Edit5->Enabled= false;
           Edit6->Enabled = false;
           Edit7->Enabled = false;
           Button1->Enabled = false;
           //Button2->Enabled = false;
           Button3->Enabled = false;
           Button4->Enabled = false;
           Button5->Enabled = false;
           Button6->Enabled = false;
           //Edit8->Enabled = false;
           //Edit9->Enabled = false;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
        if(RadioButton2->Checked)
        {
           Edit1->Enabled = false;
           Edit2->Enabled = false;
           Edit3->Enabled = false;
           Edit4->Enabled = false;
           Edit5->Enabled= true;
           Edit6->Enabled = true;
           Edit7->Enabled = true;
           Button1->Enabled = false;
           //Button2->Enabled = false;
           Button3->Enabled = false;
           Button4->Enabled = false;
           Button5->Enabled = false;
           Button6->Enabled = false;
           //Edit8->Enabled = false;
           //Edit9->Enabled = false;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton3Click(TObject *Sender)
{
        if(RadioButton3->Checked)
        {
           Edit1->Enabled = false;
           Edit2->Enabled = false;
           Edit3->Enabled = false;
           Edit4->Enabled = false;
           Edit5->Enabled= false;
           Edit6->Enabled = false;
           Edit7->Enabled = false;
           Button1->Enabled = true;
           //Button2->Enabled = true;
           Button3->Enabled = true;
           Button4->Enabled = true;
           Button5->Enabled = true;
           Button6->Enabled = true;
           //Edit8->Enabled = true;
           //Edit9->Enabled = true;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
     PaintBox1->Repaint();
     xcW = PaintBox1->ClientWidth/2;
     ycH = PaintBox1->ClientHeight/2;
     g->Espiral_1(xcW, ycH);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
     PaintBox1->Repaint();
     xcW = PaintBox1->ClientWidth/2;
     ycH = PaintBox1->ClientHeight/2;
     g->Espiral_2(xcW, ycH);
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button5Click(TObject *Sender)
{
     PaintBox1->Repaint();
     xcW = PaintBox1->ClientWidth/2;
     ycH = PaintBox1->ClientHeight/2;
     val = ComboBox1->Text.ToInt();
     g->Efecto_Espiral_1(xcW, ycH, val);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button6Click(TObject *Sender)
{
     PaintBox1->Repaint();
     xcW = PaintBox1->ClientWidth/2;
     ycH = PaintBox1->ClientHeight/2;
     rad = ComboBox3->Text.ToDouble();
     th = ComboBox2->Text.ToDouble();
     g->Efecto_Espiral_2(xcW, ycH, th, rad);

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
     PaintBox1->Repaint();
     xcW = PaintBox1->ClientWidth/2;
     ycH = PaintBox1->ClientHeight/2;
     val2 = ComboBox4->Text.ToInt();
     radi = ComboBox5->Text.ToDouble();
     g->Efecto_1(xcW, ycH, val2, radi);
}
//---------------------------------------------------------------------------