Курсовая работа / Курсовая похожая / Курсовая / Rectangle / RectanglUnit

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "RectanglUnit.h"
#include "Rectangl.h"
#include "Math.h"
int size;
int count;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TRectanglCreateForm *RectanglCreateForm;
//---------------------------------------------------------------------------
__fastcall TRectanglCreateForm::TRectanglCreateForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TRectanglCreateForm::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 TRectanglCreateForm::Button1Click(TObject *Sender)
{
  ChangeSize->Enabled=false;
  Button1->Enabled=false;
  Button2->Enabled=true;
  Button3->Enabled=true;
  RectanglCreateImage->Visible=true;
  size=2*((ChangeSize->ItemIndex)*10+20);
  RectanglCreateImage->Canvas->Rectangle(0,0,size,size);
  RectanglCreateImage->Height=size;
  RectanglCreateImage->Width=size;
  for(int i=20;i<size;i+=20)
  {
    RectanglCreateImage->Canvas->MoveTo(0,i);
    RectanglCreateImage->Canvas->LineTo(size,i);
    RectanglCreateImage->Canvas->MoveTo(i,0);
    RectanglCreateImage->Canvas->LineTo(i,size);
  }
}
//---------------------------------------------------------------------------
void __fastcall TRectanglCreateForm::Button2Click(TObject *Sender)
{
return;
}
//---------------------------------------------------------------------------
void __fastcall TRectanglCreateForm::Button3Click(TObject *Sender)
{
  Edit1->Clear(); Edit2->Clear(); Edit4->Clear(); Edit3->Clear();
  Button1->Enabled=true; Button2->Enabled=false; Button3->Enabled=false;
  ChangeSize->Enabled=true;
  RectanglCreateImage->Visible=false;
  count=0;
}
//---------------------------------------------------------------------------
void __fastcall TRectanglCreateForm::Button4Click(TObject *Sender)
{
  RectanglCreateForm->Close();
}

//---------------------------------------------------------------------------
void __fastcall TRectanglCreateForm::Edit1KeyPress(TObject *Sender,
      char &Key)
{
  Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TRectanglCreateForm::Edit2KeyPress(TObject *Sender,
      char &Key)
{
  Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TRectanglCreateForm::Edit3KeyPress(TObject *Sender,
      char &Key)
{
  Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TRectanglCreateForm::Edit4KeyPress(TObject *Sender,
      char &Key)
{
  Key=0;
}
//---------------------------------------------------------------------------

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

void __fastcall TRectanglCreateForm::RectanglCreateImageMouseDown(
      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++;
}
//---------------------------------------------------------------------------