
29.06.2011, 13:39
|
 |
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
const
x1=225;
y1=543;
x2=352;
y2=582;
var
bmpin: TBitmap;
bmpout: TBitmap;
begin
bmpin:=TBitmap.Create;
bmpout:=TBitmap.Create;
try
bmpin.LoadFromFile('g:\__Data\D2007.bmp');
bmpout.Width:=x2-x1+1;
bmpout.Height:=y2-y1+1;
bmpout.Canvas.CopyRect(Rect(0, 0, bmpout.Width, bmpout.Height), bmpin.Canvas, Rect(x1, y1, x2, y2));
bmpout.SaveToFile('g:\__Data\D2007_.bmp');
finally
bmpout.Free;
bmpin.Free;
end;
end;
|