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::SpeedButton1Click(TObject *Sender)
{
        sharp=1;
        StatusBar1->Panels->Items[0]->Text="绘制矩形";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton2Click(TObject *Sender)
{
        sharp=2;
        StatusBar1->Panels->Items[0]->Text="绘制椭圆";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton3Click(TObject *Sender)
{
        sharp=3;
        StatusBar1->Panels->Items[0]->Text="绘制圆角矩形";
        radius=StrToInt(InputBox("Radius","将输入圆角矩形圆弧半径：","10"));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton4Click(TObject *Sender)
{
        Image1->Canvas->Pen->Color=clRed;
        StatusBar1->Panels->Items[1]->Text="红色";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton5Click(TObject *Sender)
{
        Image1->Canvas->Pen->Color=clYellow;
        StatusBar1->Panels->Items[1]->Text="黄色";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton6Click(TObject *Sender)
{
        Image1->Canvas->Pen->Color=clBlue;
        StatusBar1->Panels->Items[1]->Text="蓝色";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton7Click(TObject *Sender)
{
        Image1->Canvas->Pen->Color=clGreen;
        StatusBar1->Panels->Items[1]->Text="绿色";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton8Click(TObject *Sender)
{
        Image1->Canvas->Pen->Color=clBlack;
        StatusBar1->Panels->Items[1]->Text="黑色";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        posX=X;
        posY=Y;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
        if(Shift.Contains(ssShift))
        {
                if(abs(X-posX)>abs(Y-posY))
                        Y=X-posX+posY;
                else
                        X=Y-posY+posX;
        }
        switch(sharp)
        {
                case 1:
                        Image1->Canvas->Rectangle(posX,posY,X,Y);
                        break;
                case 2:
                        Image1->Canvas->Ellipse(posX,posY,X,Y);
                        break;
                case 3:
                        Image1->Canvas->RoundRect(posX,posY,X,Y,radius,radius);
                        break;
                default:
                        break;
        }
}
//---------------------------------------------------------------------------