Курсовая работа / Курсовая похожая / Курсовая / Ellips / EllipslUnit

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "EllipslUnit.h"
#include "Ellips.h"
#include "Math.h"
#include "gl.h"
int size;
int count;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TEllipsCreateForm *EllipsCreateForm;
//---------------------------------------------------------------------------
__fastcall TEllipsCreateForm::TEllipsCreateForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TEllipsCreateForm::FormCreate(TObject *Sender)
{
  for(int i=20;i<=50;i=i+10)
    ChangeSize->Items->Add(IntToStr(i)+"x"+IntToStr(i));
  ChangeSize->ItemIndex=0;
  Button2->Enabled=false; Button3->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TEllipsCreateForm::Button1Click(TObject *Sender)
{
  ChangeSize->Enabled=false;
  Button1->Enabled=false;
  Button2->Enabled=true;
  Button3->Enabled=true;
  EllipsCreateImage->Visible=true;
  size=2*((ChangeSize->ItemIndex)*10+20);
  EllipsCreateImage->Canvas->Rectangle(0,0,size,size);
  EllipsCreateImage->Height=size;
  EllipsCreateImage->Width=size;
  for(int i=20;i<size;i+=20)
  {
    EllipsCreateImage->Canvas->MoveTo(0,i);
    EllipsCreateImage->Canvas->LineTo(size,i);
    EllipsCreateImage->Canvas->MoveTo(i,0);
    EllipsCreateImage->Canvas->LineTo(i,size);
  }
}
//---------------------------------------------------------------------------
void __fastcall TEllipsCreateForm::Button2Click(TObject *Sender)
{
return;
}
//---------------------------------------------------------------------------
void __fastcall TEllipsCreateForm::Button3Click(TObject *Sender)
{
  Edit1->Clear(); Edit2->Clear(); Edit4->Clear(); Edit3->Clear();
  Button1->Enabled=true; Button2->Enabled=false; Button3->Enabled=false;
  ChangeSize->Enabled=true;
  EllipsCreateImage->Visible=false;
  count=0;
}
//---------------------------------------------------------------------------
void __fastcall TEllipsCreateForm::Button4Click(TObject *Sender)
{
  EllipsCreateForm->Close();
}
//---------------------------------------------------------------------------
int CheckForEllips(float x1,float y1,float x2,float y2)
{
  if(x1==x2 || y1==y2)
    return 0;
  else
    return 1;
}
//---------------------------------------------------------------------------
void __fastcall TEllipsCreateForm::Edit1KeyPress(TObject *Sender,
      char &Key)
{
  Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TEllipsCreateForm::Edit2KeyPress(TObject *Sender,
      char &Key)
{
  Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TEllipsCreateForm::Edit3KeyPress(TObject *Sender,
      char &Key)
{
  Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TEllipsCreateForm::Edit4KeyPress(TObject *Sender,
      char &Key)
{
  Key=0;
}
//---------------------------------------------------------------------------

void __fastcall TEllipsCreateForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  EllipsCreateImage->Visible=false;
  ChangeSize->Enabled=true; Button1->Enabled=true; Button2->Enabled=false; Button3->Enabled=false;
  Edit1->Clear(); Edit2->Clear(); Edit3->Clear(); Edit4->Clear();
  count=0;
}
//---------------------------------------------------------------------------

void __fastcall TEllipsCreateForm::EllipsCreateImageMouseDown(
      TObject *Sender, TMouseButton Button, TShiftState Shift, int X,
      int Y)
{
  X=X/2;
  Y=(size-Y)/2;
  if(count==0)
  {
    Edit1->Text=IntToStr(X);
    Edit3->Text=IntToStr(Y);
  }
  if(count==1)
  {
    Edit2->Text=IntToStr(X);
    Edit4->Text=IntToStr(Y);
  }
  count++;
}
//---------------------------------------------------------------------------