-
-
[旧帖]
设置壁纸(或图片)拉伸的问题
0.00雪花
-
发表于:
2010-1-18 05:28
4715
-
[旧帖] 设置壁纸(或图片)拉伸的问题
0.00雪花
我有一张 1280 * 800 的图片, 系统当前的分辨率是 1024 *768 的, 我把1280 * 800 的图片缩成 1024 *768(必需做), 后另存为图片, 发现失真了: 但Windows 桌面壁纸用1280 * 800 的图片(系统当前的分辨率是 1024 *768) , 不会出现失真的情况, 不知"桌面壁纸"是如何实现"拉伸"的?
下面是我导致失真的代码:
uses jpeg;
procedure TForm1.Button1Click(Sender: TObject);
var
S: TJPEGImage;
D: TBitmap;
begin
S := TJPEGImage.Create;
ChDir('C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\');
S.LoadFromFile('Sunset.jpg');
D := TBitmap.Create;
D.Width := screen.Width;
D.Height :=screen.Height ;
D.Canvas.StretchDraw(Rect(0, 0, screen.Width, screen.Height ), S); // 失真了
//Canvas.Draw(0, 0, S);
D.SaveToFile('C:\123.bmp');
S.Free;
D.Free;
end;
[培训]《安卓高级研修班(网课)》月薪三万计划,掌握调试、分析还原ollvm、vmp的方法,定制art虚拟机自动化脱壳的方法