//正常显示图片, 没有变换 var g:TGPGraphics; img:TGPImage; begin g:=TGPGraphics.Create(Canvas.Handle); g.Clear(aclWhite); img:=TGPImage.Create('d:\mm.png');{测试文件要存在} g.DrawImage(img,10,10,img.GetWidth,img.GetHeight); img.Free; g.Free; end;
//添加颜色变换 var g:TGPGraphics; img:TGPImage; imgattr:TGPImageAttributes; const colormatrix:TColorMatrix = ( (1.0,0.0,0.0,0.0,0.0), (0.0,1.0,0.0,0.0,0.0), (0.0,0.0,1.0,0.0,0.0), (0.0,0.0,0.0,1.0,0.0), (1.0,0.0,0.0,0.0,1.0)); begin g:=TGPGraphics.Create(Canvas.Handle); g.Clear(aclWhite); img:=TGPImage.Create('d:\mm.png');{测试文件要存在} imgattr:=TGPImageAttributes.Create; imgattr.SetColorMatrix(colormatrix,ColorMatrixFlagsDefault,ColorAdjustTypeDefault); g.DrawImage(img,MakeRect(10,10,img.GetWidth,img.GetHeight), 10,10,img.GetWidth,img.GetHeight,UnitPixel,imgattr); imgattr.Free; img.Free; g.Free; end;