VPF::Скопировать часть выделеную часть Canvas в TBitmap

CynicRus

Дата 22.6.2012, 09:18 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 248
Регистрация: 31.5.2012

Репутация: 2
Всего: 5

Приветствую уважаемых форумчан. Есть TCanvas, на этом TCanvas - я рисую геометрическую фигуру. Как мне скопировать выделеный моей фигурой кусочек исходного изображения Canvas в Bitmap?

Alexeis

Дата 22.6.2012, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

У битмапа есть свой канвас. Вот на него и нужно скопировать функцией CopyRect . Правда предварительно нужно будет указать корректные размеры для битмапа, такие чтобы выделенный фрагмент поместился.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

CynicRus

Дата 22.6.2012, 11:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 248
Регистрация: 31.5.2012

Репутация: 2
Всего: 5

Возможно я туплю. Или неверно выразил мысль.
Вот у меня есть TCanvas. На этом TCanvas - есть некоторое изображение, на котором я рисую условный прямоугольник.

Код


Rectangle( x1, y1, x2, y2);

Мне известно, ширина и высота этого TCanvas, но - я категорически не могу врубиться, как мне скопировать тот участок изображения, который лежит внутри нарисованого мной прямоугольника.

Upd: Кажется я прозрел:

Код



function RectWidth(const A: TRect): Integer;
begin
  Result := A.Right - A.Left;
end;

function RectHeight(const A: TRect): Integer;
begin
  Result := A.Bottom - A.Top;
end;

function CopyCanvas(x,y: TPoint;Canvas: TCanvas): TBitmap;
var
Bitmap: TBitmap;
bw,bh:=integer;
Rect1,Rect2: Trect;
begin
Rect1:=Classes.Rect(x,y);
Canvas.Rectangle(Rect1.Left, Rect1.Top, Rect1.Right, Rect1.Bottom);
Bitmap:=TBitmap.Create();
Bitmap.Width:=RectWidth(Rect1);
Bitmap.Heigth:=RectHeigth(Rect1);
Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect,
  Canvas, Rect1);
result:=Bitmap;
end;

Спасибо-)

PS: Поправьте, если я ошибаюсь.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »