Вырезание куска из TBitmap

← →
id (2006-07-05 17:38) [0]

У меня есть следующий код:
function EraseBitmap(Bitmap: TBitmap; LeftTop: TPoint; Width, Height: integer): TBitmap; var R: TRect; begin Result:= TBitmap.Create; R.Left:= LeftTop.X; R.Top:= LeftTop.Y; R.Right:= LeftTop.X + Width; R.Bottom:= LeftTop.Y + Height; Result.Width:= Width; Result.Height:= Height; Result.Canvas.CopyRect(R, Bitmap.Canvas, Rect(LeftTop.X, LeftTop.Y, LeftTop.X + Result.Width, LeftTop.Y + Result.Height)); end;

И он вырезает правильно, но остаётся белая полоса ровно в два раза меньше, чем парамерты передаваемые в LefTop(x, y).
Не могу побороть :(

← →
antonn © (2006-07-05 18:41) [1]

id (05.07.06 17:38)
Result.Canvas.CopyRect(R, Bitmap.Canvas, Rect(LeftTop.X, LeftTop.Y, LeftTop.X + Result.Width, LeftTop.Y + Result.Height));
подставь rect(0,0,Width, Height);

← →
id (2006-07-05 19:20) [2]

Спасибо. Помогло.

Вырезание куска из TBitmap Найти похожие ветки