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::Button1Click(TObject *Sender)
{
  int x,y;
  TRect src,drc;
  x=Image1->Width;
  y=Image1->Height;
  Image2->Width=x;
  Image2->Height=y;
  src=Rect(0,0,x,y);
  drc=Rect(x,0,0,y);
  Image2->Canvas->CopyMode=cmSrcCopy;
  Image2->Canvas->CopyRect(drc,Image1->Canvas,src);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  int x,y;
  TRect src,drc;
  x=Image1->Width;
  y=Image1->Height;
  Image2->Width=x;
  Image2->Height=y;
  src=Rect(0,0,x,y);
  drc=Rect(0,y,x,0);
  Image2->Canvas->CopyMode=cmSrcCopy;
  Image2->Canvas->CopyRect(drc,Image1->Canvas,src);
}
//---------------------------------------------------------------------------