unit6.cpp

本书《C++Builder与WindowsAPI经典范例》附含配套光盘包括132个WindowsAPI函数及206个完整、可执行的实例

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
//由CheckBox1控制
CheckBox1->Checked = false;

//这是自定义等距小黑点的新图文件
//先制作一新图文件，20x20位图的固定长宽
gridBitmap = new Graphics::TBitmap();
gridBitmap->Width = 20;
gridBitmap->Height = 20;
gridBitmap->Canvas->Brush->Color = (TColor)RGB(220,255,220);
gridBitmap->Canvas->Pen->Color = (TColor)RGB(0,170,90);
gridBitmap->Canvas->FillRect(gridBitmap->Canvas->ClipRect);
//将此图文件上面布满等距小点
const int spacing = 10;
for (y = 0; y < 20; y = y + spacing)
    {
    for (x = 0; x < 20; x = x + spacing)
        {
        gridBitmap->Canvas->Ellipse(x, y, x + 2, y + 2);
        }
    }
}
//---------------------------------------------------------------------------
__fastcall TForm1::~TForm1()
{
//结束程序时，释放新图文件
delete gridBitmap;
}
//---------------------------------------------------------------------------
//若每次重绘Form1时，便将新图文件等距绘到Form1上，