unit1.cpp

有视频

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

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CanvasCopy(TCanvas *SCv,int x1,int y1,int w,int h,TCanvas *DCv,int x2,int y2)
{
  TColor cl,cl1;
  int ii,jj,ww,hh;
  ww=w-x1;hh=h-y1;
  for(ii=0;ii<ww;ii++)
    for(jj=0;jj<hh;jj++)
    {
      cl=SCv->Pixels[x1+ii][y1+jj];
      cl1=DCv->Pixels[x2+ii][y2+jj];
      if(cl1!=clWhite)
        SCv->Pixels[x1+ii][y1+jj]=cl1;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int ww,hh;
  ww=Image1->Width;hh=Image1->Height;
  BitBlt(PaintBox1->Canvas->Handle,0,0,ww,hh,Image1->Canvas->Handle,0,0,SRCCOPY);

  ww=Image2->Width;hh=Image2->Height;
  CanvasCopy(PaintBox1->Canvas,0,0,ww,hh,Image2->Canvas,0,0);

  ww=Image3->Width;hh=Image3->Height;
  Image3->Canvas->Font->Size=24;
  Image3->Canvas->TextOut(12,62,"中华人民共和国");
  CanvasCopy(PaintBox1->Canvas,0,0,ww,hh,Image3->Canvas,0,0);
}
//---------------------------------------------------------------------------