| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Скопировать изображение [D7, XP]

BioWar2 ©   (2006-07-27 16:36:00) 

Как скопировать изображение TBitmap в буфер, если известны координаты прямоугольника?

---

McSimm   (2006-07-29 02:35:00) [1]

> bmp.Canvas.Draw(-x, -y, bitmap);


Help:
TCanvas.Draw(X, Y: Integer; Graphic: TGraphic);

---

SerJaNT   (2006-07-29 02:29:00) [2]

> Gydvin ©   (28.07.06 10:42) [5]


Не подскажешь, как проделать тоже самое но только относительно TGraphic?

---

Gydvin   (2006-07-28 10:42:00) [3]

procedure TForm1.Button1Click(Sender: TObject);

 procedure CopyBitmapToClipboard(bitmap: tbitmap; x, y, x1, y1: integer);
 var
   bmp: tbitmap;
 begin
   if (x1 <= x) or (y1 <= y) then exit;
   bmp := tbitmap.Create;
   bmp.Width := x1 - x;
   bmp.Height := y1 - y;
   bmp.Canvas.Draw(-x, -y, bitmap);
   clipboard.Assign(bmp);
   bmp.Free;
 end;

begin
 CopyBitmapToClipboard(image1.Picture.Bitmap, 80, 80, 250, 250);
end;

---

SerJaNT   (2006-07-28 02:51:00) [4]

А не подскажите кодом?

Координаты прямоугольника на TImage: левый верхний угол XL, YL, правый нижний угол XR, YR.

---

Gydvin   (2006-07-27 17:40:00) [5]

Скопировать его на отдельный битмап нужного тебе размера
bitblt()
потом в буфер обмена

---

SerJaNT   (2006-07-27 17:20:00) [6]

> Gydvin ©   (27.07.06 16:55) [1]


Это я знаю, а вот как определенный кусок TBitmap запихнуть в буфер?

---

Gydvin   (2006-07-27 16:55:00) [7]

uses clipbrd

clipboard.Assign();

---

Наверх