文件名称：Delphi 演示CreateGrayMappedBmp函数应用.rar
文件大小：7KB
文件格式：RAR
更新时间：2022-07-30 12:46:10
Delphi源码-系统相关
Delphi 演示CreateGrayMappedBmp函数应用，该函数用于从已有的位图上建立另一位图，类似重绘我感觉，代码中使用了LoadFromFile、Canvas.Draw、CreateGrayMappedBmp等众多函数来实现本功能，下面来看关键部分的代码: Bit1:=TBitmap.Create; Bit2:=TBitmap.Create; Bit1.LoadFromFile('MR.bmp');//读取需要重新生成的BMP图像文件 Bit1.Canvas.TextOut(0,0,'Old'); HB:=CreateGrayMappedBmp(Bit1.Handle); Bit2.Handle:=HB; bit2.Canvas.TextOut(0,0,'New'); Canvas.Draw(0,GroupBox1.Height,Bit1); Canvas.Draw(bit1.Width 3,GroupBox1.Height,Bit2); FreeAndNil(Bit1); FreeAndNil(Bit2);
【文件预览】：
codesc.net
----CreateGrayMappedBmp()
--------Frm_CreateGrayMappedBmp.pas(1008B)
--------CreateGrayMappedBmp.res(876B)
--------MR.bmp(32KB)
--------Frm_CreateGrayMappedBmp.dcu(5KB)
--------Frm_CreateGrayMappedBmp.dfm(2KB)
--------CreateGrayMappedBmp.dof(2KB)
--------Frm_CreateGrayMappedBmp.ddp(51B)
--------CreateGrayMappedBmp.dpr(286B)
--------CreateGrayMappedBmp.cfg(420B)