客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
//创建调色板函数,R,G,B颜色分量,0-1之间取值
1 FUNCTION MaxGradientPalette(CONST RedFactor, GreenFactor, BlueFactor: Single): hPalette;
2 VAR 3 i : INTEGER; 4 LogicalPalette: TMaxLogPalette; 5 BEGIN 6 ASSERT (RedFactor <= 1); // values must be 0 to 1 7 ASSERT (GreenFactor <= 1); 8 ASSERT (BlueFactor <= 1); 9 10 LogicalPalette.palVersion := PaletteVersion; 11 LogicalPalette.palNumEntries := 256; 12 FOR i := 0 TO 255 DO 13 BEGIN 14 LogicalPalette.palPalEntry[i].peRed := Round(i * RedFactor); 15 LogicalPalette.palPalEntry[i].peGreen := Round(i * GreenFactor); 16 LogicalPalette.palPalEntry[i].peBlue := Round(i * BlueFactor); 17 LogicalPalette.palPalEntry[i].peFlags := PC_RESERVED; 18 END; 19 RESULT := CreatePalette(pLogPalette(@LogicalPalette)^); 20 END; 21 创建使用调色板的位图
1 procedure GradientBitmap(var ShowBitMap:TBitmap;CONST RedFactor, GreenFactor, BlueFactor: Single);
2 CONST 3 BitmapSize = 256; 4 VAR 5 i : INTEGER; 6 index : INTEGER; 7 j : INTEGER; 8 Row : pByteArray; 9 begin 10 ShowBitMap.PixelFormat := pf8bit; 11 ShowBitMap.Height := BitmapSize; 12 ShowBitMap.Width := BitmapSize; 13 // 1. Create palette first. 14 ShowBitMap.Palette:= MaxGradientPalette(RedFactor, GreenFactor, BlueFactor); 15 16 // 2. Assign Scanline value; 17 FOR j := 0 TO BitmapSize-1 DO 18 BEGIN 19 Row := ShowBitMap.Scanline[j]; 20 FOR i := 0 TO BitmapSize-1 DO 21 BEGIN 22 index := (i+j) DIV 2; 23 Row[i] := index; 24 END 25 END; 26 end; 27 使用调色板位图,显示在Picture上面
1 procedure TFormPf8bit.Button4Click(Sender: TObject);
2 var 3 bitmap1:TBitmap; 4 begin 5 bitmap1:=TBitmap.Create; 6 GradientBitmap( bitmap1,0.5,0.2,1.0); 7 ImageShow.Picture.Graphic:=bitmap1; 8 bitmap1.Free; 9 end; 10
|
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调试模式进行设置，可能很多用户都不知道怎
请发表评论