Unit1.cpp
上传用户:lhxd_sz
上传日期:2014-10-02
资源大小:38814k
文件大小:2k
- //---------------------------------------------------------------------------
- #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);
- }
- //---------------------------------------------------------------------------
-