Delphi 演示CreateGrayMappedBmp函数应用.rar

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);