about.cpp

一个小巧实用的电子书库程序

//(R)CopyRight KivenSoft International ,inc 1998
//程序名称：电子书库
//作    者：李会文
//开始时间：1998.07.28
//最后修改：1998.12.01
//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "About.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TAboutBox *AboutBox;


//---------------------------------------------------------------------
__fastcall TAboutBox::TAboutBox(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall TAboutBox::EMailLabelMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
  Screen->Cursor=crHandPoint;
  if(TempLabel==HomePageLabel)
    TempLabel->Font->Color=clGreen;
  else if (TempLabel==EMailLabel)
    TempLabel->Font->Color=clRed;
  TempLabel=(TLabel*)Sender;
  TempLabel->Font->Style>>fsUnderline;
  TempLabel->Font->Color=clNavy;
}
//---------------------------------------------------------------------------

void __fastcall TAboutBox::Panel1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
  if(!TempLabel) return;
  Screen->Cursor=crDefault;
  if(TempLabel==HomePageLabel)
    TempLabel->Font->Color=clGreen;
  else
    TempLabel->Font->Color=clRed;
}
//---------------------------------------------------------------------------

void __fastcall TAboutBox::FormCreate(TObject *Sender)
{
  TempLabel=NULL;
}
//---------------------------------------------------------------------------

void __fastcall TAboutBox::HomePageLabelClick(TObject *Sender)
{
  ShellExecute(Handle,NULL,TempLabel->Caption.c_str(),NULL,NULL,SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------

void __fastcall TAboutBox::ChineseInfo2Click(TObject *Sender)
{
  Panel1->Visible=false;  
}
//---------------------------------------------------------------------------