在
this question中,我询问了CopyRect方法的正确用法.我得到了一个解决问题的答案,但现在复制的矩形的颜色是错误的(限制为256个值？).
这是代码：
这是代码：
var
Bmp: TBitmap;
begin
Image1.Picture.LoadFromFile(SomeJPGimage);
Bmp := TBitmap.Create;
try
Bmp.Assign(Image1.Picture.Graphic);
with Bmp do
Image2.Canvas.CopyRect(Image2.Canvas.ClipRect,Canvas,Canvas.ClipRect);
finally
Bmp.Free;
end;
end;
假色的插图是Image2.如果我不调整大小,颜色是正确的.
调整大小时如何获取源图像(JPG)的24位颜色？
编辑
抽奖不是另类;我想复制源图像部分的缩放版本.
解决方法
这不是因为颜色减少或错误的像素格式等引起的.你可能在复制时缩小图像并且’StretchBlt’压缩图像以适应,并且根据模式,会产生一些伪像.例如,下面的128×128图像
如果未应用调整大小,则显示完全相同.但是,如果它应用于90×100图像,则输出为.
您可以更改stretching mode以获得更好的结果：
var
Bmp: TBitmap;
begin
Image1.Picture.LoadFromFile(SomeJPGimage);
Bmp := TBitmap.Create;
try
Bmp.Assign(Image1.Picture.Graphic);
SetStretchBltMode(Image2.Canvas.Handle,HALFTONE); // <- here
with Bmp do
Image2.Canvas.CopyRect(Image2.Canvas.ClipRect,Canvas.ClipRect);
finally
Bmp.Free;
end;
end;
(浏览过一些’graphics.pas’,VCL似乎只对8位图像使用半色调.我在这个评估中可能是错的或者是正确的,但无论如何,半色调拉伸模式没有这样的约束.)
对于任何更好的东西,我相信,你必须使用适当的图形库.