局域网跳棋源代码

局域网跳棋源代码

//---------------------------------------------------------------------------
#include 
#pragma hdrstop

#include “NeoWin.h“
#include “main.h“

//---------------------------------------------------------------------------
#pragma package（smart_init）
#pragma resource “*.dfm“
TNeoForm *NeoForm;
//---------------------------------------------------------------------------
__fastcall TNeoForm::TNeoForm（TComponent* Owner）
        : TForm（Owner）
{
  Sizeable = true;
  FPopedMenuIndex = -1;
  FLastPopedMenuIndex = -1;
  FBorderMouseDown = false;
  FCaptionmousedown = false;

  Color = （TColor）0x00CFCFCF;
  CaptionLabel->Caption = TForm::Caption;
  MinImage->Visible = （BorderIcons.Contains（biMinimize））;
  MaxImage->Visible = （BorderIcons.Contains（biMaximize））;
}
//---------------------------------------------------------------------------
void __fastcall TNeoForm::FormCreate（Tobject *Sender）
{
//
}
//---------------------------------------------------------------------------
void __fastcall TNeoForm::FormShow（Tobject *Sender）
{
//
}
//---------------------------------------------------------------------------
void __fastcall TNeoForm::FormResize（Tobject *Sender）
{
//
}
//---------------------------------------------------------------------------
void __fastcall TNeoForm::FormCanResize（Tobject *Sender int &NewWidth
      int &NewHeight bool &Resize）
{
  if （NewWidth < 200 || NewHeight < 60） Resize = false;
  else
  {
    TRect R;
    R = GetWorkAreaRect（）;
    if （NewWidth > R.Width（））{ NewWidth = R.Width（）; }//Resize = false; }
    if （NewHeight > R.Height（））{ NewHeight = R.Height（）; }//Resize = false; }
  }
}
//---------------------------------------------------------------------------
void __fastcall TNeoForm::WndProc（Messages::TMessage &Message）
{
  inherited::WndProc（Message）;
  switch （Message.Msg）
  {
    case WM_SIZE:
      switch （Message.WParam）
      {
        case SIZE_MAXIMIZED:
        {
          if （BorderIcons.Contains（biMaximize））
          {
            MaxImage->Visible = false;
            RestoreImage->Visible = true;
          }
          SetSizeableCursor（false）;
          break;
        }
        case SIZE_MINIMIZED:
          break;
        case SIZE_RESTORED:
        {
          if （BorderIcons.Contains（biMaximize））
          {
            MaxImage->Visible = true;
            RestoreImage->Visible = false;
          }
          SetSizeableCursor（FSizeable）;
          break;
        }
      }//switch （Message.wParam）
      break;

    case WM_ACTIVATE:
      switch （Message.WParamLo）
      {
        case WA_ACTIVE:
        case WA_CLICKACTIVE:
        {
          TopLeftImage->Picture = GetFTopLeftImage->Picture;
          TopCenterImage->Picture = GetFTopCenterImage->Picture;
          TopRightImage->Picture = GetFTopRightImage->Picture;
          TopPanel->Refresh（）;
          break;
        }
        case WA_INACTIVE:

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     目录          0  2003-07-01 09:19  Neowin

     文件      17368  2002-06-26 17:41  Neowin\NeoWin.cpp

     文件     458318  2002-06-26 17:41  Neowin\NeoWin.dfm

     文件       6497  1999-10-01 18:52  Neowin\NeoWin.h

     目录          0  2003-07-01 09:25  网络跳棋

     文件       1210  2001-09-28 08:49  网络跳棋\1.BMP

     文件       1270  2001-09-21 10:27  网络跳棋\2.BMP

     文件        374  2001-09-21 10:28  网络跳棋\3.BMP

     文件        246  2001-09-21 10:28  网络跳棋\4.BMP

     文件        478  2001-09-28 11:27  网络跳棋\5.BMP

     文件        477  2002-09-23 16:39  网络跳棋\about.cpp

     文件       2038  2002-09-23 16:47  网络跳棋\about.dfm

     文件       1012  2002-09-23 16:40  网络跳棋\about.h

     文件        142  1999-06-16 06:43  网络跳棋\A_DEL.BAT

     文件       1834  2001-09-15 13:13  网络跳棋\BLUE.BMP

     文件        766  2001-03-03 12:53  网络跳棋\ICO.ICO

     文件      20777  2002-09-23 16:43  网络跳棋\main.cpp

     文件     156682  2003-07-01 09:15  网络跳棋\main.dfm

     文件       5380  2002-09-23 16:43  网络跳棋\main.h

     文件       1806  2001-09-15 13:13  网络跳棋\RED.BMP

     文件       3649  2002-09-23 16:39  网络跳棋\Tq.bpr

     文件        842  2002-09-23 16:39  网络跳棋\TQ.cpp

     文件        876  2001-10-25 08:19  网络跳棋\TQ.RES

     文件     109230  2001-09-05 08:32  网络跳棋\标准.JPG

----------- ---------  ---------- -----  ----

               791272                    24