Скачать: CL | DM;

Вырезание куска из 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c