1,221
社区成员
发帖
与我相关
我的任务
分享
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Byte Transparency ; //透明度
Graphics::TBitmap *Bit,*BitBack;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
BitBack =new Graphics::TBitmap();
BitBack->LoadFromFile("c:\\1.bmp");
Brush->Bitmap = BitBack;
Bit =new Graphics::TBitmap();
Bit->LoadFromFile("c:\\2.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TBlendFunction Blend;
Blend.BlendOp = AC_SRC_OVER;
Blend.BlendFlags = 0;
Blend.AlphaFormat = 0;
Transparency = 100 ; //透明度
Blend.SourceConstantAlpha = Transparency; //设置透明度
::AlphaBlend(Canvas->Handle,
10,
10,
Bit->Width + 10,
Bit->Height + 10,
Bit->Canvas->Handle,
0,
0,
Bit->Width,
Bit->Height,
Blend
);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete Bit;
delete BitBack;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Byte Transparency ; //透明度
Graphics::TBitmap *Bit,*BitBack;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
BitBack =new Graphics::TBitmap();
BitBack->LoadFromFile("c:\\1.bmp");
Brush->Bitmap = BitBack;
Bit =new Graphics::TBitmap();
Bit->LoadFromFile("c:\\2.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Transparency = 255 ;
TBlendFunction Blend;
Blend.BlendOp = AC_SRC_OVER;
Blend.BlendFlags = 0;
Blend.AlphaFormat = 0;
::AlphaBlend(Canvas->Handle,
10,
10,
Bit->Width + 10,
Bit->Height + 10,
Bit->Canvas->Handle,
0,
0,
Bit->Width,
Bit->Height,
Blend
);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete Bit;
delete BitBack;
}
//---------------------------------------------------------------------------