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)
{ //以每英寸48像素显示
   this->Canvas->Font->PixelsPerInch=48;
   this->Canvas->Font->Size=50;
   this->Canvas->TextOutA(30,80,"中华人民共和国万岁");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{ //以每英寸96像素显示
   this->Canvas->Font->PixelsPerInch=96;
   this->Canvas->Font->Size=50;
   this->Canvas->TextOutA(30,80,"中华人民共和国万岁");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{//以每英寸180像素显示
   this->Canvas->Font->PixelsPerInch=180;
   this->Canvas->Font->Size=50;
   this->Canvas->TextOutA(30,80,"中华人民共和国万岁");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn4Click(TObject *Sender)
{////以每英寸360像素显示
   this->Canvas->Font->PixelsPerInch=360;
   this->Canvas->Font->Size=50;
   this->Canvas->TextOutA(30,80,"中华人民共和国万岁");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn5Click(TObject *Sender)
{ //以每英寸720像素显示
   this->Canvas->Font->PixelsPerInch=720;
   this->Canvas->Font->Size=50;
   this->Canvas->TextOutA(30,80,"中华人民共和国万岁");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn6Click(TObject *Sender)
{ //以每英寸1440像素显示
   this->Canvas->Font->PixelsPerInch=1440;
   this->Canvas->Font->Size=50;
   this->Canvas->TextOutA(30,80,"中华人民共和国万岁");
}
//---------------------------------------------------------------------------