一个面积小的Image在一个面积大的Image之上 通过拖动一个TrackBar在其OnChange事件中 对面积小的Image进行透明度处理时闪烁挺严重的 部分代码如下:procedure TFormMain.TBAlphaChange(Sender: TObject);
var
BF: BLENDFUNCTION;
bmp: TBitmap;
begin
if (Image2.Picture.Bitmap.Empty = false) and (CBAlpha.Checked) then
begin
BF.BlendOp := AC_SRC_OVER;
BF.BlendFlags := 0;
BF.SourceConstantAlpha := Round(255*TBAlpha.Position / 100);
BF.AlphaFormat := 0;
bmp := TBitmap.Create;
bmp.Assign(Image2.Picture.Bitmap);
Image2.Picture.Assign(nil);
Windows.AlphaBlend(Image2.Canvas.Handle, 0,0,Image2.Width,Image2.Height,Bmp.Canvas.Handle, 0,0,Image2.Width, Image2.Height,BF);
bmp.Free;
end;
end;
解决方案 »
- 哪里有调用web sercices的例子
- 全中国的Delphi程序员都来看看,D2009竟然变成D7,谁能解释一下!
- 奇怪,每次打开www.csdn.com,卡吧都会报病毒警告?
- 在delphi4中如何设置环境变量
- 40分~给前4位~
- 如何开机运行程序而屏蔽其它程序(桌面)
- 才鸟的问题,请大家帮忙解释,什么是stdcall它有什么作用,谢谢
- 求一SQl语句.....急用
- 怎样在字符串中引用符号'
- 在一个程序中看到DiskId:=GetHDSerialNumber;,GetHDSerialNumber明显不是系统函数,但我怎么也找不到这个函数的声明和实现部分在哪里。
- 有没人绘制过空心的不规则线条啊?在线急等
- 如何获取屏幕上当前最前面的一幅图像从左上角到右下角的每一个像素 RGB 的值?
D7 环境 我不是指每次透明处理都会 而是在拖动TrackBar时实时处理并显示小的Image的透明效果时有闪烁现象
DoubleBuffer := True;
begin
if i > 255 then
Result := 255
else if i < 0 then
Result := 0
else
Result := i;
end;procedure BmpAlphaBlend(var dBmp: TBitMap; sBmp: TBitmap; Pos: TPoint; Alpha: integer; TranColor: TColor = -1);
type
tagRGBTRIPLE = packed record
rgbtBlue: Byte;
rgbtGreen: Byte;
rgbtRed: Byte;
end;
TRGBTriple = tagRGBTRIPLE;
PRGBTripleArray = ^TRGBTripleArray;
TRGBTripleArray = array[0..32767] of TRGBTriple;
function GetSLColor(pRGB: TRGBTriple): TColor;
begin
Result := RGB(pRGB.rgbtRed, pRGB.rgbtGreen, pRGB.rgbtBlue);
end;
var
p0, p1: PRGBTripleArray;
r, g, b, p, x, y: Integer;
begin
sBmp.PixelFormat := pf24bit;
dBmp.PixelFormat := pf24bit;
if TranColor = -1 then
TranColor := sBmp.Canvas.Pixels[0, 0];
for y := 0 to sBmp.Height - 1 do
if (y + Pos.y >= 0) and (y + Pos.Y < dBmp.Height) then
begin
p0 := dBmp.ScanLine[y + Pos.y];
p1 := sBmp.ScanLine[y];
for x := 0 to sBmp.Width - 1 do
if (x + pos.X >= 0) and (x + Pos.X < dBmp.Width) then
if GetSLCOlor(p1[x]) <> TranColor then
begin
p0[x + pos.X].rgbtRed := IntToByte((p0[x + pos.X].rgbtRed * (100 - Alpha) +
p1[x].rgbtRed * Alpha) div 100); p0[x + pos.X].rgbtGreen := IntToByte((p0[x + pos.X].rgbtGreen * (100 - Alpha) +
p1[x].rgbtGreen * Alpha) div 100); p0[x + pos.X].rgbtBlue := IntToByte((p0[x + pos.X].rgbtBlue * (100 - Alpha) +
p1[x].rgbtBlue * Alpha) div 100);
end;
end;end;procedure TForm1.Button1Click(Sender: TObject);
var
brBmp, srcBmp: TBitmap;
begin
//
brBmp := TBitmap.Create;
brBmp.LoadFromFile('c:\a.bmp');
brBmp.PixelFormat := pf24bit; srcBmp := TBitmap.Create;
srcBmp.LoadFromFile('c:\b.bmp');
srcBmp.PixelFormat := pf24bit; BmpAlphaBlend(
brBmp, //背景图(大图,也是结果图)
srcBmp, //需要合成的小图
Point(60, 60), //画小图的坐标
100, //半透明度
-1//需要透明的颜色(用于不规则图形,-1就表示以0,0位置的颜色为透明色)
); canvas.Draw(0, 0, brBmp);
brBmp.Free;
srcBmp.Free;
end;-------------------------------------------------------
本回复由大傻的破玩意儿【CSDN's forum Explorer】完成!
大傻的破玩意儿,今天你用了木有 !!
软件功能强大,速度超快!!支持中...
软件下载地址:http://CoolSlob.ys168.com