mainform.cpp

C++ BUILDER精彩编程实例集锦(源码) 第一部分 界面设计 第二部分 程序设置

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

#include <vcl.h>
#pragma hdrstop

#include "Mainform.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
  LOGFONT lf;
  memset(&lf,0,sizeof(LOGFONT));
  ::GetObject((HFONT)GetStockObject(DEFAULT_GUI_FONT),sizeof(lf),&lf);
  lf.lfHeight = -14;
  lf.lfWeight = FW_NORMAL;
  lf.lfClipPrecision = CLIP_LH_ANGLES;
  Canvas->Font->Handle = CreateFontIndirect (&lf);
  Canvas->Brush->Style = bsClear;
  Canvas->Pen->Color=clRed;
  for (int i=0;i<3600;i+=150)
  {
    lf.lfEscapement = i;
    Canvas->Font->Handle = CreateFontIndirect (&lf);
    this->Canvas->TextOutA(this->Width/2, this->Height/2,"..........China is a great country");
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
  this->Close();        
}
//---------------------------------------------------------------------------