客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
最近在整理代码的时候发现了这个函数,但是原作者是谁我已经不知道了,修正了里面的一个bug,然后把alpha修改为0-255个级别!(原来为10)
1 procedure DrawAlpha(bmpBack, bmpFore : TBitmap; TransColor : TColor; OffX, OffY : Integer; Alpha : Integer);
2 3 type 4 TRGBArray = array[0..32767] of TRGBTriple; 5 PRGBArray = ^TRGBArray; 6 7 var 8 X, Y : Integer; 9 rowFore, 10 rowBack : PRGBArray; 11 12 begin 13 // check bitmaps 14 if not Assigned(bmpBack) or 15 not Assigned(bmpFore) then 16 Exit; 17 18 // check color depth 19 if (bmpFore.PixelFormat <> pf24bit) or 20 (bmpBack.PixelFormat <> pf24bit) then 21 Exit; 22 23 // check dimensions 24 // if (bmpFore.Height + OffY > bmpBack.Height) or 25 // (bmpFore.Width + OffX > bmpBack.Width) then 26 // Exit; 27 28 // check alpha value 29 if (Alpha > 255) or 30 (Alpha < 0) then 31 Alpha := 255; 32 33 for y := 0 to bmpFore.Height - 1 do 34 begin 35 // scan bitmap rows 36 if (y > bmpBack.Width) then 37 Continue; 38 rowBack := bmpBack.ScanLine[y + OffY]; 39 rowFore := bmpFore.ScanLine[y]; 40 for x := 0 to bmpFore.Width - 1 do 41 begin 42 if (x+offx>bmpBack.Width) then 43 Continue; 44 // if not transparent color 45 if not ((rowFore[x].rgbtRed = GetRValue(TransColor)) and 46 (rowFore[x].rgbtGreen = GetGValue(TransColor)) and 47 (rowFore[x].rgbtBlue = GetBValue(TransColor))) then 48 // calculate new pixel value 49 begin 50 rowBack[x + OffX].rgbtRed := ((rowBack[x + OffX].rgbtRed * (255 - Alpha)) + (rowFore[x].rgbtRed * abs(Alpha-255)))div 255; 51 rowBack[x + OffX].rgbtGreen := ((rowBack[x + OffX].rgbtGreen) * (255 - Alpha) + (rowFore[x].rgbtGreen * Abs(Alpha-255)))div 255; 52 rowBack[x + OffX].rgbtBlue := ((rowBack[x + OffX].rgbtBlue) * (255 - Alpha) + (rowFore[x].rgbtBlue * Abs(Alpha-255)))div 255; 53 end; 54 end; 55 end; 56 end;
下面的是使用的例子
1 procedure TForm1.Button2Click(Sender: TObject);
2 begin 3 // set color depth to 16.7mio colors (24 bit) 4 // because the loaded bitmaps are 8 bit 5 img1.Picture.Bitmap.PixelFormat := pf24bit; 6 img2.Picture.Bitmap.PixelFormat := pf24bit; 7 8 DrawAlpha(img1.Picture.Bitmap, img2.Picture.Bitmap, clFuchsia, 10, 10, 5); 9 10 // update image1 (result) 11 img1.Invalidate; 12 end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论