unit1.cpp

<<C++Builder 6实用编程100例>>随书光盘

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

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

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        Button1->Enabled=false;
        n=StrToInt(InputBox("Polygon","将输入多边行边的条数：","5"));
        posArrey=new TPoint[n];
        order=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        if(order==0)
                Image1->Canvas->MoveTo(X,Y);
        if(order<n)
        {
                posArrey[order].x=X;
                posArrey[order].y=Y;
                Image1->Canvas->Ellipse(X-2,Y-2,X+2,Y+2);
                order++;
                if(order==n)
                {
                        Image1->Canvas->Polygon(posArrey,n-1);
                        Button1->Enabled=true;
                }
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        Image1->Canvas->FillRect(ClientRect);
        Button1->Enabled=true;
}
//---------------------------------------------------------------------------