delphi截取图像:用TBitMap.canvas.CopyRect,保存后结果失真严重, delphi图像编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var bitCut: TBitmap; bitEdit: TBitmap; picOriginal: TPicture;begin picOriginal := TPicture.Create; picOriginal.LoadFromFile(fileName); //fileName为jpg文件路径 bitCut := TBitmap.Create; bitCut.Width := 355; bitCut.Height := 441; bitCut.Canvas.StretchDraw(Rect(0, 0, bitCut.Width, bitCut.Height), picOriginal.Graphic); bitEdit := TBitmap.Create; bitEdit.Width := picOriginal.Width; bitCut.Canvas.CopyRect(Rect(0, 0, bitCut.Width, bitCut.Height), bitEdit.Canvas, Rect(801, 149, 2595, 2359)); imgEdit.Picture.Bitmap.Assign(bitCut); // 该释放的对象要释放 bitEdit.Free; bitCut.Free; picOriginal.Free;end; 忘记了,高手,留个q呗,方便交流,主要是请教,俺是新菜鸟一枚,项目需要,从net转向delphi学习~~我的qq是4056355_45 声音音量的显示.大家帮帮我. 难难难!!!如何滚动条下面的图片一起抓到 今天跟喜欢的妹妹表白了......大家给支个招! 跪求DNS解析服务的代码 注册发布的问题 Win XP 下的自定义纸问题 有谁可帮我翻译这份原始档(要求转成pascal)? var buff: pchar; integer(@buff)是什么意思?不解 高分求解?谁能够帮我???我会非常感激的!!!!!! newyj(老鬼前辈),能再帮帮忙吗? ListView在vsIcon模式下怎么实现类似Windows在缩略图模式下的选中样式 如何保证在任何情况下,程序只能执行一次?
var
bitCut: TBitmap;
bitEdit: TBitmap;
picOriginal: TPicture;
begin picOriginal := TPicture.Create;
picOriginal.LoadFromFile(fileName); //fileName为jpg文件路径 bitCut := TBitmap.Create;
bitCut.Width := 355;
bitCut.Height := 441;
bitCut.Canvas.StretchDraw(Rect(0, 0, bitCut.Width, bitCut.Height), picOriginal.Graphic); bitEdit := TBitmap.Create;
bitEdit.Width := picOriginal.Width; bitCut.Canvas.CopyRect(Rect(0, 0, bitCut.Width, bitCut.Height),
bitEdit.Canvas, Rect(801, 149, 2595, 2359));
imgEdit.Picture.Bitmap.Assign(bitCut); // 该释放的对象要释放
bitEdit.Free;
bitCut.Free;
picOriginal.Free;
end;