Курсовая работа / Курсовая похожая / Курсовая / Triangle / TrianglUnit

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "TrianglUnit.h"
#include "Math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
int size;
int count;
TTriangleCreateForm *TriangleCreateForm;
//---------------------------------------------------------------------------
__fastcall TTriangleCreateForm::TTriangleCreateForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TTriangleCreateForm::Button1Click(TObject *Sender)
{
  ChangeSize->Enabled=false;
  Button1->Enabled=false;
  Button2->Enabled=true;
  Button3->Enabled=true;
  TrianglCreateImage->Visible=true;
  size=2*((ChangeSize->ItemIndex)*10+20);
  TrianglCreateImage->Canvas->Rectangle(0,0,size,size);
  TrianglCreateImage->Height=size;
  TrianglCreateImage->Width=size;
  for(int i=20;i<size;i+=20)
  {
    TrianglCreateImage->Canvas->MoveTo(0,i);
    TrianglCreateImage->Canvas->LineTo(size,i);
    TrianglCreateImage->Canvas->MoveTo(i,0);
    TrianglCreateImage->Canvas->LineTo(i,size);
  }
}
//---------------------------------------------------------------------------
void __fastcall TTriangleCreateForm::Button2Click(TObject *Sender)
{
  return;
}
//---------------------------------------------------------------------------
void __fastcall TTriangleCreateForm::Button3Click(TObject *Sender)
{
  Edit1->Clear(); Edit2->Clear(); Edit3->Clear(); Edit4->Clear(); Edit5->Clear(); Edit6->Clear();
  Button1->Enabled=true; Button2->Enabled=false; Button3->Enabled=false;
  ChangeSize->Enabled=true;
  TrianglCreateImage->Visible=false;
  count=0;
}
//---------------------------------------------------------------------------
void __fastcall TTriangleCreateForm::Button4Click(TObject *Sender)
{
  TriangleCreateForm->Close();
}
//---------------------------------------------------------------------------
void __fastcall TTriangleCreateForm::Edit1KeyPress(TObject *Sender,
      char &Key)
{
  Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TTriangleCreateForm::Edit2KeyPress(TObject *Sender,
      char &Key)
{
  Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TTriangleCreateForm::Edit3KeyPress(TObject *Sender,
      char &Key)
{
  Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TTriangleCreateForm::Edit4KeyPress(TObject *Sender,
      char &Key)
{
  Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TTriangleCreateForm::Edit5KeyPress(TObject *Sender,
      char &Key)
{
  Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TTriangleCreateForm::Edit6KeyPress(TObject *Sender,
      char &Key)
{
  Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TTriangleCreateForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  TrianglCreateImage->Visible=false;
  count=0;
}
//---------------------------------------------------------------------------

void __fastcall TTriangleCreateForm::FormActivate(TObject *Sender)
{
  ChangeSize->ItemIndex=0;
  Edit1->Clear(); Edit2->Clear(); Edit3->Clear(); Edit4->Clear(); Edit5->Clear(); Edit6->Clear();
  Button1->Enabled=true; Button2->Enabled=false; Button3->Enabled=false;
  ChangeSize->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TTriangleCreateForm::FormCreate(TObject *Sender)
{
  for(int i=20;i<=50;i=i+10)
    ChangeSize->Items->Add(IntToStr(i)+"x"+IntToStr(i));
}
//---------------------------------------------------------------------------

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