main.cpp

C++Builder程序员编程手记《配书光盘》

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

#include <vcl.h>
#pragma hdrstop

#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  LoadFlag=1;
  HRGN ShowRect1 = CreateEllipticRgn(5,5,CircleButton->Width-5,CircleButton->Height-5);
  SetWindowRgn(CircleButton->Handle,ShowRect1,TRUE);

  TrPoint[0].x=TgonButton->Width/2;
  TrPoint[0].y=0;

  TrPoint[1].x=0;
  TrPoint[1].y=TgonButton->Height-5;

  TrPoint[2].x=TgonButton->Width-5;
  TrPoint[2].y=TgonButton->Height-5;

  HRGN ShowRect2 = CreatePolygonRgn(TrPoint,3,ALTERNATE);
  SetWindowRgn(TgonButton->Handle,ShowRect2,TRUE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   Image1->Picture->LoadFromFile(".//start2.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
   Image1->Picture->LoadFromFile(".//start1.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  Image2->Picture->LoadFromFile(".//BtnImage2-2.bmp");  
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image2MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  Image2->Picture->LoadFromFile(".//BtnImage2.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  ShowBtn3Image(LoadFlag);
}
//---------------------------------------------------------------------------
void TForm1::ShowBtn3Image(int n)
{
  if(LoadFlag>0&&LoadFlag<6)
  {
    Image3->Picture->LoadFromFile(".//BtnImage3-"+IntToStr(n)+".bmp");
    LoadFlag++;
  }
  else
    LoadFlag=1;
}
void __fastcall TForm1::CircleButtonClick(TObject *Sender)
{
  Label1->Caption="圆形按钮";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TgonButtonClick(TObject *Sender)
{
  Label1->Caption="三角形按钮";  
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1Click(TObject *Sender)
{
  Label1->Caption="典型图象按钮";  
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image2Click(TObject *Sender)
{
  Label1->Caption="不规则形状按钮";  
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image3Click(TObject *Sender)
{
  Label1->Caption="动画按钮";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image3MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  Image3->Picture->LoadFromFile(".//BtnImage3-1.bmp");
  Timer1->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image3MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  LoadFlag=1;
  Timer1->Enabled=true;
}
//---------------------------------------------------------------------------