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::FormPaint(TObject *Sender)
{//显示渐变背景
  double y,Step=Height/256.00;
  for(int i=255;i>0;i--)
  {
    Form1->Canvas->Brush->Color=TColor(0x00000000+i*0x10000);
    Form1->Canvas->FillRect(Rect(0,int(y),Width,int(y+Step)));
    y=y+Step;
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormResize(TObject *Sender)
{//更新背景
   Form1->Refresh();
}
//---------------------------------------------------------------------------