u7_3_2.cpp

《C++ Builder 5程序设计——基础教学篇》程序源代码2.

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

#include "u7_3_2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tf7_3_2 *f7_3_2;
//---------------------------------------------------------------------------
__fastcall Tf7_3_2::Tf7_3_2(TComponent* Owner)
    : TForm(Owner)
{
}
//-------------------------------------------------------------------
void __fastcall Tf7_3_2::FormPaint(TObject *Sender)
{
  Canvas->Pen->Color=clRed;
  Canvas->Pen->Style=psDashDot;
  Canvas->Brush->Style=bsSolid;
  Canvas->Rectangle(50,50,100,100);

  Canvas->Pen->Style=psSolid;
  Canvas->Brush->Style=bsVertical;
  Canvas->Rectangle(150,50,200,130);

  Canvas->RoundRect(250,50,300,100,10,30);

  Canvas->Brush->Style=bsCross;
  Canvas->Ellipse(50,150,100,200);

  Canvas->Brush->Style=bsClear;
  Canvas->Ellipse(150,150,200,230);

  Canvas->Ellipse(250,150,350,200);

  Canvas->Arc(50,250,100,300,250,275,75,250);
  Canvas->Chord(150,250,200,300,175,250,150,275);
  Canvas->Pie(250,250,300,300,300,250,300,300);
}
//-------------------------------------------------------------------