unit2.cpp

自编的华容道小游戏

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

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm2::FormCreate(TObject *Sender)
{
 RECT BrushRect;
 BrushRect.left = BrushRect.top = 0;
 BrushRect.right= BrushRect.bottom=8;
 for(int j=0; j<11;j++)
   {
    PositiveMasks[j] = new TBrush;
    NegativeMasks[j] = new TBrush;
    PositiveMasks[j]->Bitmap = new Graphics::TBitmap;
    NegativeMasks[j]->Bitmap = new Graphics::TBitmap;
    PositiveMasks[j]->Bitmap->Width=8;
    PositiveMasks[j]->Bitmap->Height=8;
    Randomize();
    for(int i=0;i<8*j;i++)
       PositiveMasks[j]->Bitmap->Canvas->
              Pixels[random(8)][random(8)]=clBlack;
    NegativeMasks[j]->Bitmap->Assign(PositiveMasks[j]->Bitmap);
    InvertRect(NegativeMasks[j]->Bitmap->Canvas->Handle, &BrushRect);
   }
 SolidBlackBrush = new TBrush;
 SolidBlackBrush->Style = bsSolid;
 SolidBlackBrush->Color = clBlack;
 FadeBitmap      = new Graphics::TBitmap;
 WorkSpaceBitmap = new Graphics::TBitmap;

 Progress = 0;
 FadeBitmap->LoadFromFile("huarongdao.bmp");
 WorkSpaceBitmap->Width  = FadeBitmap->Width;
 WorkSpaceBitmap->Height = FadeBitmap->Height;
 WorkSpaceBitmap->Canvas->Draw(0,0,FadeBitmap);

 BitmapRect = Rect(0,0,FadeBitmap->Width,FadeBitmap->Height);
        
}
//---------------------------------------------------------------------------

void __fastcall TForm2::FormDestroy(TObject *Sender)
{
 for (int j=0;j<11;j++)
   {
    delete PositiveMasks[j]->Bitmap;
    delete NegativeMasks[j]->Bitmap;
    delete PositiveMasks[j];
    delete NegativeMasks[j];
   }

 delete SolidBlackBrush;
 delete FadeBitmap;
 delete WorkSpaceBitmap;
        
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
 ProcessFadeFromBlackStep();        
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------
void TForm2::ProcessFadeFromBlackStep(void)
{
 if(Progress == 11)   {
    Progress = 0;
    Timer1->Enabled = false;
    WorkSpaceBitmap->Canvas->CopyMode=cmSrcCopy;
    WorkSpaceBitmap->Canvas->Draw(0,0,FadeBitmap);
   }
 else
  {
    WorkSpaceBitmap->Canvas->Brush = NegativeMasks[Progress];
    WorkSpaceBitmap->Canvas->CopyMode=cmMergeCopy;
    WorkSpaceBitmap->Canvas->Draw(0,0,FadeBitmap);
    Progress++;
   }
 PaintBox1->Canvas->Draw(0,0,WorkSpaceBitmap);
}
//---------------------------------------------------------------------------