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::ComboBox1Change(TObject *Sender)
{
        switch(ComboBox1->ItemIndex)
        {
                case 0:
                        Image1->Canvas->Pen->Color=clRed;
                        break;
                case 1:
                        Image1->Canvas->Pen->Color=clYellow;
                        break;
                case 2:
                        Image1->Canvas->Pen->Color=clBlue;
                        break;
                case 3:
                        Image1->Canvas->Pen->Color=clWhite;
                        break;
                case 4:
                        Image1->Canvas->Pen->Color=clBlack;
                        break;
                case 5:
                        Image1->Canvas->Pen->Color=clPurple;
                        break;
                case 6:
                        Image1->Canvas->Pen->Color=clGreen;
                        break;
                case 7:
                        Image1->Canvas->Pen->Color=clGray;
                        break;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox2Change(TObject *Sender)
{
        switch(ComboBox2->ItemIndex)
        {
                case 0:
                        Image1->Canvas->Pen->Style=psSolid;
                        break;
                case 1:
                        Image1->Canvas->Pen->Style=psDash;
                        break;
                case 2:
                        Image1->Canvas->Pen->Style=psDot;
                        break;
                case 3:
                        Image1->Canvas->Pen->Style=psDashDot;
                        break;
                case 4:
                        Image1->Canvas->Pen->Style=psDashDotDot;
                        break;
                case 5:
                        Image1->Canvas->Pen->Style=psClear;
                        break;
                case 6:
                        Image1->Canvas->Pen->Style=psInsideFrame;
                        break;
        }
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
        Image1->Canvas->Pen->Width=StrToInt(Edit1->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
        switch(RadioGroup1->ItemIndex)
        {
                case 0:
                        Image1->Canvas->Brush->Color=clRed;
                        break;
                case 1:
                        Image1->Canvas->Brush->Color=clYellow;
                        break;
                case 2:
                        Image1->Canvas->Brush->Color=clBlue;
                        break;
                case 3:
                        Image1->Canvas->Brush->Color=clWhite;
                        break;
                case 4:
                        Image1->Canvas->Brush->Color=clBlack;
                        break;
                case 5:
                        Image1->Canvas->Brush->Color=clPurple;
                        break;
                case 6:
                        Image1->Canvas->Brush->Color=clGreen;
                        break;
                case 7:
                        Image1->Canvas->Brush->Color=clGray;
                        break;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioGroup2Click(TObject *Sender)
{
        switch(RadioGroup2->ItemIndex)
        {
                case 0:
                        Image1->Canvas->Brush->Style=bsSolid;
                        break;
                case 1:
                        Image1->Canvas->Brush->Style=bsClear;
                        break;
                case 2:
                        Image1->Canvas->Brush->Style=bsHorizontal;
                        break;
                case 3:
                        Image1->Canvas->Brush->Style=bsVertical;
                        break;
                case 4:
                        Image1->Canvas->Brush->Style=bsCross;
                        break;
                case 5:
                        Image1->Canvas->Brush->Style=bsDiagCross;
                        break;
                case 6:
                        Image1->Canvas->Brush->Style=bsFDiagonal;
                        break;
                case 7:
                        Image1->Canvas->Brush->Style=bsBDiagonal;
                        break;
        }
}
//---------------------------------------------------------------------------

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)
{
        Image1->Canvas->Ellipse(posX,posY,X,Y);
}
//---------------------------------------------------------------------------



void __fastcall TForm1::FormCreate(TObject *Sender)
{
        Image1->Canvas->Pen->Color=clRed;
        Image1->Canvas->Pen->Style=psSolid;
        Image1->Canvas->Pen->Width=1;
        Image1->Canvas->Brush->Color=clRed;
        Image1->Canvas->Brush->Style=bsSolid;
}
//---------------------------------------------------------------------------