about.cpp

八数码问题源程序.

//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "About.h"
#include <Shellapi.hpp>  //ShellExecute()
//---------------------------------------------------------------------
#pragma resource "*.dfm"
Tfrm_about *frm_about;
//---------------------------------------------------------------------
__fastcall Tfrm_about::Tfrm_about(TComponent* AOwner)
	: TForm(AOwner)
{

}
//---------------------------------------------------------------------
//重画分页控件的标题，使之有颜色(先设置TPageControl.OwnerDraw=true)
void __fastcall Tfrm_about::PC_MainDrawTab(TCustomTabControl *Control,
      int TabIndex, const TRect &Rect, bool Active)
{
//   Control->Canvas->Font->Size = 10;

   if (Active)
      Control->Canvas->Font->Color = clGreen;
   else
      Control->Canvas->Font->Color = clGrayText;

   Control->Canvas->TextRect(Rect,Rect.Left+5,Rect.Top+5,PC_Main->Pages[TabIndex]->Caption);
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_about::Lb_URLClick(TObject *Sender)
{
//本来想在新的浏览器窗口打开的，但却实现不了
//  PCHAR Url = new char[100]; //申请变量
//  FindExecutable("http://kkcocoon.top263.net",NULL,Url);
//  ShellExecute(Handle,NULL,"http://kkcocoon.top263.net",NULL,Url,SW_SHOWNORMAL);
//  delete Url;
  ShellExecute(Handle,NULL,"http://kkcocoon.top263.net",NULL,NULL,SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_about::Lb_URLMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
  Lb_URL->Font->Style<<fsUnderline;
  Lb_URL->Font->Color  = clBlue;
  Lb_URL->Cursor = crHandPoint;
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_about::Panel2MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
  Lb_URL->Font->Style<<fsBold;
  Lb_URL->Font->Color = clRed;
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_about::PC_MainChange(TObject *Sender)
{
   if (PC_Main->ActivePage == TS_Readme) {
      Memo_Readme->Lines->Clear();
      if (FileExists("readme.txt")) { //如果当前目录存在Readme.txt文件
         try {
            Memo_Readme->Lines->LoadFromFile("readme.txt");
         }
         catch (...) {
            MessageBox(Handle,"打不开readme.txt文件.","错误",MB_OK|MB_ICONWARNING);
            Memo_Readme->Lines->Add("打不开Readme.txt文件");
         }
      }
      else {
         MessageBox(Handle,"找不到readme.txt文件.","错误",MB_OK|MB_ICONWARNING);
         Memo_Readme->Lines->Add("找不到Readme.txt文件");
      }
   }

   if (PC_Main->ActivePage == TS_Help) {
      Memo_Help->Lines->Clear();
      if (FileExists("help.txt")) { 
         try {
            Memo_Help->Lines->LoadFromFile("help.txt");
         }
         catch (...) {
            MessageBox(Handle,"打不开help.txt文件.","错误",MB_OK|MB_ICONWARNING);
            Memo_Help->Lines->Add("打不开help.txt文件");
         }
      }
      else {
         MessageBox(Handle,"找不到help.txt文件.","错误",MB_OK|MB_ICONWARNING);
         Memo_Help->Lines->Add("找不到help.txt文件");
      }
   }
}
//---------------------------------------------------------------------------